Changeset 380 for Common

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.

Location:

Common

Files:

• Common.lpk (modified) (1 diff)
• Common.pas (modified) (1 diff)
• ULastOpenedList.pas (modified) (2 diffs)

Common/Common.lpk

@@ -66 +66 @@
       <Item11>
         <Filename Value="ULastOpenedList.pas"/>
+        <HasRegisterProc Value="True"/>
         <UnitName Value="ULastOpenedList"/>
       </Item11>

Common/Common.pas

@@ -17 +17 @@
 begin
   RegisterUnit('UDebugLog', @UDebugLog.Register);
+  RegisterUnit('ULastOpenedList', @ULastOpenedList.Register);
   RegisterUnit('UJobProgressView', @UJobProgressView.Register);
 end;

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;