1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
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
|
