Changeset 142 for trunk/Forms/UFormAbout.pas

Timestamp:

Dec 10, 2016, 6:19:37 PM (8 years ago)

Author:

chronos

Message:

• Modified: About dialog with application icon.

File:

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

trunk/Forms/UFormAbout.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  StdCtrls, UApplicationInfo, UCommon;
+  StdCtrls, ExtCtrls, UApplicationInfo, UCommon, LCLIntf;
 
 type
@@ -14 +14 @@
 
   TFormAbout = class(TForm)
-    ApplicationInfo1: TApplicationInfo;
     ButtonHomePage: TButton;
     ButtonClose: TButton;
+    Image1: TImage;
     LabelAppName: TLabel;
     LabelDescription: TLabel;
     LabelContent: TLabel;
+    Panel1: TPanel;
     procedure ButtonHomePageClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -26 +27 @@
     { private declarations }
   public
-    { public declarations }
+    ApplicationInfo: TApplicationInfo;
   end;
 
@@ -48 +49 @@
 procedure TFormAbout.FormShow(Sender: TObject);
 begin
-  LabelAppName.Caption := ApplicationInfo1.AppName;
-  LabelContent.Caption := SVersion + ': ' + ApplicationInfo1.Version + LineEnding +
-    SReleaseDate + ': ' + DateToStr(ApplicationInfo1.ReleaseDate) + LineEnding +
-    SLicense + ': ' + ApplicationInfo1.License;
+  if Assigned(ApplicationInfo) then begin
+    LabelAppName.Caption := ApplicationInfo.AppName;
+    LabelContent.Caption := SVersion + ': ' + ApplicationInfo.Version + LineEnding +
+      SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding +
+      SLicense + ': ' + ApplicationInfo.License;
+  end;
 end;
 
 procedure TFormAbout.ButtonHomePageClick(Sender: TObject);
 begin
-  OpenWebPage(ApplicationInfo1.HomePage);
+  if Assigned(ApplicationInfo) then
+    OpenURL(ApplicationInfo.HomePage);
 end;