Changeset 380 for Common/ULastOpenedList.pas

Timestamp:

Jun 28, 2012, 9:13:06 AM (12 years ago)

Author:

chronos

Message:

• Modified: Removed ClickAction property of TLastOpenedList and moved to LoadToMenuItem function.
• Modofied: TLastOpenedList is now registred component in Samples group.

File:

• Common/ULastOpenedList.pas (modified) (2 diffs)

Common/ULastOpenedList.pas

@@ -20 +20 @@
   public
     Items: TStringList;
-    ClickAction: TNotifyEvent;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    procedure LoadToMenuItem(MenuItem: TMenuItem);
+    procedure LoadToMenuItem(MenuItem: TMenuItem; ClickAction: TNotifyEvent);
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
     procedure AddItem(FileName: string);
+  published
     property MaxCount: Integer read FMaxCount write SetMaxCount;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
   end;
 
+procedure Register;
+
+
 implementation
+
+procedure Register;
+begin
+  RegisterComponents('Samples', [TLastOpenedList]);
+end;
+
 
 { TLastOpenedList }
@@ -62 +71 @@
 end;
 
-procedure TLastOpenedList.LoadToMenuItem(MenuItem: TMenuItem);
+procedure TLastOpenedList.LoadToMenuItem(MenuItem: TMenuItem; ClickAction: TNotifyEvent);
 var
   NewMenuItem: TMenuItem;