Changeset 380
- Timestamp:
- Jun 28, 2012, 9:13:06 AM (12 years ago)
- Location:
- Common
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/Common.lpk
r378 r380 66 66 <Item11> 67 67 <Filename Value="ULastOpenedList.pas"/> 68 <HasRegisterProc Value="True"/> 68 69 <UnitName Value="ULastOpenedList"/> 69 70 </Item11> -
Common/Common.pas
r378 r380 17 17 begin 18 18 RegisterUnit('UDebugLog', @UDebugLog.Register); 19 RegisterUnit('ULastOpenedList', @ULastOpenedList.Register); 19 20 RegisterUnit('UJobProgressView', @UJobProgressView.Register); 20 21 end; -
Common/ULastOpenedList.pas
r374 r380 20 20 public 21 21 Items: TStringList; 22 ClickAction: TNotifyEvent;23 22 constructor Create(AOwner: TComponent); override; 24 23 destructor Destroy; override; 25 procedure LoadToMenuItem(MenuItem: TMenuItem );24 procedure LoadToMenuItem(MenuItem: TMenuItem; ClickAction: TNotifyEvent); 26 25 procedure LoadFromRegistry(Root: HKEY; Key: string); 27 26 procedure SaveToRegistry(Root: HKEY; Key: string); 28 27 procedure AddItem(FileName: string); 28 published 29 29 property MaxCount: Integer read FMaxCount write SetMaxCount; 30 30 property OnChange: TNotifyEvent read FOnChange write FOnChange; 31 31 end; 32 32 33 procedure Register; 34 35 33 36 implementation 37 38 procedure Register; 39 begin 40 RegisterComponents('Samples', [TLastOpenedList]); 41 end; 42 34 43 35 44 { TLastOpenedList } … … 62 71 end; 63 72 64 procedure TLastOpenedList.LoadToMenuItem(MenuItem: TMenuItem );73 procedure TLastOpenedList.LoadToMenuItem(MenuItem: TMenuItem; ClickAction: TNotifyEvent); 65 74 var 66 75 NewMenuItem: TMenuItem;
Note:
See TracChangeset
for help on using the changeset viewer.