lazarus/examples/componentstreaming/mainunit.lfm

object CompStreamDemoForm: TCompStreamDemoForm
  Left = 292
  Height = 485
  Top = 168
  Width = 568
  HorzScrollBar.Page = 524
  VertScrollBar.Page = 484
  Caption = 'Streaming components example'
  ClientHeight = 485
  ClientWidth = 568
  OnCreate = FormCreate
  LCLVersion = '1.9.0.0'
  object Note1Label: TLabel
    Left = 264
    Height = 128
    Top = 27
    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 = 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
  end
  object SourceGroupBox: TGroupBox
    Left = 15
    Height = 90
    Top = 25
    Width = 195
    Caption = 'Source'
    ClientHeight = 70
    ClientWidth = 191
    TabOrder = 0
    object AGroupBox: TGroupBox
      Left = 23
      Height = 43
      Top = 15
      Width = 128
      Caption = 'AGroupBox'
      TabOrder = 0
    end
  end
  object DestinationGroupBox: TGroupBox
    Left = 30
    Height = 109
    Top = 360
    Width = 215
    Anchors = [akLeft, akBottom]
    Caption = 'Destination'
    TabOrder = 1
  end
  object WriteToStreamButton: TButton
    Left = 23
    Height = 25
    Top = 130
    Width = 197
    Caption = '1. Write AGroupBox to stream'
    OnClick = WriteToStreamButtonClick
    TabOrder = 2
  end
  object StreamGroupBox: TGroupBox
    Left = 15
    Height = 132
    Top = 170
    Width = 539
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'Stream (special characters are shown as hexnumbers)'
    ClientHeight = 112
    ClientWidth = 535
    TabOrder = 3
    object StreamMemo: TMemo
      Left = 0
      Height = 93
      Top = 0
      Width = 535
      Align = alClient
      Lines.Strings = (
        'First click on the button above, then on button below'
      )
      ReadOnly = True
      TabOrder = 0
    end
    object StreamAsLFMCheckBox: TCheckBox
      Left = 0
      Height = 19
      Top = 93
      Width = 535
      Align = alBottom
      Caption = 'Show stream in LFM format (text)'
      OnChange = StreamAsLFMCheckBoxChange
      TabOrder = 1
    end
  end
  object ReadStreamButton: TButton
    Left = 25
    Height = 24
    Top = 316
    Width = 215
    Anchors = [akLeft, akBottom]
    Caption = '2. Create component from stream'
    OnClick = ReadStreamButtonClick
    TabOrder = 4
  end
end