1object ListViewItemsEditorForm: TListViewItemsEditorForm 2 Left = 293 3 Height = 300 4 Top = 179 5 Width = 525 6 ActiveControl = BtnNewItem 7 BorderIcons = [biSystemMenu, biHelp] 8 Caption = 'ListView Items Editor' 9 ClientHeight = 300 10 ClientWidth = 525 11 Constraints.MinHeight = 200 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 = ButtonPanel 21 Left = 6 22 Height = 255 23 Top = 6 24 Width = 295 25 Anchors = [akTop, akLeft, akBottom] 26 BorderSpacing.Around = 6 27 Caption = 'Items' 28 ClientHeight = 228 29 ClientWidth = 291 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 = 218 38 Top = 5 39 Width = 160 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 = TreeView1 53 AnchorSideLeft.Side = asrBottom 54 AnchorSideTop.Control = GroupBox1 55 AnchorSideRight.Control = GroupBox1 56 AnchorSideRight.Side = asrBottom 57 Left = 171 58 Height = 25 59 Top = 6 60 Width = 114 61 Anchors = [akTop, akLeft, akRight] 62 BorderSpacing.Around = 6 63 Caption = '&New Item' 64 OnClick = BtnNewItemClick 65 TabOrder = 1 66 end 67 object BtnNewSubItem: TButton 68 AnchorSideLeft.Control = TreeView1 69 AnchorSideLeft.Side = asrBottom 70 AnchorSideTop.Control = BtnNewItem 71 AnchorSideTop.Side = asrBottom 72 AnchorSideRight.Control = GroupBox1 73 AnchorSideRight.Side = asrBottom 74 Left = 171 75 Height = 25 76 Top = 37 77 Width = 114 78 Anchors = [akTop, akLeft, akRight] 79 BorderSpacing.Around = 6 80 Caption = 'N&ew SubItem' 81 OnClick = BtnNewItemClick 82 TabOrder = 2 83 end 84 object BtnDelete: TButton 85 AnchorSideLeft.Control = TreeView1 86 AnchorSideLeft.Side = asrBottom 87 AnchorSideTop.Control = BtnNewSubItem 88 AnchorSideTop.Side = asrBottom 89 AnchorSideRight.Control = GroupBox1 90 AnchorSideRight.Side = asrBottom 91 Left = 171 92 Height = 25 93 Top = 68 94 Width = 114 95 Anchors = [akTop, akLeft, akRight] 96 BorderSpacing.Around = 6 97 Caption = '&Delete' 98 OnClick = btnDeleteClick 99 TabOrder = 3 100 end 101 end 102 object GroupBox2: TGroupBox 103 AnchorSideLeft.Control = GroupBox1 104 AnchorSideLeft.Side = asrBottom 105 AnchorSideTop.Control = Owner 106 AnchorSideRight.Control = Owner 107 AnchorSideRight.Side = asrBottom 108 AnchorSideBottom.Control = ButtonPanel 109 Left = 307 110 Height = 255 111 Top = 6 112 Width = 212 113 Anchors = [akTop, akLeft, akRight, akBottom] 114 BorderSpacing.Around = 6 115 Caption = 'Item Properties' 116 ClientHeight = 228 117 ClientWidth = 208 118 TabOrder = 1 119 object LabelCaption: TLabel 120 AnchorSideLeft.Control = GroupBox2 121 AnchorSideTop.Control = GroupBox2 122 Left = 6 123 Height = 15 124 Top = 6 125 Width = 51 126 BorderSpacing.Left = 6 127 BorderSpacing.Top = 6 128 Caption = 'Caption:' 129 FocusControl = edtText 130 ParentColor = False 131 end 132 object LabelImageIndex: TLabel 133 AnchorSideLeft.Control = LabelCaption 134 AnchorSideTop.Control = edtText 135 AnchorSideTop.Side = asrBottom 136 Left = 6 137 Height = 15 138 Top = 58 139 Width = 79 140 BorderSpacing.Top = 6 141 Caption = 'Image Index:' 142 FocusControl = edtIndexImg 143 ParentColor = False 144 end 145 object LabelStateIndex: TLabel 146 AnchorSideLeft.Control = LabelImageIndex 147 AnchorSideTop.Control = edtIndexImg 148 AnchorSideTop.Side = asrBottom 149 Left = 6 150 Height = 15 151 Top = 110 152 Width = 73 153 BorderSpacing.Top = 6 154 Caption = 'State Index:' 155 FocusControl = edtIndexState 156 ParentColor = False 157 end 158 object edtText: TEdit 159 AnchorSideLeft.Control = LabelCaption 160 AnchorSideTop.Control = LabelCaption 161 AnchorSideTop.Side = asrBottom 162 AnchorSideRight.Control = GroupBox2 163 AnchorSideRight.Side = asrBottom 164 Left = 6 165 Height = 29 166 Top = 23 167 Width = 197 168 Anchors = [akTop, akLeft, akRight] 169 BorderSpacing.Top = 2 170 BorderSpacing.Right = 5 171 OnChange = Edit1Change 172 TabOrder = 0 173 end 174 object edtIndexImg: TEdit 175 AnchorSideLeft.Control = edtText 176 AnchorSideTop.Control = LabelImageIndex 177 AnchorSideTop.Side = asrBottom 178 Left = 6 179 Height = 29 180 Top = 75 181 Width = 48 182 BorderSpacing.Top = 2 183 OnEditingDone = edtIndexStateEditingDone 184 TabOrder = 1 185 end 186 object edtIndexState: TEdit 187 AnchorSideLeft.Control = edtIndexImg 188 AnchorSideTop.Control = LabelStateIndex 189 AnchorSideTop.Side = asrBottom 190 Left = 6 191 Height = 29 192 Top = 127 193 Width = 48 194 BorderSpacing.Top = 2 195 OnEditingDone = edtIndexStateEditingDone 196 TabOrder = 2 197 end 198 end 199 object ButtonPanel: TButtonPanel 200 Left = 6 201 Height = 27 202 Top = 267 203 Width = 513 204 OKButton.Name = 'OKButton' 205 OKButton.DefaultCaption = True 206 HelpButton.Name = 'HelpButton' 207 HelpButton.DefaultCaption = True 208 CloseButton.Name = 'CloseButton' 209 CloseButton.DefaultCaption = True 210 CloseButton.OnClick = btnApplyClick 211 CancelButton.Name = 'CancelButton' 212 CancelButton.DefaultCaption = True 213 TabOrder = 2 214 ShowBevel = False 215 end 216end 217