lazarus/examples/xmlreader/testxmlreaderunit.lfm
mattias 81cbe917e9 examples: testxmlreader, fixed typo
git-svn-id: trunk@51436 -
2016-01-28 12:05:23 +00:00

194 lines
5.0 KiB
Plaintext

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