added menu component editor from Olivier

git-svn-id: trunk@3996 -

designer/componenteditors.pas

@@ -399,6 +399,7 @@ var
   end;
 
 begin
+  Continue:=false;
   if not Assigned(FFirst)
   and (Prop is TMethodPropertyEditor) then
     FFirst := Prop;

designer/controlselection.pp

@@ -1916,8 +1916,9 @@ var
   
 begin
   if (Count=0) or (FCustomForm=nil)
-  or IsSelected(FCustomForm) then exit;
-  
+  or IsSelected(FCustomForm)
+  or (Items[0].Component is TMenuItem) then exit;
+
   Diff:=DC.FormOrigin;
 
   {writeln('[DrawGrabbers] '
@@ -1976,7 +1977,8 @@ begin
   if (Count<2)
   or (FCustomForm=nil)
   or (AComponent.Owner<>DC.Form)
-  or (not IsSelected(AComponent)) then exit;
+  or (not IsSelected(AComponent))
+  or (AComponent is TMenuItem) then exit;
   
   GetComponentBounds(AComponent,CompLeft,CompTop,CompWidth,CompHeight);
   CompOrigin:=GetParentFormRelativeParentClientOrigin(AComponent);

designer/objectinspector.pp

@@ -35,7 +35,7 @@ uses
   Forms, SysUtils, Buttons, Classes, Graphics, GraphType, StdCtrls, LCLType,
   LCLLinux, LMessages, Controls, ComCtrls, ExtCtrls, TypInfo, Messages,
   LResources, Laz_XMLCfg, Menus, Dialogs, ObjInspStrConsts,
-  PropEdits, GraphPropEdits, ListViewPropEdit,ImageListEditor;
+  PropEdits, GraphPropEdits, ListViewPropEdit, ImageListEditor;
 
 
 type