Changeset 167 for branches/generator/Packages/Common/UApplicationInfo.pas

Timestamp:

Aug 9, 2018, 3:43:27 PM (6 years ago)

Author:

chronos

Message:

• Modified: Update Common package.
• Fixed: Remember forms dimensions after application restart.

File:

• branches/generator/Packages/Common/UApplicationInfo.pas (modified) (6 diffs)

branches/generator/Packages/Common/UApplicationInfo.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Registry, Classes, Forms, URegistry;
+  SysUtils, Classes, Forms, URegistry, Controls;
 
 type
@@ -14 +14 @@
   TApplicationInfo = class(TComponent)
   private
+    FDescription: TCaption;
     FIdentification: Byte;
     FLicense: string;
@@ -33 +34 @@
     constructor Create(AOwner: TComponent); override;
     property Version: string read GetVersion;
+    function GetRegistryContext: TRegistryContext;
   published
     property Identification: Byte read FIdentification write FIdentification;
@@ -45 +47 @@
     property EmailContact: string read FEmailContact write FEmailContact;
     property AppName: string read FAppName write FAppName;
+    property Description: string read FDescription write FDescription;
     property ReleaseDate: TDateTime read FReleaseDate write FReleaseDate;
     property RegistryKey: string read FRegistryKey write FRegistryKey;
@@ -54 +57 @@
 
 implementation
-                        
+
 procedure Register;
 begin
@@ -79 +82 @@
 end;
 
+function TApplicationInfo.GetRegistryContext: TRegistryContext;
+begin
+  Result := TRegistryContext.Create(RegistryRoot, RegistryKey);
+end;
+
 end.