mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 00:18:08 +02:00
130 lines
3.3 KiB
Plaintext
130 lines
3.3 KiB
Plaintext
object StreamDemoForm: TStreamDemoForm
|
|
Left = 292
|
|
Height = 503
|
|
Top = 168
|
|
Width = 601
|
|
HorzScrollBar.Page = 524
|
|
VertScrollBar.Page = 484
|
|
Caption = 'Streaming components example'
|
|
ClientHeight = 503
|
|
ClientWidth = 601
|
|
OnCreate = FormCreate
|
|
LCLVersion = '0.9.31'
|
|
object Note1Label: TLabel
|
|
AnchorSideLeft.Control = SourceGroupBox
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 216
|
|
Height = 35
|
|
Top = 27
|
|
Width = 379
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = 'This example demonstrates, how to stream a component to a stream in binary format ...'
|
|
ParentColor = False
|
|
WordWrap = True
|
|
end
|
|
object Note2Label: TLabel
|
|
AnchorSideLeft.Control = DestinationGroupBox
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = DestinationGroupBox
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 251
|
|
Height = 103
|
|
Top = 378
|
|
Width = 344
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
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 = 69
|
|
ClientWidth = 187
|
|
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 = 378
|
|
Width = 215
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Destination'
|
|
TabOrder = 1
|
|
end
|
|
object WriteToStreamButton: TButton
|
|
Left = 23
|
|
Height = 35
|
|
Top = 130
|
|
Width = 229
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = '1. Write AGroupBox to stream'
|
|
OnClick = WriteToStreamButtonClick
|
|
TabOrder = 2
|
|
end
|
|
object StreamGroupBox: TGroupBox
|
|
Left = 15
|
|
Height = 150
|
|
Top = 170
|
|
Width = 572
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = 'Stream (special characters are shown as hexnumbers)'
|
|
ClientHeight = 129
|
|
ClientWidth = 564
|
|
TabOrder = 3
|
|
object StreamMemo: TMemo
|
|
Left = 0
|
|
Height = 107
|
|
Top = 0
|
|
Width = 564
|
|
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 = 22
|
|
Top = 107
|
|
Width = 564
|
|
Align = alBottom
|
|
Caption = 'Show sream in LFM format (text)'
|
|
OnChange = StreamAsLFMCheckBoxChange
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object ReadStreamButton: TButton
|
|
Left = 25
|
|
Height = 35
|
|
Top = 323
|
|
Width = 254
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = '2. Create component from stream'
|
|
OnClick = ReadStreamButtonClick
|
|
TabOrder = 4
|
|
end
|
|
end
|