Changeset 174 for trunk/Packages/Common/FormEx.pas

Timestamp:

Jul 19, 2024, 3:51:57 PM (2 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/Packages/Common/FormEx.pas (modified) (3 diffs)

trunk/Packages/Common/FormEx.pas

@@ -19 +19 @@
     procedure DoDestroy; override;
   public
+    FullScreen: Boolean;
     PersistentForm: TPersistentForm; static;
     ThemeManager: TThemeManager; static;
@@ -45 +46 @@
   inherited;
   PersistentForm.Load(Self);
+  FullScreen := PersistentForm.FormFullScreen;
 end;
 
@@ -76 +78 @@
 procedure TFormEx.DoClose(var CloseAction: TCloseAction);
 begin
+  PersistentForm.FormFullScreen := FullScreen;
   PersistentForm.Save(Self);
   inherited;