implemented Edit verb for default and menu component editors

git-svn-id: trunk@4905 -

designer/componenteditors.pas

@@ -184,6 +184,9 @@ type
       var Continue: Boolean); virtual;
   public
     procedure Edit; override;
+    function GetVerbCount: Integer; override;
+    function GetVerb(Index: Integer): string; override;
+    procedure ExecuteVerb(Index: Integer); override;
   end;
   
 { TNotebookComponentEditor
@@ -446,6 +449,21 @@ begin
   end;
 end;
 
+function TDefaultComponentEditor.GetVerbCount: Integer;
+begin
+  Result:=1;
+end;
+
+function TDefaultComponentEditor.GetVerb(Index: Integer): string;
+begin
+  Result:='Edit';
+end;
+
+procedure TDefaultComponentEditor.ExecuteVerb(Index: Integer);
+begin
+  Edit;
+end;
+
 
 { TNotebookComponentEditor }
 

designer/menueditorform.pas

@@ -75,6 +75,9 @@ type
     destructor Destroy; override;
     procedure Edit; override;
     property Menu: TMainMenu read fMenu write fMenu;
+    function GetVerbCount: Integer; override;
+    function GetVerb(Index: Integer): string; override;
+    procedure ExecuteVerb(Index: Integer); override;
   end;
 
 var
@@ -266,6 +269,21 @@ begin
   //MainMenuEditorForm.Free;
 end;
 
+function TMainMenuComponentEditor.GetVerbCount: Integer;
+begin
+  Result:=1;
+end;
+
+function TMainMenuComponentEditor.GetVerb(Index: Integer): string;
+begin
+  Result:='Edit';
+end;
+
+procedure TMainMenuComponentEditor.ExecuteVerb(Index: Integer);
+begin
+  Edit;
+end;
+
 { //TMainMenuComponentEditor}
 
 initialization