FIX: Viewer - remove a border in the full screen view (fixes #2235)

This commit is contained in:
Alexander Koblov 2025-04-11 23:05:11 +03:00
commit 0f43599f75

View file

@ -3820,6 +3820,7 @@ begin
miStretchOnlyLarge.Checked:= False;
if miPreview.Checked then cm_Preview(['']);
actFullscreen.ImageIndex:= 25;
sboxImage.BorderStyle:= bsNone;
end
else
begin
@ -3834,6 +3835,7 @@ begin
{$ENDIF}
ToolBar1.Visible:= True;
actFullscreen.ImageIndex:= 22;
sboxImage.BorderStyle:= bsSingle;
end;
if ExtractOnlyFileExt(FileList.Strings[iActiveFile]) <> 'gif' then
begin