paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

menu designer: open the designer for the correct menu (bug #7443), from Paul

Browse Source 
git-svn-id: trunk@10973 -
This commit is contained in:
vincents 2007-04-19 09:25:22 +00:00
parent 946c1b17f0
commit 3b5518415e
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
designer/menueditorform.pas
View File

@ -191,9 +191,6 @@ begin
height:=220;
position:=poDesktopCenter;
fMenu:=aMenu;
fDesigner:=FindRootDesigner(fMenu) as TComponentEditorDesigner;
Cmp2:=TScrollBox.Create(self);
with Cmp2 do
begin
@ -243,8 +240,7 @@ begin
Panel:=Cmp;
UpdateListOfMenus;
CreateDesignerMenu;
SetMenu(aMenu);
GlobalDesignHook.AddHandlerPersistentDeleting(@OnPersistentDeleting);
GlobalDesignHook.AddHandlerPersistentAdded(@OnPersistentAdded);
@ -283,11 +279,15 @@ end;
procedure TMainMenuEditorForm.SetMenu(NewMenu: TMenu);
begin
if NewMenu=fMenu then exit;
DesignerMainMenu.Free;
DesignerMainMenu:=nil;
fMenu:=NewMenu;
CreateDesignerMenu;
if NewMenu <> fMenu then
begin
DesignerMainMenu.Free;
DesignerMainMenu := nil;
fMenu := NewMenu;
fDesigner := FindRootDesigner(fMenu) as TComponentEditorDesigner;
UpdateListOfMenus;
CreateDesignerMenu;
end;
end;
procedure TMainMenuEditorForm.Paint;