paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 13:19:21 +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

8
designer/designer.pp
View File

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