examples: update component streaming example

git-svn-id: trunk@25055 -

examples/componentstreaming/componentstreaming.lpi

@@ -1,14 +1,19 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
+    <Version Value="7"/>
-    <Version Value="5"/>
     <General>
+      <Flags>
+        <LRSInOutputDirectory Value="False"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
       <TargetFileExt Value=""/>
+      <UseXPManifest Value="True"/>
     </General>
+    <VersionInfo>
+      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion="0.0.0.0"/>
+    </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@@ -33,21 +38,18 @@
       </Unit0>
       <Unit1>
         <Filename Value="mainunit.pas"/>
-        <ComponentName Value="CompStreamDemoForm"/>
         <IsPartOfProject Value="True"/>
-        <ResourceFilename Value="mainunit.lrs"/>
+        <ComponentName Value="CompStreamDemoForm"/>
+        <ResourceBaseClass Value="Form"/>
         <UnitName Value="MainUnit"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="5"/>
+    <Version Value="8"/>
     <SearchPaths>
       <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
     </SearchPaths>
-    <CodeGeneration>
-      <Generate Value="Faster"/>
-    </CodeGeneration>
     <Linking>
       <Options>
         <Win32>

examples/componentstreaming/componentstreaming.lpr

@@ -10,6 +10,8 @@ uses
   Forms
   { add your units here }, MainUnit;
 
+{$R *.res}
+
 begin
   Application.Initialize;
   Application.CreateForm(TCompStreamDemoForm, CompStreamDemoForm);

examples/componentstreaming/mainunit.lfm

@@ -1,115 +1,110 @@
 object CompStreamDemoForm: TCompStreamDemoForm
-  Caption = 'Streaming components example'
-  ClientHeight = 485
-  ClientWidth = 525
-  OnCreate = FormCreate
-  PixelsPerInch = 112
-  HorzScrollBar.Page = 524
-  VertScrollBar.Page = 484
   Left = 292
   Height = 485
   Top = 168
   Width = 525
+  HorzScrollBar.Page = 524
+  VertScrollBar.Page = 484
+  Caption = 'Streaming components example'
+  ClientHeight = 485
+  ClientWidth = 525
+  OnCreate = FormCreate
+  LCLVersion = '0.9.29'
   object Note1Label: TLabel
+    Left = 253
+    Height = 16
+    Top = 27
+    Width = 463
     Caption = 'This example demonstrates, how to stream a component to a stream in binary format ...'
-    Color = clNone
     ParentColor = False
     WordWrap = True
-    Left = 253
-    Height = 133
-    Top = 27
-    Width = 217
   end
   object Note2Label: TLabel
+    Left = 265
+    Height = 16
+    Top = 325
+    Width = 1269
     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.'
-    Color = clNone
     ParentColor = False
     WordWrap = True
-    Left = 265
-    Height = 103
-    Top = 325
-    Width = 228
   end
   object SourceGroupBox: TGroupBox
-    Caption = 'Source'
-    ClientHeight = 73
-    ClientWidth = 191
-    TabOrder = 0
     Left = 15
     Height = 90
     Top = 25
     Width = 195
+    Caption = 'Source'
+    ClientHeight = 72
+    ClientWidth = 191
+    TabOrder = 0
     object AGroupBox: TGroupBox
-      Caption = 'AGroupBox'
-      ClientHeight = 26
-      ClientWidth = 124
-      TabOrder = 0
       Left = 23
       Height = 43
       Top = 15
       Width = 128
+      Caption = 'AGroupBox'
+      TabOrder = 0
     end
   end
   object DestinationGroupBox: TGroupBox
-    Anchors = [akLeft, akBottom]
-    Caption = 'Destination'
-    ClientHeight = 92
-    ClientWidth = 211
-    TabOrder = 1
     Left = 30
     Height = 109
     Top = 360
     Width = 215
+    Anchors = [akLeft, akBottom]
+    Caption = 'Destination'
+    TabOrder = 1
   end
   object WriteToStreamButton: TButton
-    
-    Caption = '1. Write AGroupBox to stream'
-    OnClick = WriteToStreamButtonClick
-    TabOrder = 2
     Left = 23
     Height = 25
     Top = 130
     Width = 197
+    Caption = '1. Write AGroupBox to stream'
+    OnClick = WriteToStreamButtonClick
+    TabOrder = 2
   end
   object StreamGroupBox: TGroupBox
-    Anchors = [akTop, akLeft, akRight, akBottom]
-    Caption = 'Stream (special characters are shown as hexnumbers)'
-    ClientHeight = 115
-    ClientWidth = 492
-    TabOrder = 3
     Left = 15
     Height = 132
     Top = 170
     Width = 496
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Caption = 'Stream (special characters are shown as hexnumbers)'
+    ClientHeight = 114
+    ClientWidth = 492
+    TabOrder = 3
     object StreamMemo: TMemo
+      Left = 0
+      Height = 95
+      Top = 0
+      Width = 492
       Align = alClient
       Lines.Strings = (
         'First click on the button above, then on button below'
       )
       ReadOnly = True
       TabOrder = 0
-      Height = 91
-      Width = 492
     end
     object StreamAsLFMCheckBox: TCheckBox
+      Left = 0
+      Height = 19
+      Top = 95
+      Width = 492
       Align = alBottom
       Caption = 'Show sream in LFM format (text)'
       OnChange = StreamAsLFMCheckBoxChange
       TabOrder = 1
-      Height = 24
-      Top = 91
-      Width = 492
     end
   end
   object ReadStreamButton: TButton
-    Anchors = [akLeft, akBottom]
-    
-    Caption = '2. Create component from stream'
-    OnClick = ReadStreamButtonClick
-    TabOrder = 4
     Left = 25
     Height = 24
     Top = 316
     Width = 215
+    Anchors = [akLeft, akBottom]
+    Caption = '2. Create component from stream'
+    OnClick = ReadStreamButtonClick
+    TabOrder = 4
   end
 end

examples/componentstreaming/mainunit.pas

@@ -43,6 +43,8 @@ var
 
 implementation
 
+{$R *.lfm}
+
 { TCompStreamDemoForm }
 
 procedure TCompStreamDemoForm.WriteToStreamButtonClick(Sender: TObject);
@@ -169,8 +171,5 @@ begin
     ComponentClass:=TCheckBox;
 end;
 
-initialization
-  {$I mainunit.lrs}
-
 end.