Changeset 566 for Common/Forms/FormAbout.pas

Timestamp:

Jun 29, 2023, 11:23:03 PM (16 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

Location:

Common/Forms

Files:

• . (added)
• FormAbout.pas (moved) (moved from Common/FormAbout.pas ) (5 diffs)

Common/Forms/FormAbout.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  StdCtrls, ExtCtrls, ApplicationInfo, Common, Translator, Theme;
+  StdCtrls, ExtCtrls, ApplicationInfo, Common, Translator, Theme, FormEx;
 
 type
   { TFormAbout }
 
-  TFormAbout = class(TForm)
+  TFormAbout = class(TFormEx)
     ButtonClose: TButton;
     ButtonHomePage: TButton;
@@ -21 +21 @@
     procedure ButtonHomePageClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
+  private
+    FApplicationInfo: TApplicationInfo;
   public
-    AboutDialog: TObject; //TAboutDialog
     procedure UpdateInterface;
+    property ApplicationInfo: TApplicationInfo read FApplicationInfo write
+      FApplicationInfo;
   end;
 
@@ -30 +33 @@
 
 {$R *.lfm}
-
-uses
-  AboutDialog;
 
 resourcestring
@@ -43 +43 @@
 procedure TFormAbout.FormShow(Sender: TObject);
 begin
-  if Assigned(AboutDialog) then
-  with TAboutDialog(AboutDialog) do begin
-    if Assigned(Translator) then
-      Translator.TranslateComponentRecursive(Self);
-    if Assigned(ThemeManager) then
-      ThemeManager.UseTheme(Self);
-
-    if Assigned(ApplicationInfo) then
-    with ApplicationInfo do begin
-      LabelAppName.Caption := AppName;
-      LabelContent.Caption := SVersion + ': ' + Version + LineEnding +
-        SReleaseDate + ': ' + DateToStr(ReleaseDate) + LineEnding +
-        SLicense + ': ' + License;
-      LabelDescription.Caption := Description;
-      ImageLogo.Picture.Bitmap.Assign(Icon);
-    end;
+  if Assigned(ApplicationInfo) then
+  with ApplicationInfo do begin
+    LabelAppName.Caption := AppName;
+    LabelContent.Caption := SVersion + ': ' + Version + LineEnding +
+      SReleaseDate + ': ' + DateToStr(ReleaseDate) + LineEnding +
+      SLicense + ': ' + License;
+    LabelDescription.Caption := Description;
+    ImageLogo.Picture.Bitmap.Assign(Icon);
   end;
   UpdateInterface;
@@ -65 +57 @@
 procedure TFormAbout.UpdateInterface;
 begin
-  ButtonHomePage.Enabled := Assigned(AboutDialog) and
-    Assigned(TAboutDialog(AboutDialog).ApplicationInfo);
+  ButtonHomePage.Enabled := Assigned(ApplicationInfo);
 end;
 
 procedure TFormAbout.ButtonHomePageClick(Sender: TObject);
 begin
-  OpenWebPage(TAboutDialog(AboutDialog).ApplicationInfo.HomePage);
+  OpenWebPage(ApplicationInfo.HomePage);
 end;