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

delete menuitem when destroying it from Martin Smat

Browse Source 
git-svn-id: trunk@9022 -
This commit is contained in:
vincents 2006-03-27 07:44:30 +00:00
parent 49646f2597
commit a2f388d27b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -284,6 +284,8 @@ end;
procedure TWin32WSMenuItem.DestroyHandle(const AMenuItem: TMenuItem); procedure TWin32WSMenuItem.DestroyHandle(const AMenuItem: TMenuItem);
begin begin
if Assigned(AMenuItem.Parent) then
DeleteMenu(AMenuItem.Parent.Handle, AMenuItem.Command, MF_BYCOMMAND);
DestroyMenu(AMenuItem.Handle); DestroyMenu(AMenuItem.Handle);
TriggerFormUpdate(AMenuItem); TriggerFormUpdate(AMenuItem);
end; end;