Changeset 85 for trunk/Packages/Common/Forms/FormAbout.pas

Timestamp:

Jun 7, 2024, 11:59:43 AM (5 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

Location:

trunk/Packages/Common/Forms

Files:

• . (added)
• FormAbout.pas (moved) (moved from trunk/Packages/Common/UFormAbout.pas ) (6 diffs)

trunk/Packages/Common/Forms/FormAbout.pas

@@ -1 @@
-unit UFormAbout;
-
-{$mode delphi}
+unit FormAbout;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  StdCtrls, ExtCtrls, UApplicationInfo, UCommon, UTranslator, UTheme;
+  StdCtrls, ExtCtrls, ApplicationInfo, Common, FormEx;
 
 type
   { TFormAbout }
 
-  TFormAbout = class(TForm)
+  TFormAbout = class(TFormEx)
     ButtonClose: TButton;
     ButtonHomePage: TButton;
@@ -22 +20 @@
     PanelButtons: TPanel;
     procedure ButtonHomePageClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
-    { private declarations }
+    FApplicationInfo: TApplicationInfo;
   public
-    AboutDialog: TObject; //TAboutDialog
     procedure UpdateInterface;
+    property ApplicationInfo: TApplicationInfo read FApplicationInfo write
+      FApplicationInfo;
   end;
 
@@ -35 +33 @@
 
 {$R *.lfm}
-
-uses
-  UAboutDialog;
 
 resourcestring
@@ -48 +43 @@
 procedure TFormAbout.FormShow(Sender: TObject);
 begin
-  if Assigned(AboutDialog) then
-  with TAboutDialog(AboutDialog) do begin
-    if Assigned(CoolTranslator) then
-      CoolTranslator.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;
@@ -70 +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);
-end;
-
-procedure TFormAbout.FormCreate(Sender: TObject);
-begin
+  OpenWebPage(ApplicationInfo.HomePage);
 end;
 
 end.
-