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

IDE: menu designer: free shadowmenu via releasecomponent

Browse Source 
git-svn-id: branches/fixes_1_8@54858 -
This commit is contained in:
mattias 2017-05-10 15:29:09 +00:00
parent d83b75d17a
commit de3c0e65dc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/menudesignerbase.pas
View File

@ -303,13 +303,16 @@ end;
procedure TMenuDesignerBase.FreeShadowMenu; procedure TMenuDesignerBase.FreeShadowMenu;
begin begin
FreeAndNil(FShadowMenu); if FShadowMenu=nil then exit;
FShadowMenu.Parent:=nil;
Application.ReleaseComponent(FShadowMenu);
FShadowMenu:=nil;
end; end;
procedure TMenuDesignerBase.UpdateTemplatesCount; procedure TMenuDesignerBase.UpdateTemplatesCount;
begin begin
FTemplatesSaved:=SavedTemplatesExist; FTemplatesSaved:=SavedTemplatesExist;
DebugLn('SavedTemplatesExist is %s',[booltostr(FTemplatesSaved)]); DebugLn('Hint: (lazarus) [TMenuDesignerBase.UpdateTemplatesCount] SavedTemplatesExist is %s',[booltostr(FTemplatesSaved)]);
FSavedTemplatesCount:=GetSavedTemplatesCount; FSavedTemplatesCount:=GetSavedTemplatesCount;
end; end;