IDEIntf: improved layout of TTreeViewItemsEditorForm

git-svn-id: trunk@16115 -
This commit is contained in:
mattias 2008-08-18 12:25:29 +00:00
parent d53bf25da1
commit 5c24bd8b02
3 changed files with 227 additions and 194 deletions

View File

@ -1,85 +1,35 @@
object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
Left = 304
Height = 261
Height = 320
Top = 189
Width = 510
HorzScrollBar.Page = 509
VertScrollBar.Page = 260
ActiveControl = BtnOK
Width = 536
BorderIcons = [biSystemMenu, biHelp]
Caption = 'TreeView Items Editor'
ClientHeight = 261
ClientWidth = 510
ClientHeight = 320
ClientWidth = 536
Constraints.MinHeight = 240
Constraints.MinWidth = 400
OnCreate = FormCreate
Position = poScreenCenter
object BtnOK: TBitBtn
Left = 189
Height = 25
Top = 229
Width = 75
Anchors = [akRight, akBottom]
Caption = '&OK'
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 0
end
object BtnCancel: TBitBtn
Left = 269
Height = 25
Top = 229
Width = 75
Anchors = [akRight, akBottom]
Cancel = True
Caption = 'Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 1
end
object BtnApply: TBitBtn
Left = 349
Height = 25
Top = 229
Width = 75
Anchors = [akRight, akBottom]
Caption = '&Apply'
NumGlyphs = 0
OnClick = btnApplyClick
TabOrder = 2
end
object BtnHelp: TBitBtn
Left = 429
Height = 25
Top = 229
Width = 75
Anchors = [akRight, akBottom]
Caption = '&Help'
Kind = bkHelp
NumGlyphs = 0
TabOrder = 3
end
LCLVersion = '0.9.25'
object GroupBox1: TGroupBox
Left = 8
Height = 213
Top = 8
Width = 293
Height = 270
Width = 327
Align = alLeft
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Items'
ClientHeight = 194
ClientWidth = 289
TabOrder = 4
ClientHeight = 251
ClientWidth = 323
TabOrder = 0
object TreeView1: TTreeView
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
Left = 5
Height = 184
Height = 241
Top = 5
Width = 166
Width = 200
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Top = 5
@ -97,7 +47,7 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 176
Left = 210
Height = 25
Top = 5
Width = 108
@ -116,7 +66,7 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnNewItem
AnchorSideRight.Side = asrBottom
Left = 176
Left = 210
Height = 25
Top = 35
Width = 108
@ -132,7 +82,7 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnNewSubItem
AnchorSideRight.Side = asrBottom
Left = 176
Left = 210
Height = 25
Top = 65
Width = 108
@ -148,7 +98,7 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnDelete
AnchorSideRight.Side = asrBottom
Left = 176
Left = 210
Height = 25
Top = 95
Width = 108
@ -164,7 +114,7 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnLoad
AnchorSideRight.Side = asrBottom
Left = 176
Left = 210
Height = 25
Top = 125
Width = 108
@ -176,22 +126,21 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
end
end
object GroupBox2: TGroupBox
Left = 299
Height = 213
Top = 8
Left = 331
Height = 270
Width = 205
Anchors = [akTop, akRight, akBottom]
Align = alRight
Caption = 'Item Properties'
ClientHeight = 194
ClientHeight = 251
ClientWidth = 201
TabOrder = 5
TabOrder = 1
object LabelText: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
Left = 5
Height = 14
Height = 20
Top = 5
Width = 27
Width = 30
BorderSpacing.Left = 5
BorderSpacing.Top = 5
Caption = 'Text:'
@ -203,9 +152,9 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Control = edtText
AnchorSideTop.Side = asrBottom
Left = 5
Height = 14
Top = 49
Width = 66
Height = 20
Top = 59
Width = 83
BorderSpacing.Top = 5
Caption = 'Image Index:'
FocusControl = edtIndexImg
@ -216,9 +165,9 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Control = edtIndexImg
AnchorSideTop.Side = asrBottom
Left = 5
Height = 14
Top = 93
Width = 75
Height = 20
Top = 113
Width = 99
BorderSpacing.Top = 5
Caption = 'Selected index:'
FocusControl = edtIndexSel
@ -229,9 +178,9 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Control = edtIndexSel
AnchorSideTop.Side = asrBottom
Left = 5
Height = 14
Top = 137
Width = 62
Height = 20
Top = 167
Width = 78
BorderSpacing.Top = 5
Caption = 'State Index:'
FocusControl = edtIndexState
@ -244,10 +193,11 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 5
Height = 23
Top = 21
Height = 27
Top = 27
Width = 191
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 2
BorderSpacing.Right = 5
OnChange = Edit1Change
@ -258,9 +208,10 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Control = LabelImageIndex
AnchorSideTop.Side = asrBottom
Left = 5
Height = 23
Top = 65
Height = 27
Top = 81
Width = 48
AutoSize = True
BorderSpacing.Top = 2
OnEditingDone = edtIndexStateEditingDone
TabOrder = 1
@ -270,9 +221,10 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Control = LabelSelectedIndex
AnchorSideTop.Side = asrBottom
Left = 5
Height = 23
Top = 109
Height = 27
Top = 135
Width = 48
AutoSize = True
BorderSpacing.Top = 2
OnEditingDone = edtIndexStateEditingDone
TabOrder = 2
@ -282,14 +234,88 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
AnchorSideTop.Control = LabelStateIndex
AnchorSideTop.Side = asrBottom
Left = 5
Height = 23
Top = 153
Height = 27
Top = 189
Width = 48
AutoSize = True
BorderSpacing.Top = 2
OnEditingDone = edtIndexStateEditingDone
TabOrder = 3
end
end
object BtnPanel: TPanel
Height = 50
Top = 270
Width = 536
Align = alBottom
BevelOuter = bvNone
ClientHeight = 50
ClientWidth = 536
TabOrder = 2
object BtnHelp: TBitBtn
Left = 455
Height = 38
Top = 6
Width = 75
Align = alRight
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&Help'
Constraints.MinWidth = 75
Kind = bkHelp
NumGlyphs = 0
TabOrder = 0
end
object BtnApply: TBitBtn
Left = 374
Height = 38
Top = 6
Width = 75
Align = alRight
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&Apply'
Constraints.MinWidth = 75
NumGlyphs = 0
OnClick = btnApplyClick
TabOrder = 1
end
object BtnCancel: TBitBtn
Left = 290
Height = 38
Top = 6
Width = 78
Align = alRight
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 75
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 2
end
object BtnOK: TBitBtn
Left = 209
Height = 38
Top = 6
Width = 75
Align = alRight
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&OK'
Constraints.MinWidth = 75
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 3
end
end
object OpenDialog1: TOpenDialog
Title = 'Open'
FilterIndex = 0

View File

@ -2,104 +2,110 @@
LazarusResources.Add('TTreeViewItemsEditorForm','FORMDATA',[
'TPF0'#24'TTreeViewItemsEditorForm'#23'TreeViewItemsEditorForm'#4'Left'#3'0'#1
+#6'Height'#3#5#1#3'Top'#3#189#0#5'Width'#3#254#1#18'HorzScrollBar.Page'#3#253
+#1#18'VertScrollBar.Page'#3#4#1#13'ActiveControl'#7#5'BtnOK'#11'BorderIcons'
+#11#12'biSystemMenu'#6'biHelp'#0#7'Caption'#6#21'TreeView Items Editor'#12'C'
+'lientHeight'#3#5#1#11'ClientWidth'#3#254#1#21'Constraints.MinHeight'#3#240#0
+#20'Constraints.MinWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#8'Position'#7
+#14'poScreenCenter'#0#7'TBitBtn'#5'BtnOK'#4'Left'#3#189#0#6'Height'#2#25#3'T'
+'op'#3#229#0#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'
+#6#3'&OK'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'
+#2#0#0#0#7'TBitBtn'#9'BtnCancel'#4'Left'#3#13#1#6'Height'#2#25#3'Top'#3#229#0
+#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Caption'
+#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'Ta'
+'bOrder'#2#1#0#0#7'TBitBtn'#8'BtnApply'#4'Left'#3']'#1#6'Height'#2#25#3'Top'
+#3#229#0#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#6
+'&Apply'#9'NumGlyphs'#2#0#7'OnClick'#7#13'btnApplyClick'#8'TabOrder'#2#2#0#0
+#7'TBitBtn'#7'BtnHelp'#4'Left'#3#173#1#6'Height'#2#25#3'Top'#3#229#0#5'Width'
+#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#5'&Help'#4'Kind'#7
+#6'bkHelp'#9'NumGlyphs'#2#0#8'TabOrder'#2#3#0#0#9'TGroupBox'#9'GroupBox1'#4
+'Left'#2#8#6'Height'#3#213#0#3'Top'#2#8#5'Width'#3'%'#1#7'Anchors'#11#5'akTo'
+'p'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#5'Items'#12'ClientHeight'
+#3#194#0#11'ClientWidth'#3'!'#1#8'TabOrder'#2#4#0#9'TTreeView'#9'TreeView1'
+#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'Gro'
+'upBox1'#24'AnchorSideBottom.Control'#7#9'GroupBox1'#21'AnchorSideBottom.Sid'
+'e'#7#9'asrBottom'#4'Left'#2#5#6'Height'#3#184#0#3'Top'#2#5#5'Width'#3#166#0
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.'
+'Left'#2#5#17'BorderSpacing.Top'#2#5#20'BorderSpacing.Bottom'#2#5#17'Default'
+'ItemHeight'#2#19#13'HideSelection'#8#8'TabOrder'#2#0#18'OnSelectionChanged'
+#7#25'TreeView1SelectionChanged'#7'Options'#11#17'tvoAutoItemHeight'#21'tvoK'
+'eepCollapsedNodes'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11't'
+'voToolTips'#0#0#0#7'TButton'#10'BtnNewItem'#3'Tag'#2#1#22'AnchorSideLeft.Co'
+'ntrol'#7#9'TreeView1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
+'op.Control'#7#9'GroupBox1'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3#176#0#6'Height'#2#25#3'Top'#2#5
+#5'Width'#2'l'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacin'
+'g.Left'#2#5#17'BorderSpacing.Top'#2#5#19'BorderSpacing.Right'#2#5#7'Caption'
+#6#9'&New Item'#7'Default'#9#7'OnClick'#7#15'BtnNewItemClick'#8'TabOrder'#2#1
+#0#0#7'TButton'#13'BtnNewSubItem'#22'AnchorSideLeft.Control'#7#10'BtnNewItem'
+#21'AnchorSideTop.Control'#7#10'BtnNewItem'#18'AnchorSideTop.Side'#7#9'asrBo'
+'ttom'#23'AnchorSideRight.Control'#7#10'BtnNewItem'#20'AnchorSideRight.Side'
+#7#9'asrBottom'#4'Left'#3#176#0#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'l'#7'A'
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#5#7'Capt'
+'ion'#6#12'N&ew SubItem'#7'OnClick'#7#15'BtnNewItemClick'#8'TabOrder'#2#2#0#0
+#7'TButton'#9'BtnDelete'#22'AnchorSideLeft.Control'#7#13'BtnNewSubItem'#21'A'
+'nchorSideTop.Control'#7#13'BtnNewSubItem'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#23'AnchorSideRight.Control'#7#13'BtnNewSubItem'#20'AnchorSideRight.Sid'
+'e'#7#9'asrBottom'#4'Left'#3#176#0#6'Height'#2#25#3'Top'#2'A'#5'Width'#2'l'#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#5#7'Cap'
+'tion'#6#7'&Delete'#7'OnClick'#7#14'btnDeleteClick'#8'TabOrder'#2#3#0#0#7'TB'
+'utton'#7'BtnLoad'#22'AnchorSideLeft.Control'#7#9'BtnDelete'#21'AnchorSideTo'
+'p.Control'#7#9'BtnDelete'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSi'
+'deRight.Control'#7#9'BtnDelete'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'L'
+'eft'#3#176#0#6'Height'#2#25#3'Top'#2'_'#5'Width'#2'l'#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#5#7'Caption'#6#5'&Load'#7'On'
+'Click'#7#12'btnLoadClick'#8'TabOrder'#2#4#0#0#7'TButton'#7'BtnSave'#22'Anch'
+'orSideLeft.Control'#7#7'BtnLoad'#21'AnchorSideTop.Control'#7#7'BtnLoad'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#7'BtnLoad'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#176#0#6'Height'#2#25#3'To'
+'p'#2'}'#5'Width'#2'l'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Bord'
+'erSpacing.Top'#2#5#7'Caption'#6#5'&Save'#7'OnClick'#7#12'btnSaveClick'#8'Ta'
+'bOrder'#2#5#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#3'+'#1#6'Height'#3#213#0
+#3'Top'#2#8#5'Width'#3#205#0#7'Anchors'#11#5'akTop'#7'akRight'#8'akBottom'#0
+#7'Caption'#6#15'Item Properties'#12'ClientHeight'#3#194#0#11'ClientWidth'#3
+#201#0#8'TabOrder'#2#5#0#6'TLabel'#9'LabelText'#22'AnchorSideLeft.Control'#7
+#9'GroupBox2'#21'AnchorSideTop.Control'#7#9'GroupBox2'#4'Left'#2#5#6'Height'
,#2#14#3'Top'#2#5#5'Width'#2#27#18'BorderSpacing.Left'#2#5#17'BorderSpacing.T'
+'op'#2#5#7'Caption'#6#5'Text:'#12'FocusControl'#7#7'edtText'#11'ParentColor'
+#8#0#0#6'TLabel'#15'LabelImageIndex'#22'AnchorSideLeft.Control'#7#9'LabelTex'
+'t'#21'AnchorSideTop.Control'#7#7'edtText'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#4'Left'#2#5#6'Height'#2#14#3'Top'#2'1'#5'Width'#2'B'#17'BorderSpacing.'
+'Top'#2#5#7'Caption'#6#12'Image Index:'#12'FocusControl'#7#11'edtIndexImg'#11
+'ParentColor'#8#0#0#6'TLabel'#18'LabelSelectedIndex'#22'AnchorSideLeft.Contr'
+'ol'#7#15'LabelImageIndex'#21'AnchorSideTop.Control'#7#11'edtIndexImg'#18'An'
+'chorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#14#3'Top'#2']'#5'W'
+'idth'#2'K'#17'BorderSpacing.Top'#2#5#7'Caption'#6#15'Selected index:'#12'Fo'
+'cusControl'#7#11'edtIndexSel'#11'ParentColor'#8#0#0#6'TLabel'#15'LabelState'
+'Index'#22'AnchorSideLeft.Control'#7#18'LabelSelectedIndex'#21'AnchorSideTop'
+'.Control'#7#11'edtIndexSel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+#5#6'Height'#2#14#3'Top'#3#137#0#5'Width'#2'>'#17'BorderSpacing.Top'#2#5#7'C'
+'aption'#6#12'State Index:'#12'FocusControl'#7#13'edtIndexState'#11'ParentCo'
+'lor'#8#0#0#5'TEdit'#7'edtText'#22'AnchorSideLeft.Control'#7#9'LabelText'#21
+'AnchorSideTop.Control'#7#9'LabelText'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.Side'#7#9'asr'
+'Bottom'#4'Left'#2#5#6'Height'#2#23#3'Top'#2#21#5'Width'#3#191#0#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#2#19'BorderSpaci'
+'ng.Right'#2#5#8'OnChange'#7#11'Edit1Change'#8'TabOrder'#2#0#0#0#5'TEdit'#11
+'edtIndexImg'#22'AnchorSideLeft.Control'#7#15'LabelImageIndex'#21'AnchorSide'
+'Top.Control'#7#15'LabelImageIndex'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2#5#6'Height'#2#23#3'Top'#2'A'#5'Width'#2'0'#17'BorderSpacing.Top'#2#2
+#13'OnEditingDone'#7#24'edtIndexStateEditingDone'#8'TabOrder'#2#1#0#0#5'TEdi'
+'t'#11'edtIndexSel'#22'AnchorSideLeft.Control'#7#18'LabelSelectedIndex'#21'A'
+'nchorSideTop.Control'#7#18'LabelSelectedIndex'#18'AnchorSideTop.Side'#7#9'a'
+'srBottom'#4'Left'#2#5#6'Height'#2#23#3'Top'#2'm'#5'Width'#2'0'#17'BorderSpa'
+'cing.Top'#2#2#13'OnEditingDone'#7#24'edtIndexStateEditingDone'#8'TabOrder'#2
+#2#0#0#5'TEdit'#13'edtIndexState'#22'AnchorSideLeft.Control'#7#15'LabelState'
+'Index'#21'AnchorSideTop.Control'#7#15'LabelStateIndex'#18'AnchorSideTop.Sid'
+'e'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#23#3'Top'#3#153#0#5'Width'#2'0'#17
+'BorderSpacing.Top'#2#2#13'OnEditingDone'#7#24'edtIndexStateEditingDone'#8'T'
+'abOrder'#2#3#0#0#0#11'TOpenDialog'#11'OpenDialog1'#5'Title'#6#4'Open'#11'Fi'
+'lterIndex'#2#0#4'left'#3#176#0#3'top'#3#234#0#0#0#11'TSaveDialog'#11'SaveDi'
+'alog1'#5'Title'#6#4'Save'#11'FilterIndex'#2#0#4'left'#3#176#0#3'top'#3#234#0
+#0#0#0
+#6'Height'#3'@'#1#3'Top'#3#189#0#5'Width'#3#24#2#11'BorderIcons'#11#12'biSys'
+'temMenu'#6'biHelp'#0#7'Caption'#6#21'TreeView Items Editor'#12'ClientHeight'
+#3'@'#1#11'ClientWidth'#3#24#2#21'Constraints.MinHeight'#3#240#0#20'Constrai'
+'nts.MinWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScree'
+'nCenter'#10'LCLVersion'#6#6'0.9.25'#0#9'TGroupBox'#9'GroupBox1'#6'Height'#3
+#14#1#5'Width'#3'G'#1#5'Align'#7#6'alLeft'#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#8'akBottom'#0#7'Caption'#6#5'Items'#12'ClientHeight'#3#251#0#11'Cl'
+'ientWidth'#3'C'#1#8'TabOrder'#2#0#0#9'TTreeView'#9'TreeView1'#22'AnchorSide'
+'Left.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#24'An'
+'chorSideBottom.Control'#7#9'GroupBox1'#21'AnchorSideBottom.Side'#7#9'asrBot'
+'tom'#4'Left'#2#5#6'Height'#3#241#0#3'Top'#2#5#5'Width'#3#200#0#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#5#17'B'
+'orderSpacing.Top'#2#5#20'BorderSpacing.Bottom'#2#5#17'DefaultItemHeight'#2
+#19#13'HideSelection'#8#8'TabOrder'#2#0#18'OnSelectionChanged'#7#25'TreeView'
+'1SelectionChanged'#7'Options'#11#17'tvoAutoItemHeight'#21'tvoKeepCollapsedN'
+'odes'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0
+#0#0#7'TButton'#10'BtnNewItem'#3'Tag'#2#1#22'AnchorSideLeft.Control'#7#9'Tre'
+'eView1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9
+'GroupBox1'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.Si'
+'de'#7#9'asrBottom'#4'Left'#3#210#0#6'Height'#2#25#3'Top'#2#5#5'Width'#2'l'#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#5#17'B'
+'orderSpacing.Top'#2#5#19'BorderSpacing.Right'#2#5#7'Caption'#6#9'&New Item'
+#7'Default'#9#7'OnClick'#7#15'BtnNewItemClick'#8'TabOrder'#2#1#0#0#7'TButton'
+#13'BtnNewSubItem'#22'AnchorSideLeft.Control'#7#10'BtnNewItem'#21'AnchorSide'
+'Top.Control'#7#10'BtnNewItem'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anch'
+'orSideRight.Control'#7#10'BtnNewItem'#20'AnchorSideRight.Side'#7#9'asrBotto'
+'m'#4'Left'#3#210#0#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'l'#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#5#7'Caption'#6#12'N&e'
+'w SubItem'#7'OnClick'#7#15'BtnNewItemClick'#8'TabOrder'#2#2#0#0#7'TButton'#9
+'BtnDelete'#22'AnchorSideLeft.Control'#7#13'BtnNewSubItem'#21'AnchorSideTop.'
+'Control'#7#13'BtnNewSubItem'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Ancho'
+'rSideRight.Control'#7#13'BtnNewSubItem'#20'AnchorSideRight.Side'#7#9'asrBot'
+'tom'#4'Left'#3#210#0#6'Height'#2#25#3'Top'#2'A'#5'Width'#2'l'#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#5#7'Caption'#6#7'&D'
+'elete'#7'OnClick'#7#14'btnDeleteClick'#8'TabOrder'#2#3#0#0#7'TButton'#7'Btn'
+'Load'#22'AnchorSideLeft.Control'#7#9'BtnDelete'#21'AnchorSideTop.Control'#7
+#9'BtnDelete'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr'
+'ol'#7#9'BtnDelete'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#210#0#6
+'Height'#2#25#3'Top'#2'_'#5'Width'#2'l'#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'kRight'#0#17'BorderSpacing.Top'#2#5#7'Caption'#6#5'&Load'#7'OnClick'#7#12'b'
+'tnLoadClick'#8'TabOrder'#2#4#0#0#7'TButton'#7'BtnSave'#22'AnchorSideLeft.Co'
+'ntrol'#7#7'BtnLoad'#21'AnchorSideTop.Control'#7#7'BtnLoad'#18'AnchorSideTop'
+'.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#7'BtnLoad'#20'AnchorSid'
+'eRight.Side'#7#9'asrBottom'#4'Left'#3#210#0#6'Height'#2#25#3'Top'#2'}'#5'Wi'
+'dth'#2'l'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.To'
+'p'#2#5#7'Caption'#6#5'&Save'#7'OnClick'#7#12'btnSaveClick'#8'TabOrder'#2#5#0
+#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#3'K'#1#6'Height'#3#14#1#5'Width'#3#205
+#0#5'Align'#7#7'alRight'#7'Caption'#6#15'Item Properties'#12'ClientHeight'#3
+#251#0#11'ClientWidth'#3#201#0#8'TabOrder'#2#1#0#6'TLabel'#9'LabelText'#22'A'
+'nchorSideLeft.Control'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7#9'GroupBo'
+'x2'#4'Left'#2#5#6'Height'#2#20#3'Top'#2#5#5'Width'#2#30#18'BorderSpacing.Le'
+'ft'#2#5#17'BorderSpacing.Top'#2#5#7'Caption'#6#5'Text:'#12'FocusControl'#7#7
+'edtText'#11'ParentColor'#8#0#0#6'TLabel'#15'LabelImageIndex'#22'AnchorSideL'
+'eft.Control'#7#9'LabelText'#21'AnchorSideTop.Control'#7#7'edtText'#18'Ancho'
+'rSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#20#3'Top'#2';'#5'Widt'
+'h'#2'S'#17'BorderSpacing.Top'#2#5#7'Caption'#6#12'Image Index:'#12'FocusCon'
+'trol'#7#11'edtIndexImg'#11'ParentColor'#8#0#0#6'TLabel'#18'LabelSelectedInd'
+'ex'#22'AnchorSideLeft.Control'#7#15'LabelImageIndex'#21'AnchorSideTop.Contr'
+'ol'#7#11'edtIndexImg'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'H'
+'eight'#2#20#3'Top'#2'q'#5'Width'#2'c'#17'BorderSpacing.Top'#2#5#7'Caption'#6
+#15'Selected index:'#12'FocusControl'#7#11'edtIndexSel'#11'ParentColor'#8#0#0
+#6'TLabel'#15'LabelStateIndex'#22'AnchorSideLeft.Control'#7#18'LabelSelected'
+'Index'#21'AnchorSideTop.Control'#7#11'edtIndexSel'#18'AnchorSideTop.Side'#7
,#9'asrBottom'#4'Left'#2#5#6'Height'#2#20#3'Top'#3#167#0#5'Width'#2'N'#17'Bor'
+'derSpacing.Top'#2#5#7'Caption'#6#12'State Index:'#12'FocusControl'#7#13'edt'
+'IndexState'#11'ParentColor'#8#0#0#5'TEdit'#7'edtText'#22'AnchorSideLeft.Con'
+'trol'#7#9'LabelText'#21'AnchorSideTop.Control'#7#9'LabelText'#18'AnchorSide'
+'Top.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox2'#20'Anch'
+'orSideRight.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#27#3'Top'#2#27#5'W'
+'idth'#3#191#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17
+'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#5#8'OnChange'#7#11'Edit1Ch'
+'ange'#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtIndexImg'#22'AnchorSideLeft.Contro'
+'l'#7#15'LabelImageIndex'#21'AnchorSideTop.Control'#7#15'LabelImageIndex'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#27#3'Top'#2'Q'#5
+'Width'#2'0'#8'AutoSize'#9#17'BorderSpacing.Top'#2#2#13'OnEditingDone'#7#24
+'edtIndexStateEditingDone'#8'TabOrder'#2#1#0#0#5'TEdit'#11'edtIndexSel'#22'A'
+'nchorSideLeft.Control'#7#18'LabelSelectedIndex'#21'AnchorSideTop.Control'#7
+#18'LabelSelectedIndex'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6
+'Height'#2#27#3'Top'#3#135#0#5'Width'#2'0'#8'AutoSize'#9#17'BorderSpacing.To'
+'p'#2#2#13'OnEditingDone'#7#24'edtIndexStateEditingDone'#8'TabOrder'#2#2#0#0
+#5'TEdit'#13'edtIndexState'#22'AnchorSideLeft.Control'#7#15'LabelStateIndex'
+#21'AnchorSideTop.Control'#7#15'LabelStateIndex'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#5#6'Height'#2#27#3'Top'#3#189#0#5'Width'#2'0'#8'AutoSi'
+'ze'#9#17'BorderSpacing.Top'#2#2#13'OnEditingDone'#7#24'edtIndexStateEditing'
+'Done'#8'TabOrder'#2#3#0#0#0#6'TPanel'#8'BtnPanel'#6'Height'#2'2'#3'Top'#3#14
+#1#5'Width'#3#24#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'Clie'
+'ntHeight'#2'2'#11'ClientWidth'#3#24#2#8'TabOrder'#2#2#0#7'TBitBtn'#7'BtnHel'
+'p'#4'Left'#3#199#1#6'Height'#2'&'#3'Top'#2#6#5'Width'#2'K'#5'Align'#7#7'alR'
+'ight'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing'
+'.Around'#2#6#7'Caption'#6#5'&Help'#20'Constraints.MinWidth'#2'K'#4'Kind'#7#6
+'bkHelp'#9'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'BtnApply'#4'Left'
+#3'v'#1#6'Height'#2'&'#3'Top'#2#6#5'Width'#2'K'#5'Align'#7#7'alRight'#7'Anch'
+'ors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
+#7'Caption'#6#6'&Apply'#20'Constraints.MinWidth'#2'K'#9'NumGlyphs'#2#0#7'OnC'
+'lick'#7#13'btnApplyClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#9'BtnCancel'#4'Lef'
+'t'#3'"'#1#6'Height'#2'&'#3'Top'#2#6#5'Width'#2'N'#5'Align'#7#7'alRight'#7'A'
+'nchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2
+#6#6'Cancel'#9#7'Caption'#6#6'Cancel'#20'Constraints.MinWidth'#2'K'#4'Kind'#7
+#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TBit'
+'Btn'#5'BtnOK'#4'Left'#3#209#0#6'Height'#2'&'#3'Top'#2#6#5'Width'#2'K'#5'Ali'
+'gn'#7#7'alRight'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'Bo'
+'rderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#20'Constraints.MinWidth'#2'K'#4
+'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#3#0#0#0
+#11'TOpenDialog'#11'OpenDialog1'#5'Title'#6#4'Open'#11'FilterIndex'#2#0#4'le'
+'ft'#3#176#0#3'top'#3#234#0#0#0#11'TSaveDialog'#11'SaveDialog1'#5'Title'#6#4
+'Save'#11'FilterIndex'#2#0#4'left'#3#176#0#3'top'#3#234#0#0#0#0
]);

View File

@ -25,7 +25,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
PropEdits, Componenteditors, StdCtrls, ComCtrls, ObjInspStrConsts;
PropEdits, Componenteditors, StdCtrls, ComCtrls, ObjInspStrConsts, ExtCtrls;
type
@ -52,6 +52,7 @@ type
LabelSelectedIndex: TLabel;
LabelStateIndex: TLabel;
OpenDialog1: TOpenDialog;
BtnPanel: TPanel;
SaveDialog1: TSaveDialog;
TreeView1: TTreeView;
procedure BtnNewItemClick(Sender: TObject);