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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
object XMLReaderForm: TXMLReaderForm
Left = 312
Height = 381
Top = 119
Width = 732
ActiveControl = Panel1
Caption = 'XML reader test'
ClientHeight = 381
ClientWidth = 732
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.7'
object TreeView1: TTreeView
Left = 0
Height = 316
Top = 65
Width = 342
Align = alLeft
AutoExpand = True
DefaultItemHeight = 18
ReadOnly = True
TabOrder = 0
OnClick = TreeView1Click
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
end
object Panel1: TPanel
Left = 0
Height = 65
Top = 0
Width = 732
Align = alTop
AutoSize = True
ClientHeight = 65
ClientWidth = 732
TabOrder = 1
object BitBtn1: TBitBtn
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 665
Height = 30
Top = 28
Width = 60
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Load'
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
EEEEEE000000EEEEEEEEEEEEEEEEEE000000EE00000000000EEEEE000000EE00
3333333330EEEE000000EE0B03333333330EEE000000EE0FB03333333330EE00
0000EE0BFB03333333330E000000EE0FBFB00000000000000000EE0BFBFBFBFB
0EEEEE000000EE0FBFBFBFBF0EEEEE000000EE0BFB0000000EEEEE000000EEE0
00EEEEEEEE000E000000EEEEEEEEEEEEEEE00E000000EEEEEEEEEE0EEE0E0E00
0000EEEEEEEEEEE000EEEE000000EEEEEEEEEEEEEEEEEE000000EEEEEEEEEEEE
EEEEEE000000EEEEEEEEEEEEEEEEEE000000
}
OnClick = BitBtn1Click
TabOrder = 0
end
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 7
Height = 15
Top = 7
Width = 52
BorderSpacing.Around = 6
Caption = 'File name'
ParentColor = False
end
object FileNameEdit1: TFileNameEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 13
Height = 25
Top = 28
Width = 620
FileName = 'test.xml'
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
MaxLength = 0
TabOrder = 1
Text = 'test.xml'
end
end
object Splitter1: TSplitter
Left = 342
Height = 316
Top = 65
Width = 5
end
object Panel2: TPanel
Left = 347
Height = 316
Top = 65
Width = 385
Align = alClient
Caption = 'Panel2'
ClientHeight = 316
ClientWidth = 385
TabOrder = 3
object ListView1: TListView
AnchorSideTop.Control = Edit2
AnchorSideTop.Side = asrBottom
Left = 1
Height = 204
Top = 111
Width = 383
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
Columns = <
item
Caption = 'Name'
Width = 100
end
item
Caption = 'Value'
Width = 350
end>
SortType = stText
TabOrder = 0
ViewStyle = vsReport
end
object Label2: TLabel
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
Left = 7
Height = 15
Top = 7
Width = 63
BorderSpacing.Around = 6
Caption = 'Node name'
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Edit1
AnchorSideTop.Side = asrBottom
Left = 7
Height = 15
Top = 59
Width = 62
BorderSpacing.Around = 6
Caption = 'Node value'
ParentColor = False
end
object Edit1: TEdit
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom
Left = 13
Height = 25
Top = 28
Width = 365
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 1
Text = 'Edit1'
end
object Edit2: TEdit
AnchorSideLeft.Control = Label3
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom
Left = 13
Height = 25
Top = 80
Width = 365
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 2
Text = 'Edit2'
end
end
end
|
