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
|
object CompStreamDemoForm: TCompStreamDemoForm
Left = 292
Height = 485
Top = 168
Width = 568
HorzScrollBar.Page = 524
VertScrollBar.Page = 484
Caption = 'Streaming components example'
ClientHeight = 485
ClientWidth = 568
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
object Note1Label: TLabel
Left = 264
Height = 128
Top = 27
Width = 288
Anchors = [akTop, akLeft, akRight]
AutoSize = False
Caption = 'This example demonstrates, how to stream a component to a stream in binary format ...'
ParentColor = False
WordWrap = True
end
object Note2Label: TLabel
Left = 264
Height = 161
Top = 308
Width = 290
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
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 = 70
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 = 539
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Stream (special characters are shown as hexnumbers)'
ClientHeight = 112
ClientWidth = 535
TabOrder = 3
object StreamMemo: TMemo
Left = 0
Height = 93
Top = 0
Width = 535
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 = 93
Width = 535
Align = alBottom
Caption = 'Show stream 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
|
