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

notify IDE of deleting menuitems

Browse Source 
git-svn-id: trunk@7611 -
This commit is contained in:
micha 2005-08-31 09:36:28 +00:00
parent b2941a1383
commit 01d68d0be3
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
designer/designermenu.pp
View File

@ -1842,7 +1842,8 @@ begin
if (index_sequence[Ind + 1] = -1) then
begin
//MenuItem.Remove(MenuItem[index_sequence[Ind]]);
MenuItem[index_sequence[Ind]].Free
GlobalDesignHook.PersistentDeleting(MenuItem[index_sequence[Ind]]);
MenuItem[index_sequence[Ind]].Free;
end else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction)
end;
@ -1850,9 +1851,12 @@ begin
8: begin
if (index_sequence[Ind + 1] = -1) then
begin
for i:=0 to (MenuItem[index_sequence[Ind]].Count - 1) do
MenuItem[index_sequence[Ind]].Delete(0);
for i := MenuItem[index_sequence[Ind]].Count - 1 downto 0 do
begin
GlobalDesignHook.PersistentDeleting(MenuItem[index_sequence[Ind]].Items[i]);
MenuItem[index_sequence[Ind]].Delete(i);
//MenuItem[index_sequence[Ind]].Items.Free
end;
end else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction);
end;