mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Show "Verify checksum" dialog as non-modal

Browse source
This commit is contained in:
Alexander Koblov 2011-11-26 10:52:27 +00:00
commit e89e5bef65
2 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fchecksumverify.lfm
View file

@ -6,8 +6,12 @@ object frmCheckSumVerify: TfrmCheckSumVerify
Caption = 'Verify check sum...'
ClientHeight = 300
ClientWidth = 400
Constraints.MinHeight = 200
Constraints.MinWidth = 300
OnClose = FormClose
Position = poScreenCenter
LCLVersion = '0.9.27'
ShowInTaskBar = stAlways
LCLVersion = '0.9.29'
object mmCheckSumVerify: TMemo
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner

14
src/fchecksumverify.pas
View file

@ -37,6 +37,7 @@ type
TfrmCheckSumVerify = class(TForm)
btnClose: TBitBtn;
mmCheckSumVerify: TMemo;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
private
{ private declarations }
public
@ -52,13 +53,18 @@ implementation
procedure ShowVerifyCheckSum(const VerifyResult: TStringList);
begin
with TfrmCheckSumVerify.Create(Application) do
try
begin
mmCheckSumVerify.Lines.Assign(VerifyResult);
ShowModal;
finally
Free;
Show;
end;
end;
{ TfrmCheckSumVerify }
procedure TfrmCheckSumVerify.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
CloseAction:= caFree;
end;
end.