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

Timestamp:

Jul 19, 2024, 11:24:06 PM (2 months ago)

Author:

chronos

Message:

• Fixed: Full screen mode switching on Windows.
• Modified: Updated Common package.

File:

• trunk/Packages/Common/FormEx.pas (modified) (5 diffs)

trunk/Packages/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, False, FullScreen);
+    FullScreen := PersistentForm.FormFullScreen;
+  end;
 end;
 
@@ -68 +74 @@
   end;
 
-  PersistentForm.Load(Self);
   Translator.TranslateComponentRecursive(Self);
   ThemeManager.UseTheme(Self);
@@ -77 +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;