Changeset 176 for trunk/Packages

Timestamp:

Jul 19, 2024, 8:29:45 PM (5 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.

Location:

trunk/Packages/Common

Files:

• FormEx.pas (modified) (3 diffs)
• PersistentForm.pas (modified) (1 diff)

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;

trunk/Packages/Common/PersistentForm.pas

@@ -303 +303 @@
 
 procedure TPersistentForm.SetFullScreen(State: Boolean);
+{$IFDEF UNIX}
 var
   OldHandler: TNotifyEvent;
 var
   I: Integer;
+{$ENDIF}
 begin
   if State then begin