Changeset 164 for trunk/Core.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/Core.pas (modified) (5 diffs)

trunk/Core.pas

@@ -6 +6 @@
   Classes, SysUtils, FileUtil, Controls, ActnList, Forms, Dialogs, ExtCtrls,
   LastOpenedList, ApplicationInfo, PersistentForm, ScaleDPI, Common,
-  Translator, DataFile, VCard, Menus, RegistryEx, Theme,
+  Translator, DataFile, VCard, Menus, RegistryEx, Theme, FormMain,
   Registry, VCardFile;
 
@@ -81 +81 @@
     ProfilePhotoFileName: string;
     RecentFileRegistryContext: TRegistryContext;
-    FormMain: TForm;
+    FormMain: TFormMain;
     procedure FileModified(Sender: TObject);
     function FindFirstNonOption: string;
@@ -130 +130 @@
 
 uses
-  FormMain, FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize,
+  FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize,
   FormGenerate, FormError, FormFind, FormSource, TestCases, FormExport, FormEx,
   FormAbout, FormTests;
@@ -337 +337 @@
     if ShowModal = mrOK then begin
       SaveData;
-      //ThemeManager1.UseTheme(FormMain);
-      //ThemeManager1.UseTheme(FormContacts);
+      FormMain.SettingsChanged;
     end;
   finally
@@ -461 +460 @@
   TFormEx.PersistentForm := PersistentForm1;
 
+  Initialize;
+
   FormMain := TFormMain.Create(nil);
-//  FormMain.Translator.POFilesFolder := 'Languages;Packages/Common/Languages';
   FormMain.Show;
 end;