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: the issue of Full Screen in ViewerForm

Browse source
This commit is contained in:
rich2014 2026-05-10 18:22:03 +08:00
commit b3f9dd2b3f
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fviewer.lfm
View file

@ -271,6 +271,7 @@ object frmViewer: TfrmViewer
ShowHint = True
ShowInTaskBar = stAlways
LCLVersion = '2.2.7.0'
OnWindowStateChange = FormWindowStateChange
object pnlFolder: TPanel
Left = 179
Height = 343

14
src/fviewer.pas
View file

@ -1150,9 +1150,12 @@ end;
procedure TfrmViewer.FormWindowStateChange(Sender: TObject);
begin
miFullScreen.Checked:= not (miFullScreen.Checked);
miFullScreen.Checked:= (WindowState = wsFullScreen);
if miFullScreen.Checked then
begin
{$IFnDEF DARWIN}
Self.Menu:= nil;
{$ENDIF}
btnPaint.Down:= false;
btnHightlight.Down:=false;
showToolBar( False );
@ -1164,6 +1167,9 @@ begin
end
else
begin
{$IFnDEF DARWIN}
Self.Menu:= MainMenu;
{$ENDIF}
{$IF DEFINED(LCLWIN32)}
BorderStyle:= bsSizeable;
SetBounds(FWindowBounds.Left, FWindowBounds.Top, FWindowBounds.Right, FWindowBounds.Bottom);
@ -3918,7 +3924,7 @@ end;
procedure TfrmViewer.cm_Fullscreen(const Params: array of string);
begin
if NOT miFullScreen.Checked then
if WindowState <> wsFullScreen then
begin
FWindowState:= WindowState;
{$IF DEFINED(LCLWIN32)}
@ -3929,16 +3935,16 @@ begin
BorderStyle:= bsNone;
{$ENDIF}
WindowState:= wsFullScreen;
Self.Menu:= nil;
end
else
begin
Self.Menu:= MainMenu;
{$IFDEF LCLGTK2}
WindowState:= wsFullScreen;
{$ENDIF}
WindowState:= FWindowState;
end;
self.FormWindowStateChange( nil )
end;
procedure TfrmViewer.cm_Screenshot(const Params: array of string);