Changeset 116 for trunk/Packages/Common/UApplicationInfo.pas

Timestamp:

Aug 18, 2021, 5:50:18 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated Common package files.
• Fixed: Translation of About dialog.
• Added: Snap package definition file.
• Modified: Detect different data dir on Linux.

File:

• trunk/Packages/Common/UApplicationInfo.pas (modified) (5 diffs)

trunk/Packages/Common/UApplicationInfo.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Classes, Forms, URegistry, Controls, Graphics;
+  SysUtils, Classes, Forms, URegistry, Controls, Graphics, LCLType;
 
 type
@@ -14 +14 @@
   TApplicationInfo = class(TComponent)
   private
-    FDescription: TCaption;
+    FDescription: TTranslateString;
     FIcon: TBitmap;
     FIdentification: Byte;
@@ -49 +49 @@
     property EmailContact: string read FEmailContact write FEmailContact;
     property AppName: string read FAppName write FAppName;
-    property Description: string read FDescription write FDescription;
+    property Description: TTranslateString read FDescription write FDescription;
     property ReleaseDate: TDateTime read FReleaseDate write FReleaseDate;
     property RegistryKey: string read FRegistryKey write FRegistryKey;
@@ -77 +77 @@
 constructor TApplicationInfo.Create(AOwner: TComponent);
 begin
-  inherited Create(AOwner);
+  inherited;
   FVersionMajor := 1;
   FIdentification := 1;
@@ -89 +89 @@
 begin
   FreeAndNil(FIcon);
-  inherited Destroy;
+  inherited;
 end;