Changeset 174 for trunk/Forms/FormMain.pas

Timestamp:

Jul 19, 2024, 3:51:57 PM (3 months ago)

Author:

chronos

Message:

• Added: Menu action View - Fullscreen for switching into full screen mode.
• Fixed: Save main form dimensions if application Exit action is selected.

File:

• trunk/Forms/FormMain.pas (modified) (4 diffs)

trunk/Forms/FormMain.pas

@@ -22 +22 @@
     MenuItem15: TMenuItem;
     MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
     MenuItemColumns: TMenuItem;
     MenuItem3: TMenuItem;
@@ -80 +81 @@
     procedure UpdateInterface;
     procedure SettingsChanged;
+    procedure ToggleFullScreen;
   end;
 
@@ -249 +251 @@
   UpdateFormTitle;
   CoolBar1.Visible := MenuItemToolbar.Checked;
+  Core.Core.AFullScreen.Checked := FullScreen;
 end;
 
@@ -259 +262 @@
 end;
 
+procedure TFormMain.ToggleFullScreen;
+begin
+  FullScreen := not FullScreen;
+  Core.Core.AFullScreen.Checked := FullScreen;
+  TFormEx.PersistentForm.Save(Self);
+  TFormEx.PersistentForm.SetFullScreen(FullScreen);
+  UpdateInterface;
+end;
+
 end.