Changeset 165 for trunk/Forms/FormMain.pas

Timestamp:

Jun 30, 2023, 11:34:35 PM (17 months ago)

Author:

chronos

Message:

• Modified: Improved Core initialization.
• Fixed: Not loaded last opened files.

File:

• trunk/Forms/FormMain.pas (modified) (4 diffs)

trunk/Forms/FormMain.pas

@@ -56 +56 @@
     ToolButton7: TToolButton;
     ToolButton8: TToolButton;
+    procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
@@ -99 +100 @@
 end;
 
+procedure TFormMain.FormActivate(Sender: TObject);
+begin
+  Core.Core.Initialize;
+end;
+
 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin
@@ -110 +116 @@
   Core.Core.OnDataFileChange := DataFileChangeExecute;
   Core.Core.OnLastOpenedListChange := LastOpenedFileChangeExecute;
+  LastOpenedFileChangeExecute(Self);
   LoadConfig;
 end;
@@ -143 +150 @@
     FormContacts.Context := TRegistryContext.Create(Core.Core.ApplicationInfo1.RegistryRoot,
       Core.Core.ApplicationInfo1.RegistryKey + '\ContactsColumns');
-    FormContacts.Contacts := TVCardFile(Core.Core.DataFile).VCard.Contacts;
     FormContacts.ManualDock(Self, nil, alClient);
     FormContacts.Align := alClient;