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

View File

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