Changeset 19 for trunk/UCore.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/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -383 +383 @@
   UpdateInterface;
   FormMain.UpdateInterface;
-  if Assigned(DataFile) then
-    FormContacts.Contacts := TContactsFile(DataFile).Contacts
-    else FormContacts.Contacts := nil;
-  FormContacts.ReloadList;
+  if Assigned(FormContacts) then begin
+    if Assigned(DataFile) then
+      FormContacts.Contacts := TContactsFile(DataFile).Contacts
+      else FormContacts.Contacts := nil;
+    FormContacts.ReloadList;
+  end;
 end;