Changeset 162 for trunk/Core.pas

Timestamp:

Jun 30, 2023, 10:01:24 PM (17 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Core.pas (modified) (6 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, AboutDialog,
+  Translator, DataFile, VCard, Menus, RegistryEx, Theme,
   Registry, VCardFile;
 
@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
-    AboutDialog1: TAboutDialog;
     AFileExport: TAction;
     ANormalize: TAction;
@@ -132 +131 @@
 uses
   FormMain, FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize,
-  FormGenerate, FormError, FormFind, FormTest, FormSource, TestCases, FormExport;
+  FormGenerate, FormError, FormFind, FormSource, TestCases, FormExport, FormEx,
+  FormAbout, FormTests;
 
 resourcestring
@@ -214 +214 @@
 
 procedure TCore.AAboutExecute(Sender: TObject);
-begin
-  AboutDialog1.Show;
+var
+  FormAbout: TFormAbout;
+begin
+  FormAbout := TFormAbout.Create(nil);
+  FormAbout.ApplicationInfo := ApplicationInfo1;
+  FormAbout.ShowModal;
+  FreeAndNil(FormAbout);
 end;
 
@@ -342 +347 @@
 procedure TCore.ATestExecute(Sender: TObject);
 begin
-  with TFormTest.Create(nil) do
+  with TFormTests.Create(nil) do
   try
     TestCases := InitTestCases;
@@ -451 +456 @@
     ApplicationInfo1.RegistryKey + '\RecentFiles');
 
+  TFormEx.ScaleDPI := ScaleDPI1;
+  TFormEx.Translator := Translator;
+  TFormEx.ThemeManager := ThemeManager1;
+  TFormEx.PersistentForm := PersistentForm1;
+
   FormMain := TFormMain.Create(nil);
+//  FormMain.Translator.POFilesFolder := 'Languages;Packages/Common/Languages';
   FormMain.Show;
 end;