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

Menu designer: Call GlobalDesignHook.Modified after adding an item. Issue .

Browse Source 
git-svn-id: trunk@54874 -
This commit is contained in:
juha 2017-05-11 09:05:07 +00:00
parent b5251d2152
commit dbe072e701
1 changed files with 3 additions and 2 deletions

5
designer/menueditor.pp
View File

@ -1954,13 +1954,14 @@ begin
newMI.Name:=FShadowMenu.FEditorDesigner.CreateUniqueComponentName(newMI.ClassName);
if isSeparator then
newMI.Caption:=cLineCaption
else newMI.Caption:=newMI.Name;
else
newMI.Caption:=newMI.Name;
existingSI.RealItem.Parent.Insert(idx, newMI);
TShadowItem.CreateWithBoxAndItem(FShadowMenu, existingSI.ParentBox, newMI);
FShadowMenu.UpdateBoxLocationsAndSizes;
FShadowMenu.FDesigner.FGui.AddingItem := True;
GlobalDesignHook.PersistentAdded(newMI, not isSeparator);
//GlobalDesignHook.Modified(newMI);
GlobalDesignHook.Modified(newMI);
FShadowMenu.FDesigner.FGui.AddingItem := False;
FShadowMenu.SetSelectedMenuItem(newMI, False, False);
if not isSeparator then