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: Viewer - wrong initial image size and position

Browse source
This commit is contained in:
Alexander Koblov 2024-02-09 22:03:17 +03:00
commit 741e55c0ea
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/fviewer.pas
View file

@ -3238,6 +3238,10 @@ end;
procedure TfrmViewer.ActivatePanel(Panel: TPanel);
begin
bPlugin := (Panel = nil);
bAnimation := (Panel = pnlImage) and (GifAnim.Visible);
bImage := (Panel = pnlImage) and (bAnimation = False);
if Panel <> pnlText then pnlText.Hide;
if Panel <> pnlCode then pnlCode.Hide;
if Panel <> pnlImage then pnlImage.Hide;
@ -3290,9 +3294,6 @@ begin
ToolBar1.Visible:= not (bQuickView or (miFullScreen.Checked and not ToolBar1.MouseInClient));
end;
bAnimation := (Panel = pnlImage) and (GifAnim.Visible);
bImage := (Panel = pnlImage) and (bAnimation = False);
bPlugin := (Panel = nil);
miPlugins.Checked := (Panel = nil);
miGraphics.Checked := (Panel = pnlImage);
miEncoding.Visible := (Panel = nil) or (Panel = pnlText) or (Panel = pnlCode);