paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 01:57:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TLRSObjectWriter.BeginComponent write block if childpos changed

Browse Source 
git-svn-id: trunk@22488 -
This commit is contained in:
mattias 2009-11-08 11:54:33 +00:00
parent 4346679737
commit ab654bf730
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lresources.pp
View File

@ -4434,7 +4434,8 @@ begin
//DebugLn(['TLRSObjectWriter.BeginComponent ',FStackPointer]);
// an inherited child component can be omitted if empty
CanBeOmitted:=(not WriteEmptyInheritedChilds)
and (FStackPointer>0) and (ffInherited in Flags);
and (FStackPointer>0) and (ffInherited in Flags)
and (not (ffChildPos in Flags));
// a component has two lists: properties and childs
Push(Component.Name,Component,2,CanBeOmitted);