From 783376530dfbf68c084d33b666e03700348032d5 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 15 Apr 2005 07:21:09 +0000
Subject: [PATCH] +  Streaming of subcomponents added by Marc Weustink

---
 rtl/objpas/classes/compon.inc | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/compon.inc b/rtl/objpas/classes/compon.inc
index 949b3b27ae..6ec9a59ae9 100644
--- a/rtl/objpas/classes/compon.inc
+++ b/rtl/objpas/classes/compon.inc
@@ -548,6 +548,14 @@ begin
   SafeCallException:=0;
 end;
 
+procedure TComponent.SetSubComponent(ASubComponent: Boolean);
+begin
+  if ASubComponent then
+    Include(FComponentStyle, csSubComponent)
+  else
+    Exclude(FComponentStyle, csSubComponent);
+end;
+
 
 function TComponent.UpdateAction(Action: TBasicAction): Boolean;
 begin
@@ -583,7 +591,10 @@ end;
 
 {
   $Log$
-  Revision 1.8  2005-02-14 17:13:31  peter
+  Revision 1.9  2005-04-15 07:21:09  michael
+  +  Streaming of subcomponents added by Marc Weustink
+
+  Revision 1.8  2005/02/14 17:13:31  peter
     * truncate log
 
   Revision 1.7  2005/02/02 19:56:11  florian