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

IDE: delete form component: checking if it is a nested/inline component

Browse Source 
git-svn-id: trunk@15696 -
This commit is contained in:
mattias 2008-07-07 15:31:08 +00:00
parent 63efe33bc3
commit a1681f0ae4
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/customformeditor.pp
View File

@ -1820,6 +1820,15 @@ begin
if AComponent=nil then exit; if AComponent=nil then exit;
CurRoot:=AComponent.Owner; CurRoot:=AComponent.Owner;
if CurRoot=nil then exit; if CurRoot=nil then exit;
if csInline in CurRoot.ComponentState then begin
// inline/embedded components (e.g. nested frame)
CurRoot:=FindJITComponentByClass(TComponentClass(CurRoot.ClassType));
if CurRoot=nil then exit;
if CurRoot.FindComponent(AComponent.Name)=nil then exit;
Result:=CurRoot;
end;
repeat repeat
// search in next ancestor // search in next ancestor
AncestorRoot:=GetAncestorInstance(CurRoot); AncestorRoot:=GetAncestorInstance(CurRoot);