mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Can not cancel file operation then it paused

Browse source
This commit is contained in:
Alexander Koblov 2009-01-20 18:26:41 +00:00
commit 289e250cb2
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
fFileOpDlg.pas
View file

@ -61,7 +61,12 @@ uses
procedure TfrmFileOp.btnCancelClick(Sender: TObject);
begin
if Assigned(Thread) then
Thread.Terminate;
begin
Thread.Terminate;
if Thread is TFileOpThread then
with Thread as TFileOpThread do
if Paused then Paused:= False;
end;
ModalResult := mrCancel;
end;