1
1
object StreamDemoForm: TStreamDemoForm
6
HorzScrollBar.Page = 524
7
VertScrollBar.Page = 484
2
8
Caption = 'Streaming components example'
5
11
OnCreate = FormCreate
7
HorzScrollBar.Page = 524
8
VertScrollBar.Page = 484
13
13
object Note1Label: TLabel
14
AnchorSideLeft.Control = SourceGroupBox
15
AnchorSideLeft.Side = asrBottom
16
AnchorSideRight.Control = Owner
17
AnchorSideRight.Side = asrBottom
22
Anchors = [akTop, akLeft, akRight]
23
BorderSpacing.Left = 6
24
BorderSpacing.Right = 6
14
25
Caption = 'This example demonstrates, how to stream a component to a stream in binary format ...'
16
26
ParentColor = False
23
29
object Note2Label: TLabel
30
AnchorSideLeft.Control = DestinationGroupBox
31
AnchorSideLeft.Side = asrBottom
32
AnchorSideTop.Control = DestinationGroupBox
33
AnchorSideRight.Control = Owner
34
AnchorSideRight.Side = asrBottom
39
Anchors = [akTop, akLeft, akRight]
40
BorderSpacing.Left = 6
41
BorderSpacing.Right = 6
24
42
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.'
26
43
ParentColor = False
33
46
object SourceGroupBox: TGroupBox
42
55
object AGroupBox: TGroupBox
53
64
object DestinationGroupBox: TGroupBox
54
69
Anchors = [akLeft, akBottom]
55
70
Caption = 'Destination'
64
73
object WriteToStreamButton: TButton
65
79
BorderSpacing.InnerBorder = 4
66
80
Caption = '1. Write AGroupBox to stream'
67
81
OnClick = WriteToStreamButtonClick
74
84
object StreamGroupBox: TGroupBox
75
89
Anchors = [akTop, akLeft, akRight, akBottom]
76
90
Caption = 'Stream (special characters are shown as hexnumbers)'
84
94
object StreamMemo: TMemo
87
101
'First click on the button above, then on button below'
94
106
object StreamAsLFMCheckBox: TCheckBox
96
112
Caption = 'Show sream in LFM format (text)'
97
113
OnChange = StreamAsLFMCheckBoxChange
104
117
object ReadStreamButton: TButton
105
122
Anchors = [akLeft, akBottom]
106
124
BorderSpacing.InnerBorder = 4
107
125
Caption = '2. Create component from stream'
108
126
OnClick = ReadStreamButtonClick