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

IDE: menu designer: free shadowmenu via releasecomponent

Browse Source 
git-svn-id: trunk@54857 -
This commit is contained in:
mattias 2017-05-10 15:28:41 +00:00
parent 379ed5300f
commit 9c8fc2ffde
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;
begin
FreeAndNil(FShadowMenu);
if FShadowMenu=nil then exit;
FShadowMenu.Parent:=nil;
Application.ReleaseComponent(FShadowMenu);
FShadowMenu:=nil;
end;
procedure TMenuDesignerBase.UpdateTemplatesCount;
begin
FTemplatesSaved:=SavedTemplatesExist;
DebugLn('SavedTemplatesExist is %s',[booltostr(FTemplatesSaved)]);
DebugLn('Hint: (lazarus) [TMenuDesignerBase.UpdateTemplatesCount] SavedTemplatesExist is %s',[booltostr(FTemplatesSaved)]);
FSavedTemplatesCount:=GetSavedTemplatesCount;
end;