Changeset 176

Timestamp:

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

Files:

• Core.pas (modified) (2 diffs)
• Forms/FormMain.pas (modified) (1 diff)
• Packages/Common/FormEx.pas (modified) (3 diffs)
• Packages/Common/PersistentForm.pas (modified) (1 diff)

trunk/Core.pas

@@ -486 +486 @@
   TFormEx.PersistentForm := PersistentForm1;
 
-  FormMain := TFormMain.Create(nil);
+  Application.CreateForm(TFormMain, FormMain);
   FormMain.Show;
 end;
@@ -496 +496 @@
   if Assigned(ProfileImage) then
     FreeAndNil(ProfileImage);
-  FreeAndNil(FormMain);
 end;
 

trunk/Forms/FormMain.pas

@@ -127 +127 @@
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  Core.Core.OnDataFileChange := nil;
+  Core.Core.OnLastOpenedListChange := nil;
   FreeAndNil(FormContacts);
 end;

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