Changeset 115 for trunk/Forms/UFormAbout.pas

Timestamp:

Dec 10, 2016, 3:52:26 PM (7 years ago)

Author:

chronos

Message:

• Fixed: In Debug mode also check executed classes references.
• Modified: Better About dialog.
• Modified: About and Help dialogs are created in time when they are shown.

File:

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

trunk/Forms/UFormAbout.pas

@@ -1 +1 @@
 unit UFormAbout;
 
-{$MODE Delphi}
+{$mode delphi}
 
 interface
 
 uses
-  SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
-  Buttons, ExtCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
+  StdCtrls, ExtCtrls, UApplicationInfo, UCommon;
 
 type
@@ -14 +14 @@
 
   TFormAbout = class(TForm)
+    ButtonHomePage: TButton;
+    ButtonClose: TButton;
+    Image1: TImage;
+    LabelAppName: TLabel;
+    LabelDescription: TLabel;
+    LabelContent: TLabel;
     Panel1: TPanel;
-    OKButton: TButton;
-    Memo1: TMemo;
-    procedure OKButtonClick(Sender: TObject);
+    procedure ButtonHomePageClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
-    { Private declarations }
+    { private declarations }
   public
-    { Public declarations }
+    { public declarations }
   end;
 
@@ -36 +41 @@
 
 resourcestring
-  SApplicationName = 'Application name';
   SVersion = 'Version';
   SReleaseDate = 'Release date';
-  SManufacturer = 'Company';
-  SEmail = 'E-mail';
-  SHomePage = 'Homepage';
+  SLicense = 'License';
+
+{ TFormAbout }
 
 procedure TFormAbout.FormShow(Sender: TObject);
 begin
-  with Memo1, Lines, Core.ApplicationInfo do begin
-    BeginUpdate;
-    Clear;
-    Add(SApplicationName + ': ' + AppName);
-    Add(SVersion + ': ' + Version);
-    Add(SReleaseDate + ': ' + DateToStr(ReleaseDate));
-    Add(SHomePage + ': ' + HomePage);
-    Add(SManufacturer + ': ' + CompanyName);
-    Add(SEmail + ': ' + EmailContact);
-    EndUpdate;
+  with Core do begin
+    LabelAppName.Caption := ApplicationInfo.AppName;
+    LabelContent.Caption := SVersion + ': ' + ApplicationInfo.Version + LineEnding +
+      SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding +
+      SLicense + ': ' + ApplicationInfo.License;
   end;
-  FocusControl(OKButton);
 end;
 
-procedure TFormAbout.OKButtonClick(Sender: TObject);
+procedure TFormAbout.ButtonHomePageClick(Sender: TObject);
 begin
-  Close;
+  OpenWebPage(Core.ApplicationInfo.HomePage);
+end;
+
+procedure TFormAbout.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;
 
 end.
- 
+