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

TIdeMenuItem: Remove references from old menu, when releasing

Browse Source 
git-svn-id: trunk@24151 -
This commit is contained in:
martin 2010-03-21 18:03:15 +00:00
parent 55f4c6d87b
commit 6c3b635b27
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ideintf/menuintf.pas
View File

@ -695,6 +695,10 @@ end;
procedure TIDEMenuItem.ClearMenuItems;
begin
if FMenuItem <> nil then begin
FMenuItem.OnClick := nil;
FMenuItem.RemoveHandlerOnDestroy(@MenuItemDestroy);
end;
if AutoFreeMenuItem then begin
FAutoFreeMenuItem:=false;
FMenuItem.Free;