Commit 9c8fc2ff authored by Mattias Gaertner's avatar Mattias Gaertner 🙃
Browse files

IDE: menu designer: free shadowmenu via releasecomponent

git-svn-id: trunk@54857 -
parent 379ed530
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment