Changeset 577 for Common/FormEx.pas

Timestamp:

Aug 2, 2024, 9:14:09 AM (3 months ago)

Author:

chronos

Message:

• Modified: Updated Common packaged.
• Fixed: Fullscreen switching on Linux and Windows with newer Lazarus version.

File:

• Common/FormEx.pas (modified) (4 diffs)

Common/FormEx.pas

@@ -13 +13 @@
   private
     FCounter: Integer; static;
+    FFirstShow: Boolean;
   protected
     procedure DoShow; override;
@@ -19 +20 @@
     procedure DoDestroy; override;
   public
+    FullScreen: Boolean;
     PersistentForm: TPersistentForm; static;
     ThemeManager: TThemeManager; static;
@@ -44 +46 @@
 begin
   inherited;
-  PersistentForm.Load(Self);
+  if not FFirstShow and (not (csDesigning in ComponentState)) then begin
+    FFirstShow := True;
+    PersistentForm.Load(Self);
+    FullScreen := PersistentForm.FormFullScreen;
+  end;
 end;
 
@@ -76 +82 @@
 procedure TFormEx.DoClose(var CloseAction: TCloseAction);
 begin
-  PersistentForm.Save(Self);
+  if (not (csDesigning in ComponentState)) then begin
+    PersistentForm.FormFullScreen := FullScreen;
+    PersistentForm.Save(Self);
+  end;
   inherited;
 end;