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: Zero-length file comparison does not end (fixes #301)

Browse source
This commit is contained in:
Alexander Koblov 2021-12-24 23:28:39 +03:00
commit de6ea6c013
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fdiffer.pas
View file

@ -300,12 +300,19 @@ begin
else begin
OpenFileLeft(FileNameLeft);
OpenFileRight(FileNameRight);
actStartCompare.Execute;
if actStartCompare.Enabled then
actStartCompare.Execute
else begin
tmProgress.Enabled:= False;
CloseProgressDialog;
ShowDialog;
end;
end;
except
on E: Exception do
begin
tmProgress.Enabled:= False;
CloseProgressDialog;
msgError(E.Message);
Free;
end;