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

* Fixed inline components streaming

Browse Source 
git-svn-id: trunk@10599 -
This commit is contained in:
michael 2008-04-03 08:33:06 +00:00
parent 86cf39ac1b
commit 618c2ee4f9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/writer.inc
View File

@ -597,6 +597,8 @@ begin
Flags := []; Flags := [];
If Assigned(FAncestor) then If Assigned(FAncestor) then
Flags:=[ffInherited]; Flags:=[ffInherited];
if csInline in Instance.ComponentState then
Flags:=Flags+[ffInline];
FDriver.BeginComponent(Instance,Flags, Dummy); FDriver.BeginComponent(Instance,Flags, Dummy);
WriteProperties(Instance); WriteProperties(Instance);
WriteListEnd; WriteListEnd;