- Timestamp:
- Nov 25, 2020, 12:08:41 PM (4 years ago)
- Location:
- Common
- Files:
-
- 3 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/Common.pas
r541 r545 12 12 UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 13 13 UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort, 14 UPersistentForm, UFindFile, UScaleDPI, UTheme, UStringTable, U MetaCanvas,15 U Geometric, UTranslator, ULanguages, LazarusPackageIntf;14 UPersistentForm, UFindFile, UScaleDPI, UTheme, UStringTable, UAboutDialog, 15 UTranslator, ULanguages, UFormAbout, LazarusPackageIntf; 16 16 17 17 implementation … … 29 29 RegisterUnit('UScaleDPI', @UScaleDPI.Register); 30 30 RegisterUnit('UTheme', @UTheme.Register); 31 RegisterUnit('UAboutDialog', @UAboutDialog.Register); 31 32 RegisterUnit('UTranslator', @UTranslator.Register); 32 33 end; -
Common/UApplicationInfo.pas
r511 r545 6 6 7 7 uses 8 SysUtils, Classes, Forms, URegistry, Controls ;8 SysUtils, Classes, Forms, URegistry, Controls, Graphics; 9 9 10 10 type … … 15 15 private 16 16 FDescription: TCaption; 17 FIcon: TBitmap; 17 18 FIdentification: Byte; 18 19 FLicense: string; … … 33 34 public 34 35 constructor Create(AOwner: TComponent); override; 36 destructor Destroy; override; 35 37 property Version: string read GetVersion; 36 38 function GetRegistryContext: TRegistryContext; … … 52 54 property RegistryRoot: TRegistryRoot read FRegistryRoot write FRegistryRoot; 53 55 property License: string read FLicense write FLicense; 56 property Icon: TBitmap read FIcon write FIcon; 54 57 end; 55 58 … … 74 77 constructor TApplicationInfo.Create(AOwner: TComponent); 75 78 begin 76 inherited Create(AOwner);79 inherited; 77 80 FVersionMajor := 1; 78 81 FIdentification := 1; … … 80 83 FRegistryKey := '\Software\' + FAppName; 81 84 FRegistryRoot := rrKeyCurrentUser; 85 FIcon := TBitmap.Create; 86 end; 87 88 destructor TApplicationInfo.Destroy; 89 begin 90 FreeAndNil(FIcon); 91 inherited; 82 92 end; 83 93
Note:
See TracChangeset
for help on using the changeset viewer.