* Fixed inline components streaming

git-svn-id: trunk@10599 -

rtl/objpas/classes/writer.inc

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