Changeset 164 for trunk/Forms/FormMain.pas

Timestamp:

Jun 30, 2023, 10:51:35 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Build under Windows.
• Fixed: Correctly apply theme to contacts form.

File:

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

trunk/Forms/FormMain.pas

@@ -75 +75 @@
     FormContacts: TFormContacts;
     procedure UpdateInterface;
+    procedure SettingsChanged;
   end;
 
@@ -137 +138 @@
   try
     SetToolbarHints;
-    Core.Core.Initialize;
-    Translator.TranslateComponentRecursive(Self);
-    ThemeManager.UseTheme(Self);
-    PersistentForm.Load(Self);
     ScaleDPI.ScaleControl(CoolBar1, Core.Core.ScaleDPI1.DesignDPI);
     CoolBar1.AutosizeBands;
@@ -245 +242 @@
 end;
 
+procedure TFormMain.SettingsChanged;
+begin
+  ThemeManager.UseTheme(Self);
+  Translator.TranslateComponentRecursive(Self);
+  FormContacts.ThemeManager.UseTheme(FormContacts);
+  FormContacts.Translator.TranslateComponentRecursive(FormContacts);
+end;
+
 end.