Changeset 150 for trunk/Forms

Timestamp:

Jun 5, 2023, 9:14:35 PM (19 months ago)

Author:

chronos

Message:

• Fixed: Translation in main form.

File:

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

trunk/Forms/FormMain.pas

@@ -102 +102 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
-  Core.Core.Translator.TranslateComponentRecursive(Self);
-  Core.Core.ThemeManager1.UseTheme(Self);
-
   FormContacts := TFormContacts.Create(nil);
   Core.Core.OnDataFileChange := DataFileChangeExecute;
@@ -126 +123 @@
     SetToolbarHints;
     Core.Core.Initialize;
+    Core.Core.Translator.TranslateComponentRecursive(Self);
     Core.Core.ThemeManager1.UseTheme(Self);
     Core.Core.PersistentForm1.Load(Self);