paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:22:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

added menu component editor from Olivier

Browse Source 
git-svn-id: trunk@3996 -
This commit is contained in:
mattias 2003-04-01 23:35:28 +00:00
parent ea9a0852aa
commit 7c154dbb4e
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/componenteditors.pas
View File

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

6
designer/controlselection.pp
View File

@ -1916,7 +1916,8 @@ var
begin begin
if (Count=0) or (FCustomForm=nil) 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; Diff:=DC.FormOrigin;
@ -1976,7 +1977,8 @@ begin
if (Count<2) if (Count<2)
or (FCustomForm=nil) or (FCustomForm=nil)
or (AComponent.Owner<>DC.Form) 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); GetComponentBounds(AComponent,CompLeft,CompTop,CompWidth,CompHeight);
CompOrigin:=GetParentFormRelativeParentClientOrigin(AComponent); CompOrigin:=GetParentFormRelativeParentClientOrigin(AComponent);