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

Merged revision(s) 49172 #b8503e1976 from trunk:

Browse Source 
Menueditor: Fix error when moving menu items. Issue #27849, patch from Michl.
........

git-svn-id: branches/fixes_1_4@49186 -
This commit is contained in:
maxim 2015-05-26 22:36:51 +00:00
parent 7f751df65d
commit 1a0133d9d2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designermenu.pp
View File

@ -1991,6 +1991,8 @@ begin
DMenuItem.NextItem:=TempMI;
if (DMenuItem.ParentMenu <> nil) then
DMenuItem.ParentMenu.SubMenu:=DMenuItem;
if (TempMI.NextItem <> nil) then
TempMI.NextItem.PrevItem:=TempMI;
if (DMenuItem.PrevItem <> nil) then
DMenuItem.PrevItem.NextItem:=DMenuItem;
Result:=1;