Changeset 463 for branches/highdpi/Packages/Common/FormAbout.pas

Timestamp:

Nov 29, 2023, 2:35:44 PM (12 months ago)

Author:

chronos

Message:

• Modified: HighDpi branch updated to trunk version.

File:

• branches/highdpi/Packages/Common/FormAbout.pas (moved) (moved from branches/highdpi/Packages/Common/UFormAbout.pas ) (6 diffs)

branches/highdpi/Packages/Common/FormAbout.pas

@@ -1 @@
-unit UFormAbout;
-
-{$mode delphi}
+unit FormAbout;
 
 interface
@@ -7 +5 @@
 uses
   UDpiControls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  StdCtrls, ExtCtrls, UApplicationInfo, UCommon, UTranslator, UTheme;
+  StdCtrls, ExtCtrls, ApplicationInfo, Common, Translator, Theme;
 
 type
@@ -22 +20 @@
     PanelButtons: TDpiPanel;
     procedure ButtonHomePageClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
-  private
-    { private declarations }
   public
     AboutDialog: TObject; //TAboutDialog
@@ -37 +32 @@
 
 uses
-  UAboutDialog;
+  AboutDialog;
 
 resourcestring
@@ -50 +45 @@
   if Assigned(AboutDialog) then
   with TAboutDialog(AboutDialog) do begin
-    if Assigned(CoolTranslator) then
-      CoolTranslator.TranslateComponentRecursive(Self);
+    if Assigned(Translator) then
+      Translator.TranslateComponentRecursive(Self);
     if Assigned(ThemeManager) then
       ThemeManager.UseTheme(Self);
@@ -79 +74 @@
 end;
 
-procedure TFormAbout.FormCreate(Sender: TObject);
-begin
-end;
-
 end.
-