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

don't add submenu if already added

Browse Source 
git-svn-id: trunk@5281 -
This commit is contained in:
micha 2004-03-07 12:33:47 +00:00
parent 8f6882a494
commit 1b5ee8830a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designermenu.pp
View File

@ -780,7 +780,7 @@ end;
// ------------------------------------------------------------//
procedure TDesignerMainMenu.AddSubMenuClick(Sender: TObject);
begin
AddSubMenu(Root, SelectedDesignerMenuItem);
if AddSubMenu(Root, SelectedDesignerMenuItem)=nil then exit;
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
Parent.Invalidate;