mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-30 17:42:50 +02:00
111 lines
2.6 KiB
Plaintext
111 lines
2.6 KiB
Plaintext
object CompStreamDemoForm: TCompStreamDemoForm
|
|
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 ...'
|
|
ParentColor = False
|
|
WordWrap = True
|
|
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.'
|
|
ParentColor = False
|
|
WordWrap = True
|
|
end
|
|
object SourceGroupBox: TGroupBox
|
|
Left = 15
|
|
Height = 90
|
|
Top = 25
|
|
Width = 195
|
|
Caption = 'Source'
|
|
ClientHeight = 72
|
|
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 = 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
|
|
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
|
|
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
|