From 0060e906c38547a8fa69eed2e8d46ffece968710 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Sun, 29 Oct 2017 14:01:47 +0000
Subject: [PATCH] examples/componentstreaming: Preving explaining labels
 reaching beyond form borders.

git-svn-id: trunk@56227 -
---
 examples/componentstreaming/mainunit.lfm | 40 +++++++++++++-----------
 1 file changed, 22 insertions(+), 18 deletions(-)

diff --git a/examples/componentstreaming/mainunit.lfm b/examples/componentstreaming/mainunit.lfm
index eba317f4e1..a6da08fc89 100644
--- a/examples/componentstreaming/mainunit.lfm
+++ b/examples/componentstreaming/mainunit.lfm
@@ -2,28 +2,32 @@ object CompStreamDemoForm: TCompStreamDemoForm
   Left = 292
   Height = 485
   Top = 168
-  Width = 525
+  Width = 568
   HorzScrollBar.Page = 524
   VertScrollBar.Page = 484
   Caption = 'Streaming components example'
   ClientHeight = 485
-  ClientWidth = 525
+  ClientWidth = 568
   OnCreate = FormCreate
-  LCLVersion = '0.9.29'
+  LCLVersion = '1.9.0.0'
   object Note1Label: TLabel
-    Left = 253
-    Height = 16
+    Left = 264
+    Height = 128
     Top = 27
-    Width = 463
+    Width = 288
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = False
     Caption = 'This example demonstrates, how to stream a component to a stream in binary format ...'
     ParentColor = False
     WordWrap = True
   end
   object Note2Label: TLabel
-    Left = 265
-    Height = 16
-    Top = 325
-    Width = 1269
+    Left = 264
+    Height = 161
+    Top = 308
+    Width = 290
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    AutoSize = False
     Caption = '... and how to reconstruct the component from a stream. This technique can be used to save components to disk or to transfer them via network. Of course this also works for your own classes as long as they are descendants of TComponent.'
     ParentColor = False
     WordWrap = True
@@ -34,7 +38,7 @@ object CompStreamDemoForm: TCompStreamDemoForm
     Top = 25
     Width = 195
     Caption = 'Source'
-    ClientHeight = 72
+    ClientHeight = 70
     ClientWidth = 191
     TabOrder = 0
     object AGroupBox: TGroupBox
@@ -68,17 +72,17 @@ object CompStreamDemoForm: TCompStreamDemoForm
     Left = 15
     Height = 132
     Top = 170
-    Width = 496
+    Width = 539
     Anchors = [akTop, akLeft, akRight, akBottom]
     Caption = 'Stream (special characters are shown as hexnumbers)'
-    ClientHeight = 114
-    ClientWidth = 492
+    ClientHeight = 112
+    ClientWidth = 535
     TabOrder = 3
     object StreamMemo: TMemo
       Left = 0
-      Height = 95
+      Height = 93
       Top = 0
-      Width = 492
+      Width = 535
       Align = alClient
       Lines.Strings = (
         'First click on the button above, then on button below'
@@ -89,8 +93,8 @@ object CompStreamDemoForm: TCompStreamDemoForm
     object StreamAsLFMCheckBox: TCheckBox
       Left = 0
       Height = 19
-      Top = 95
-      Width = 492
+      Top = 93
+      Width = 535
       Align = alBottom
       Caption = 'Show stream in LFM format (text)'
       OnChange = StreamAsLFMCheckBoxChange