FIX: Quick view panel crash (fixes #2011)

This commit is contained in:
Alexander Koblov 2024-12-14 16:18:50 +03:00
commit f0f2b02c53

View file

@ -2194,6 +2194,7 @@ begin
pmStatusBar.Items.Add(miEncoding);
pmStatusBar.Items.Add(miImage);
end;
actExitViewer.Enabled:= not bQuickView;
HMViewer := HotMan.Register(Self, HotkeysCategory);
HMViewer.RegisterActionList(actionList);
@ -3960,7 +3961,7 @@ end;
procedure TfrmViewer.cm_ExitViewer(const Params: array of string);
begin
Close;
if not bQuickView then Close;
end;
procedure TfrmViewer.cm_Print(const Params: array of string);