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

IDE: fixed freeing nested TComponentInterfaces

Browse Source 
git-svn-id: trunk@15748 -
This commit is contained in:
mattias 2008-07-11 15:31:58 +00:00
parent acc9c7d69c
commit 1b29789902
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/customformeditor.pp
View File

@ -914,6 +914,7 @@ var
i: integer;
AForm: TCustomForm;
AWinControl: TWinControl;
IsJIT: Boolean;
Begin
CompIntf := TComponentInterface(FindComponent(AComponent));
if CompIntf <> nil then
@ -922,8 +923,8 @@ Begin
{$IFDEF IDE_DEBUG}
DebugLn(['TCustomFormEditor.DeleteComponent ',DbgSName(AComponent),' IsJITComponent=',IsJITComponent(AComponent),' FreeComponent=',FreeComponent]);
{$ENDIF}
if IsJITComponent(AComponent) then begin
// value is a top level component
IsJIT:=IsJITComponent(AComponent);
if IsJIT or (csInline in AComponent.ComponentState) then begin
i:=AComponent.ComponentCount-1;
while i>=0 do begin
DeleteComponent(AComponent.Components[i],FreeComponent);
@ -931,8 +932,11 @@ Begin
if i>AComponent.ComponentCount-1 then
i:=AComponent.ComponentCount-1;
end;
if PropertyEditorHook.LookupRoot=AComponent then
PropertyEditorHook.LookupRoot:=nil;
end;
if PropertyEditorHook.LookupRoot=AComponent then
PropertyEditorHook.LookupRoot:=nil;
if IsJITComponent(AComponent) then begin
// value is a top level component
if JITFormList.IsJITForm(AComponent) then begin
// free/unbind a form component
if FreeComponent then