Changeset 162 for trunk/Forms/FormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/Forms/FormMain.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, Menus,
-  ComCtrls, FormContacts;
+  ComCtrls, FormContacts, FormEx;
 
 type
@@ -11 +11 @@
   { TFormMain }
 
-  TFormMain = class(TForm)
+  TFormMain = class(TFormEx)
     CoolBar1: TCoolBar;
     MainMenu1: TMainMenu;
@@ -95 +95 @@
   SaveConfig;
   FormContacts.Close;
-  Core.Core.PersistentForm1.Save(Self);
   Application.Terminate;
 end;
@@ -139 +138 @@
     SetToolbarHints;
     Core.Core.Initialize;
-    Core.Core.Translator.TranslateComponentRecursive(Self);
-    Core.Core.ThemeManager1.UseTheme(Self);
-    Core.Core.PersistentForm1.Load(Self);
-    Core.Core.ScaleDPI1.ScaleControl(CoolBar1, Core.Core.ScaleDPI1.DesignDPI);
+    Translator.TranslateComponentRecursive(Self);
+    ThemeManager.UseTheme(Self);
+    PersistentForm.Load(Self);
+    ScaleDPI.ScaleControl(CoolBar1, Core.Core.ScaleDPI1.DesignDPI);
     CoolBar1.AutosizeBands;