Changeset 75 for trunk/Packages/Common/ApplicationInfo.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (4 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Packages/Common/ApplicationInfo.pas (moved) (moved from trunk/Packages/Common/UApplicationInfo.pas ) (6 diffs)

trunk/Packages/Common/ApplicationInfo.pas

@@ -1 @@
-unit UApplicationInfo;
-
-{$mode delphi}
+unit ApplicationInfo;
 
 interface
 
 uses
-  SysUtils, Registry, Classes, Forms, URegistry;
+  SysUtils, Classes, Forms, RegistryEx, Controls, Graphics, LCLType;
 
 type
@@ -14 +12 @@
   TApplicationInfo = class(TComponent)
   private
+    FDescription: TTranslateString;
+    FIcon: TBitmap;
     FIdentification: Byte;
+    FLicense: string;
     FVersionMajor: Byte;
     FVersionMinor: Byte;
@@ -31 +32 @@
   public
     constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
     property Version: string read GetVersion;
+    function GetRegistryContext: TRegistryContext;
   published
     property Identification: Byte read FIdentification write FIdentification;
@@ -44 +47 @@
     property EmailContact: string read FEmailContact write FEmailContact;
     property AppName: string read FAppName write FAppName;
+    property Description: TTranslateString read FDescription write FDescription;
     property ReleaseDate: TDateTime read FReleaseDate write FReleaseDate;
     property RegistryKey: string read FRegistryKey write FRegistryKey;
     property RegistryRoot: TRegistryRoot read FRegistryRoot write FRegistryRoot;
+    property License: string read FLicense write FLicense;
+    property Icon: TBitmap read FIcon write FIcon;
   end;
 
 procedure Register;
 
+
 implementation
-                        
+
 procedure Register;
 begin
@@ -69 +76 @@
 constructor TApplicationInfo.Create(AOwner: TComponent);
 begin
-  inherited Create(AOwner);
+  inherited;
   FVersionMajor := 1;
   FIdentification := 1;
@@ -75 +82 @@
   FRegistryKey := '\Software\' + FAppName;
   FRegistryRoot := rrKeyCurrentUser;
+  FIcon := TBitmap.Create;
+end;
+
+destructor TApplicationInfo.Destroy;
+begin
+  FreeAndNil(FIcon);
+  inherited;
+end;
+
+function TApplicationInfo.GetRegistryContext: TRegistryContext;
+begin
+  Result := TRegistryContext.Create(RegistryRoot, RegistryKey);
 end;