paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

designer: BuildPopupMenu must reassign DesignerMenuRoot and all events (fixes bug #0011278)

Browse Source 
git-svn-id: trunk@18750 -
This commit is contained in:
paul 2009-02-18 15:36:14 +00:00
parent 69610334ef
commit ce5bc947cf
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
designer/designer.pp
View File

@ -2755,15 +2755,17 @@ end;
procedure TDesigner.BuildPopupMenu;
begin
if DesignerPopupMenu<>nil then exit;
DesignerPopupMenu:=TPopupMenu.Create(nil);
with DesignerPopupMenu do
if DesignerPopupMenu = nil then
begin
Name := 'DesignerPopupmenu';
OnPopup := @DesignerPopupMenuPopup;
Images := IDEImages.Images_16;
DesignerPopupMenu:=TPopupMenu.Create(nil);
with DesignerPopupMenu do
begin
Name := 'DesignerPopupmenu';
OnPopup := @DesignerPopupMenuPopup;
Images := IDEImages.Images_16;
end;
end;
// assign the root TMenuItem to the registered menu root.
// This will automatically create all registered items
@ -2771,7 +2773,7 @@ begin
DesignerPopupMenu.Items.WriteDebugReport('TSourceNotebook.BuildPopupMenu ');
DesignerMenuRoot.ConsistencyCheck;
{$ENDIF}
DesignerMenuRoot.MenuItem:=DesignerPopupMenu.Items;
DesignerMenuRoot.MenuItem := DesignerPopupMenu.Items;
DesignerMenuAlign.OnClick := @OnAlignPopupMenuClick;
DesignerMenuMirrorHorizontal.OnClick := @OnMirrorHorizontalPopupMenuClick;