paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 20:20:29 +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); procedure TDesignerMainMenu.AddSubMenuClick(Sender: TObject);
begin begin
AddSubMenu(Root, SelectedDesignerMenuItem); if AddSubMenu(Root, SelectedDesignerMenuItem)=nil then exit;
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root); SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
Parent.Invalidate; Parent.Invalidate;