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

IDE: when hiding an used designer component: free/hide the form

Browse Source 
git-svn-id: trunk@22341 -
This commit is contained in:
mattias 2009-10-29 14:47:36 +00:00
parent c12d17af61
commit 58cb88ebb3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/designer.pp
View File

@ -533,8 +533,7 @@ begin
Form.Designer := nil; Form.Designer := nil;
if FMediator<>nil then if FMediator<>nil then
FMediator.Designer:=nil; FMediator.Designer:=nil;
if FreeComponent then TheFormEditor.DeleteComponent(FLookupRoot,FreeComponent);
TheFormEditor.DeleteComponent(FLookupRoot,true);
FMediator:=nil; FMediator:=nil;
end; end;
Free; Free;