Changeset 545

Timestamp:

Nov 25, 2020, 12:08:41 PM (3 years ago)

Author:

chronos

Message:

• Added: FormAbout dialog to Common package.

Location:

Common

Files:

• Common.pas (modified) (2 diffs)
• UApplicationInfo.pas (modified) (6 diffs)
• UFormAbout.lfm (added)
• UFormAbout.lrj (added)
• UFormAbout.pas (added)

Common/Common.pas

@@ -12 +12 @@
   UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 
   UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort, 
-  UPersistentForm, UFindFile, UScaleDPI, UTheme, UStringTable, UMetaCanvas, 
-  UGeometric, UTranslator, ULanguages, LazarusPackageIntf;
+  UPersistentForm, UFindFile, UScaleDPI, UTheme, UStringTable, UAboutDialog, 
+  UTranslator, ULanguages, UFormAbout, LazarusPackageIntf;
 
 implementation
@@ -29 +29 @@
   RegisterUnit('UScaleDPI', @UScaleDPI.Register);
   RegisterUnit('UTheme', @UTheme.Register);
+  RegisterUnit('UAboutDialog', @UAboutDialog.Register);
   RegisterUnit('UTranslator', @UTranslator.Register);
 end;

Common/UApplicationInfo.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Classes, Forms, URegistry, Controls;
+  SysUtils, Classes, Forms, URegistry, Controls, Graphics;
 
 type
@@ -15 +15 @@
   private
     FDescription: TCaption;
+    FIcon: TBitmap;
     FIdentification: Byte;
     FLicense: string;
@@ -33 +34 @@
   public
     constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
     property Version: string read GetVersion;
     function GetRegistryContext: TRegistryContext;
@@ -52 +54 @@
     property RegistryRoot: TRegistryRoot read FRegistryRoot write FRegistryRoot;
     property License: string read FLicense write FLicense;
+    property Icon: TBitmap read FIcon write FIcon;
   end;
 
@@ -74 +77 @@
 constructor TApplicationInfo.Create(AOwner: TComponent);
 begin
-  inherited Create(AOwner);
+  inherited;
   FVersionMajor := 1;
   FIdentification := 1;
@@ -80 +83 @@
   FRegistryKey := '\Software\' + FAppName;
   FRegistryRoot := rrKeyCurrentUser;
+  FIcon := TBitmap.Create;
+end;
+
+destructor TApplicationInfo.Destroy;
+begin
+  FreeAndNil(FIcon);
+  inherited;
 end;