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

FIX: Abort FileSourceOperation

Browse source
This commit is contained in:
Alexander Koblov 2022-08-01 19:13:35 +03:00
commit aca79a3b30
1 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/filesources/ufilesourceoperation.pas
View file

@ -806,19 +806,16 @@ end;
function TFileSourceOperation.AppProcessMessages(CheckState: Boolean): Boolean;
begin
if GetCurrentThreadId <> MainThreadID then
if GetCurrentThreadId = MainThreadID then
begin
if CheckState then CheckOperationState;
end
else begin
WidgetSet.AppProcessMessages;
if CheckState then
try
CheckOperationState;
except
on E: EFileSourceOperationAborting do
Exit(False);
end;
end;
if CheckState then
try
CheckOperationState;
except
on E: EFileSourceOperationAborting do
Exit(False);
end;
Result:= True;
end;