1object TreeViewItemsEditorForm: TTreeViewItemsEditorForm 2 Left = 329 3 Height = 321 4 Top = 230 5 Width = 635 6 ActiveControl = BtnNewItem 7 BorderIcons = [biSystemMenu, biHelp] 8 Caption = 'TreeView Items Editor' 9 ClientHeight = 321 10 ClientWidth = 635 11 Constraints.MinHeight = 240 12 Constraints.MinWidth = 400 13 OnClose = FormClose 14 OnCreate = FormCreate 15 Position = poScreenCenter 16 LCLVersion = '1.9.0.0' 17 object GroupBox1: TGroupBox 18 AnchorSideLeft.Control = Owner 19 AnchorSideTop.Control = Owner 20 AnchorSideBottom.Control = BtnOK 21 Left = 6 22 Height = 276 23 Top = 6 24 Width = 420 25 Anchors = [akTop, akLeft, akRight, akBottom] 26 BorderSpacing.Around = 6 27 Caption = 'Items' 28 ClientHeight = 249 29 ClientWidth = 416 30 TabOrder = 0 31 object TreeView1: TTreeView 32 AnchorSideLeft.Control = GroupBox1 33 AnchorSideTop.Control = GroupBox1 34 AnchorSideBottom.Control = GroupBox1 35 AnchorSideBottom.Side = asrBottom 36 Left = 5 37 Height = 239 38 Top = 5 39 Width = 240 40 Anchors = [akTop, akLeft, akRight, akBottom] 41 BorderSpacing.Left = 5 42 BorderSpacing.Top = 5 43 BorderSpacing.Bottom = 5 44 HideSelection = False 45 ReadOnly = True 46 TabOrder = 0 47 OnSelectionChanged = TreeView1SelectionChanged 48 Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] 49 end 50 object BtnNewItem: TButton 51 Tag = 1 52 AnchorSideLeft.Control = MoveUpBtn 53 AnchorSideLeft.Side = asrBottom 54 AnchorSideTop.Control = GroupBox1 55 AnchorSideRight.Control = GroupBox1 56 AnchorSideRight.Side = asrBottom 57 Left = 282 58 Height = 25 59 Top = 6 60 Width = 128 61 Anchors = [akTop, akLeft, akRight] 62 BorderSpacing.Left = 3 63 BorderSpacing.Around = 6 64 Caption = '&New Item' 65 Default = True 66 OnClick = BtnNewItemClick 67 TabOrder = 1 68 end 69 object BtnNewSubItem: TButton 70 AnchorSideLeft.Control = BtnNewItem 71 AnchorSideTop.Control = BtnNewItem 72 AnchorSideTop.Side = asrBottom 73 AnchorSideRight.Control = BtnNewItem 74 AnchorSideRight.Side = asrBottom 75 Left = 282 76 Height = 25 77 Top = 37 78 Width = 128 79 Anchors = [akTop, akLeft, akRight] 80 BorderSpacing.Top = 6 81 Caption = 'N&ew SubItem' 82 OnClick = BtnNewItemClick 83 TabOrder = 2 84 end 85 object BtnDelete: TButton 86 AnchorSideLeft.Control = BtnNewSubItem 87 AnchorSideTop.Control = BtnNewSubItem 88 AnchorSideTop.Side = asrBottom 89 AnchorSideRight.Control = BtnNewSubItem 90 AnchorSideRight.Side = asrBottom 91 Left = 282 92 Height = 25 93 Top = 68 94 Width = 128 95 Anchors = [akTop, akLeft, akRight] 96 BorderSpacing.Top = 6 97 Caption = '&Delete' 98 OnClick = btnDeleteClick 99 TabOrder = 3 100 end 101 object BtnLoad: TButton 102 AnchorSideLeft.Control = BtnDelete 103 AnchorSideTop.Control = BtnDelete 104 AnchorSideTop.Side = asrBottom 105 AnchorSideRight.Control = BtnDelete 106 AnchorSideRight.Side = asrBottom 107 Left = 282 108 Height = 25 109 Top = 99 110 Width = 128 111 Anchors = [akTop, akLeft, akRight] 112 BorderSpacing.Top = 6 113 Caption = '&Load' 114 OnClick = btnLoadClick 115 TabOrder = 4 116 end 117 object BtnSave: TButton 118 AnchorSideLeft.Control = BtnLoad 119 AnchorSideTop.Control = BtnLoad 120 AnchorSideTop.Side = asrBottom 121 AnchorSideRight.Control = BtnLoad 122 AnchorSideRight.Side = asrBottom 123 Left = 282 124 Height = 25 125 Top = 130 126 Width = 128 127 Anchors = [akTop, akLeft, akRight] 128 BorderSpacing.Top = 6 129 Caption = '&Save' 130 OnClick = btnSaveClick 131 TabOrder = 5 132 end 133 object MoveUpBtn: TSpeedButton 134 AnchorSideLeft.Control = TreeView1 135 AnchorSideLeft.Side = asrBottom 136 AnchorSideTop.Side = asrBottom 137 AnchorSideRight.Side = asrBottom 138 Left = 251 139 Height = 26 140 Top = 78 141 Width = 22 142 BorderSpacing.Around = 6 143 Enabled = False 144 OnClick = MoveUpBtnClick 145 ShowHint = True 146 ParentShowHint = False 147 end 148 object MoveDownBtn: TSpeedButton 149 AnchorSideLeft.Control = MoveUpBtn 150 AnchorSideTop.Control = MoveUpBtn 151 AnchorSideTop.Side = asrBottom 152 Left = 251 153 Height = 26 154 Top = 111 155 Width = 22 156 BorderSpacing.Top = 7 157 Enabled = False 158 OnClick = MoveDownBtnClick 159 ShowHint = True 160 ParentShowHint = False 161 end 162 end 163 object GroupBox2: TGroupBox 164 AnchorSideLeft.Control = GroupBox1 165 AnchorSideLeft.Side = asrBottom 166 AnchorSideTop.Control = Owner 167 AnchorSideRight.Control = Owner 168 AnchorSideRight.Side = asrBottom 169 AnchorSideBottom.Control = BtnOK 170 Left = 432 171 Height = 276 172 Top = 6 173 Width = 197 174 Anchors = [akTop, akLeft, akRight, akBottom] 175 BorderSpacing.Around = 6 176 Caption = 'Item Properties' 177 ClientHeight = 249 178 ClientWidth = 193 179 TabOrder = 1 180 object LabelText: TLabel 181 AnchorSideLeft.Control = GroupBox2 182 AnchorSideTop.Control = GroupBox2 183 Left = 6 184 Height = 15 185 Top = 6 186 Width = 29 187 BorderSpacing.Left = 6 188 BorderSpacing.Top = 6 189 Caption = 'Text:' 190 FocusControl = edtText 191 ParentColor = False 192 end 193 object LabelImageIndex: TLabel 194 AnchorSideLeft.Control = LabelText 195 AnchorSideTop.Control = edtText 196 AnchorSideTop.Side = asrBottom 197 Left = 6 198 Height = 15 199 Top = 58 200 Width = 79 201 BorderSpacing.Top = 6 202 Caption = 'Image Index:' 203 FocusControl = edtIndexImg 204 ParentColor = False 205 end 206 object LabelSelectedIndex: TLabel 207 AnchorSideLeft.Control = LabelImageIndex 208 AnchorSideTop.Control = edtIndexImg 209 AnchorSideTop.Side = asrBottom 210 Left = 6 211 Height = 15 212 Top = 110 213 Width = 93 214 BorderSpacing.Top = 6 215 Caption = 'Selected index:' 216 FocusControl = edtIndexSel 217 ParentColor = False 218 end 219 object LabelStateIndex: TLabel 220 AnchorSideLeft.Control = LabelSelectedIndex 221 AnchorSideTop.Control = edtIndexSel 222 AnchorSideTop.Side = asrBottom 223 Left = 6 224 Height = 15 225 Top = 162 226 Width = 73 227 BorderSpacing.Top = 6 228 Caption = 'State Index:' 229 FocusControl = edtIndexState 230 ParentColor = False 231 end 232 object edtText: TEdit 233 AnchorSideLeft.Control = LabelText 234 AnchorSideTop.Control = LabelText 235 AnchorSideTop.Side = asrBottom 236 AnchorSideRight.Control = GroupBox2 237 AnchorSideRight.Side = asrBottom 238 Left = 6 239 Height = 29 240 Top = 23 241 Width = 182 242 Anchors = [akTop, akLeft, akRight] 243 BorderSpacing.Top = 2 244 BorderSpacing.Right = 5 245 OnChange = Edit1Change 246 TabOrder = 0 247 end 248 object edtIndexImg: TEdit 249 AnchorSideLeft.Control = LabelImageIndex 250 AnchorSideTop.Control = LabelImageIndex 251 AnchorSideTop.Side = asrBottom 252 Left = 6 253 Height = 29 254 Top = 75 255 Width = 48 256 BorderSpacing.Top = 2 257 OnEditingDone = edtIndexStateEditingDone 258 TabOrder = 1 259 end 260 object edtIndexSel: TEdit 261 AnchorSideLeft.Control = LabelSelectedIndex 262 AnchorSideTop.Control = LabelSelectedIndex 263 AnchorSideTop.Side = asrBottom 264 Left = 6 265 Height = 29 266 Top = 127 267 Width = 48 268 BorderSpacing.Top = 2 269 OnEditingDone = edtIndexStateEditingDone 270 TabOrder = 2 271 end 272 object edtIndexState: TEdit 273 AnchorSideLeft.Control = LabelStateIndex 274 AnchorSideTop.Control = LabelStateIndex 275 AnchorSideTop.Side = asrBottom 276 Left = 6 277 Height = 29 278 Top = 179 279 Width = 48 280 BorderSpacing.Top = 2 281 OnEditingDone = edtIndexStateEditingDone 282 TabOrder = 3 283 end 284 end 285 object BtnOK: TBitBtn 286 AnchorSideRight.Control = BtnCancel 287 AnchorSideBottom.Control = Owner 288 AnchorSideBottom.Side = asrBottom 289 Left = 303 290 Height = 27 291 Top = 288 292 Width = 75 293 Anchors = [akRight, akBottom] 294 AutoSize = True 295 BorderSpacing.Around = 6 296 Caption = '&OK' 297 Constraints.MinHeight = 25 298 Constraints.MinWidth = 75 299 Kind = bkOK 300 ModalResult = 1 301 TabOrder = 2 302 end 303 object BtnCancel: TBitBtn 304 AnchorSideRight.Control = BtnApply 305 AnchorSideBottom.Control = Owner 306 AnchorSideBottom.Side = asrBottom 307 Left = 384 308 Height = 27 309 Top = 288 310 Width = 83 311 Anchors = [akRight, akBottom] 312 AutoSize = True 313 BorderSpacing.Around = 6 314 Cancel = True 315 Caption = 'Cancel' 316 Constraints.MinHeight = 25 317 Constraints.MinWidth = 75 318 Kind = bkCancel 319 ModalResult = 2 320 TabOrder = 3 321 end 322 object BtnApply: TBitBtn 323 AnchorSideRight.Control = BtnHelp 324 AnchorSideBottom.Control = Owner 325 AnchorSideBottom.Side = asrBottom 326 Left = 473 327 Height = 26 328 Top = 289 329 Width = 75 330 Anchors = [akRight, akBottom] 331 AutoSize = True 332 BorderSpacing.Around = 6 333 Caption = '&Apply' 334 Constraints.MinHeight = 25 335 Constraints.MinWidth = 75 336 OnClick = btnApplyClick 337 TabOrder = 4 338 end 339 object BtnHelp: TBitBtn 340 AnchorSideRight.Control = Owner 341 AnchorSideRight.Side = asrBottom 342 AnchorSideBottom.Control = Owner 343 AnchorSideBottom.Side = asrBottom 344 Left = 554 345 Height = 27 346 Top = 288 347 Width = 75 348 Anchors = [akRight, akBottom] 349 AutoSize = True 350 BorderSpacing.Around = 6 351 Caption = '&Help' 352 Constraints.MinHeight = 25 353 Constraints.MinWidth = 75 354 Kind = bkHelp 355 TabOrder = 5 356 end 357 object OpenDialog1: TOpenDialog 358 Title = 'Open' 359 FilterIndex = 0 360 left = 296 361 top = 208 362 end 363 object SaveDialog1: TSaveDialog 364 Title = 'Save' 365 FilterIndex = 0 366 left = 368 367 top = 232 368 end 369end 370