paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 16:10:14 +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

3
designer/designer.pp
View File

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