Changeset 456
- Timestamp:
- Nov 28, 2012, 7:46:07 AM (12 years ago)
- Location:
- Common
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/Common.lpk
r432 r456 22 22 <License Value="GNU/GPL"/> 23 23 <Version Minor="7"/> 24 <Files Count="1 7">24 <Files Count="18"> 25 25 <Item1> 26 26 <Filename Value="StopWatch.pas"/> … … 95 95 <UnitName Value="UListViewSort"/> 96 96 </Item17> 97 <Item18> 98 <Filename Value="UPersistentForm.pas"/> 99 <HasRegisterProc Value="True"/> 100 <UnitName Value="UPersistentForm"/> 101 </Item18> 97 102 </Files> 98 103 <i18n> -
Common/Common.pas
r432 r456 11 11 UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 12 12 UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort, 13 LazarusPackageIntf;13 UPersistentForm, LazarusPackageIntf; 14 14 15 15 implementation … … 21 21 RegisterUnit('UJobProgressView', @UJobProgressView.Register); 22 22 RegisterUnit('UApplicationInfo', @UApplicationInfo.Register); 23 RegisterUnit('UPersistentForm', @UPersistentForm.Register); 23 24 end; 24 25 -
Common/UDebugLog.pas
r372 r456 31 31 Items: TListObject; 32 32 Lock: TCriticalSection; 33 procedure Add( Group: string; Text: string);33 procedure Add(Text: string; Group: string = ''); 34 34 procedure WriteToFile(Text: string); 35 35 constructor Create(AOwner: TComponent); override; … … 69 69 end; 70 70 71 procedure TDebugLog.Add( Group: string; Text: string);71 procedure TDebugLog.Add(Text: string; Group: string = ''); 72 72 var 73 73 NewItem: TDebugLogItem; -
Common/URegistry.pas
r434 r456 17 17 rrKeyDynData = HKEY($80000006)); 18 18 19 { TRegistryContext } 20 19 21 TRegistryContext = record 20 22 RootKey: HKEY; 21 23 Key: string; 24 class operator Equal(A, B: TRegistryContext): Boolean; 22 25 end; 23 26 … … 49 52 Result.RootKey := RootKey; 50 53 Result.Key := Key; 54 end; 55 56 { TRegistryContext } 57 58 class operator TRegistryContext.Equal(A, B: TRegistryContext): Boolean; 59 begin 60 Result := (A.Key = B.Key) and (A.RootKey = B.RootKey); 51 61 end; 52 62
Note:
See TracChangeset
for help on using the changeset viewer.