FIX: Zero-length file comparison does not end (fixes #301)

(cherry picked from commit de6ea6c013)
This commit is contained in:
Alexander Koblov 2021-12-24 23:28:39 +03:00
commit 0f7624b96f

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;