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

Timestamp:

Jul 19, 2024, 8:29:45 PM (2 months ago)

Author:

chronos

Message:

• Fixed: Main form was not visible on Windows task bar.
• Fixed: Do not load/save form dimensions in design time.

File:

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

trunk/Packages/Common/FormEx.pas

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