Changeset 19 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 30, 2018, 12:13:24 PM (7 years ago)

Author:

chronos

Message:

• Fixed: FormContacts was not translated if created in runtime.

File:

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

trunk/Forms/UFormMain.pas

@@ -49 +49 @@
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure MenuItemToolbarClick(Sender: TObject);
@@ -77 +78 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
+  FormContacts.Close;
   Core.PersistentForm1.Save(Self);
 end;
@@ -90 +92 @@
 end;
 
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+  FormContacts.Free;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
@@ -96 +103 @@
   Core.ThemeManager1.UseTheme(Self);
   Core.PersistentForm1.Load(Self);
+
+  FormContacts := TFormContacts.Create(nil);
+  FormContacts.Contacts := TContactsFile(Core.DataFile).Contacts;
   FormContacts.ManualDock(Self, nil, alClient);
   FormContacts.Align := alClient;