Changeset 22 for trunk/UCore.pas

Timestamp:

Aug 19, 2021, 10:38:05 AM (3 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Removed: CoolTranslator is now part of Common package.
• Modified: Replaced custom about dialog with the one from Common package.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Controls, ActnList, Forms, Dialogs,
   ULastOpenedList, UApplicationInfo, UPersistentForm, UScaleDPI, UCommon,
-  UCoolTranslator, UDataFile, Menus, URegistry, UTheme, Registry;
+  UTranslator, UDataFile, Menus, URegistry, UTheme, UAboutDialog, Registry;
 
 type
@@ -26 +26 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AboutDialog1: TAboutDialog;
     AGenerate: TAction;
     AFindDuplicate: TAction;
@@ -40 +41 @@
     ActionList1: TActionList;
     ApplicationInfo1: TApplicationInfo;
-    CoolTranslator1: TCoolTranslator;
+    CoolTranslator1: TTranslator;
     ImageList1: TImageList;
     LastOpenedList1: TLastOpenedList;
@@ -160 +161 @@
 procedure TCore.AAboutExecute(Sender: TObject);
 begin
-  FormAbout := TFormAbout.Create(nil);
-  try
-    FormAbout.ApplicationInfo := ApplicationInfo1;
-    FormAbout.ShowModal;
-  finally
-    FormAbout.Free;
-  end;
+  AboutDialog1.Show;
 end;