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

IDE: designer: writing nested inherited components

Browse Source 
git-svn-id: trunk@15244 -
This commit is contained in:
mattias 2008-05-26 16:40:21 +00:00
parent 6a7677946e
commit 1352a93e6e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/customformeditor.pp
View File

@ -1767,8 +1767,10 @@ begin
// Component is a nested, inline component
// the stream ancestor is the component of the class
end;
if (AnUnitInfo<>nil) and (AnUnitInfo.Component<>nil) then
if (AnUnitInfo<>nil) and (AnUnitInfo.Component<>nil) then begin
Ancestor:=AnUnitInfo.Component;
RootAncestor:=AnUnitInfo.Component;
end;
DebugLn(['TCustomFormEditor.WriterFindAncestor Component=',DbgSName(Component),' Ancestor=',DbgSName(Ancestor)]);
end;
end;