PageRenderTime 4ms CodeModel.GetById 2ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 1ms

/examples/componentstreaming/mainunit.lfm

http://github.com/graemeg/lazarus
Unknown | 110 lines | 110 code | 0 blank | 0 comment | 0 complexity | b1ba90b19ad682157c0396fb9c202dfc MD5 | raw file
  1object CompStreamDemoForm: TCompStreamDemoForm
  2  Left = 292
  3  Height = 485
  4  Top = 168
  5  Width = 525
  6  HorzScrollBar.Page = 524
  7  VertScrollBar.Page = 484
  8  Caption = 'Streaming components example'
  9  ClientHeight = 485
 10  ClientWidth = 525
 11  OnCreate = FormCreate
 12  LCLVersion = '0.9.29'
 13  object Note1Label: TLabel
 14    Left = 253
 15    Height = 16
 16    Top = 27
 17    Width = 463
 18    Caption = 'This example demonstrates, how to stream a component to a stream in binary format ...'
 19    ParentColor = False
 20    WordWrap = True
 21  end
 22  object Note2Label: TLabel
 23    Left = 265
 24    Height = 16
 25    Top = 325
 26    Width = 1269
 27    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.'
 28    ParentColor = False
 29    WordWrap = True
 30  end
 31  object SourceGroupBox: TGroupBox
 32    Left = 15
 33    Height = 90
 34    Top = 25
 35    Width = 195
 36    Caption = 'Source'
 37    ClientHeight = 72
 38    ClientWidth = 191
 39    TabOrder = 0
 40    object AGroupBox: TGroupBox
 41      Left = 23
 42      Height = 43
 43      Top = 15
 44      Width = 128
 45      Caption = 'AGroupBox'
 46      TabOrder = 0
 47    end
 48  end
 49  object DestinationGroupBox: TGroupBox
 50    Left = 30
 51    Height = 109
 52    Top = 360
 53    Width = 215
 54    Anchors = [akLeft, akBottom]
 55    Caption = 'Destination'
 56    TabOrder = 1
 57  end
 58  object WriteToStreamButton: TButton
 59    Left = 23
 60    Height = 25
 61    Top = 130
 62    Width = 197
 63    Caption = '1. Write AGroupBox to stream'
 64    OnClick = WriteToStreamButtonClick
 65    TabOrder = 2
 66  end
 67  object StreamGroupBox: TGroupBox
 68    Left = 15
 69    Height = 132
 70    Top = 170
 71    Width = 496
 72    Anchors = [akTop, akLeft, akRight, akBottom]
 73    Caption = 'Stream (special characters are shown as hexnumbers)'
 74    ClientHeight = 114
 75    ClientWidth = 492
 76    TabOrder = 3
 77    object StreamMemo: TMemo
 78      Left = 0
 79      Height = 95
 80      Top = 0
 81      Width = 492
 82      Align = alClient
 83      Lines.Strings = (
 84        'First click on the button above, then on button below'
 85      )
 86      ReadOnly = True
 87      TabOrder = 0
 88    end
 89    object StreamAsLFMCheckBox: TCheckBox
 90      Left = 0
 91      Height = 19
 92      Top = 95
 93      Width = 492
 94      Align = alBottom
 95      Caption = 'Show stream in LFM format (text)'
 96      OnChange = StreamAsLFMCheckBoxChange
 97      TabOrder = 1
 98    end
 99  end
100  object ReadStreamButton: TButton
101    Left = 25
102    Height = 24
103    Top = 316
104    Width = 215
105    Anchors = [akLeft, akBottom]
106    Caption = '2. Create component from stream'
107    OnClick = ReadStreamButtonClick
108    TabOrder = 4
109  end
110end