1object ToolBarConfig: TToolBarConfig 2 Left = 246 3 Height = 457 4 Top = 129 5 Width = 696 6 Caption = 'ToolBarConfig' 7 ClientHeight = 457 8 ClientWidth = 696 9 Constraints.MinHeight = 350 10 Constraints.MinWidth = 500 11 OnClose = FormClose 12 OnCreate = FormCreate 13 OnDestroy = FormDestroy 14 Position = poScreenCenter 15 LCLVersion = '2.1.0.0' 16 object lblMenuTree: TLabel 17 AnchorSideLeft.Control = TV 18 AnchorSideLeft.Side = asrCenter 19 AnchorSideTop.Control = Owner 20 Left = 147 21 Height = 15 22 Top = 6 23 Width = 70 24 BorderSpacing.Top = 6 25 BorderSpacing.Bottom = 6 26 Caption = 'lblMenuTree' 27 Font.Style = [fsBold] 28 ParentColor = False 29 ParentFont = False 30 end 31 object lblToolbar: TLabel 32 AnchorSideLeft.Control = lvToolbar 33 AnchorSideLeft.Side = asrCenter 34 AnchorSideTop.Control = lblMenuTree 35 Left = 523 36 Height = 15 37 Top = 6 38 Width = 54 39 BorderSpacing.Bottom = 6 40 Caption = 'lblToolbar' 41 Font.Style = [fsBold] 42 ParentColor = False 43 ParentFont = False 44 end 45 object btnRemove: TSpeedButton 46 AnchorSideLeft.Control = btnAdd 47 AnchorSideTop.Control = btnAdd 48 AnchorSideTop.Side = asrBottom 49 Left = 372 50 Height = 26 51 Top = 115 52 Width = 26 53 BorderSpacing.Top = 3 54 Enabled = False 55 OnClick = btnRemoveClick 56 ShowHint = True 57 ParentShowHint = False 58 end 59 object btnAdd: TSpeedButton 60 AnchorSideLeft.Control = Splitter1 61 AnchorSideLeft.Side = asrBottom 62 AnchorSideTop.Control = TV 63 Left = 372 64 Height = 26 65 Top = 86 66 Width = 26 67 BorderSpacing.Left = 3 68 BorderSpacing.Top = 30 69 Enabled = False 70 OnClick = btnAddClick 71 ShowHint = True 72 ParentShowHint = False 73 end 74 object btnMoveUp: TSpeedButton 75 AnchorSideLeft.Control = btnAdd 76 AnchorSideTop.Control = btnRemove 77 AnchorSideTop.Side = asrBottom 78 Left = 372 79 Height = 26 80 Top = 166 81 Width = 26 82 BorderSpacing.Top = 25 83 Enabled = False 84 OnClick = btnMoveUpClick 85 ShowHint = True 86 ParentShowHint = False 87 end 88 object btnMoveDown: TSpeedButton 89 AnchorSideLeft.Control = btnAdd 90 AnchorSideTop.Control = btnMoveUp 91 AnchorSideTop.Side = asrBottom 92 Left = 372 93 Height = 26 94 Top = 195 95 Width = 26 96 BorderSpacing.Top = 3 97 Enabled = False 98 OnClick = btnMoveDownClick 99 ShowHint = True 100 ParentShowHint = False 101 end 102 object TV: TTreeView 103 AnchorSideLeft.Control = Owner 104 AnchorSideTop.Control = FilterEdit 105 AnchorSideTop.Side = asrBottom 106 AnchorSideRight.Control = Splitter1 107 Left = 8 108 Height = 353 109 Top = 56 110 Width = 349 111 Anchors = [akTop, akLeft, akRight, akBottom] 112 BorderSpacing.Left = 8 113 BorderSpacing.Top = 6 114 BorderSpacing.Right = 3 115 BorderSpacing.Bottom = 6 116 ReadOnly = True 117 ScrollBars = ssAutoBoth 118 TabOrder = 1 119 OnDblClick = TVDblClick 120 OnSelectionChanged = TVSelectionChanged 121 Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] 122 end 123 object FilterEdit: TTreeFilterEdit 124 AnchorSideLeft.Control = TV 125 AnchorSideTop.Control = lblMenuTree 126 AnchorSideTop.Side = asrBottom 127 AnchorSideRight.Control = TV 128 AnchorSideRight.Side = asrBottom 129 Left = 8 130 Height = 23 131 Top = 27 132 Width = 349 133 ButtonWidth = 23 134 Anchors = [akTop, akLeft, akRight] 135 NumGlyphs = 1 136 MaxLength = 0 137 ParentFont = False 138 TabOrder = 0 139 FilteredTreeview = TV 140 ExpandAllInitially = True 141 end 142 object Splitter1: TSplitter 143 AnchorSideLeft.Control = TV 144 AnchorSideLeft.Side = asrBottom 145 AnchorSideTop.Control = TV 146 AnchorSideBottom.Control = TV 147 AnchorSideBottom.Side = asrBottom 148 Left = 360 149 Height = 353 150 Top = 56 151 Width = 9 152 Align = alNone 153 Anchors = [akTop, akBottom] 154 end 155 object lvToolbar: TListView 156 AnchorSideLeft.Control = btnAdd 157 AnchorSideLeft.Side = asrBottom 158 AnchorSideTop.Control = TV 159 AnchorSideRight.Control = Owner 160 AnchorSideRight.Side = asrBottom 161 AnchorSideBottom.Control = TV 162 AnchorSideBottom.Side = asrBottom 163 Left = 413 164 Height = 353 165 Top = 56 166 Width = 275 167 Anchors = [akTop, akLeft, akRight, akBottom] 168 BorderSpacing.Left = 15 169 BorderSpacing.Right = 8 170 Columns = < 171 item 172 AutoSize = True 173 Caption = 'Name' 174 Width = 47 175 end> 176 HideSelection = False 177 ReadOnly = True 178 ScrollBars = ssAutoBoth 179 ShowColumnHeaders = False 180 TabOrder = 3 181 ViewStyle = vsReport 182 OnDblClick = lvToolbarDblClick 183 OnEnter = lvToolbarEnterExit 184 OnExit = lvToolbarEnterExit 185 OnSelectItem = lvToolbarSelectItem 186 end 187 object btnAddDivider: TSpeedButton 188 AnchorSideLeft.Control = btnAdd 189 AnchorSideTop.Control = btnMoveDown 190 AnchorSideTop.Side = asrBottom 191 AnchorSideBottom.Control = lvToolbar 192 AnchorSideBottom.Side = asrBottom 193 Left = 372 194 Height = 26 195 Top = 353 196 Width = 26 197 Anchors = [akLeft, akBottom] 198 BorderSpacing.Bottom = 30 199 OnClick = btnAddDividerClick 200 ShowHint = True 201 ParentShowHint = False 202 end 203 object pnlButtons: TButtonPanel 204 Left = 6 205 Height = 34 206 Top = 417 207 Width = 684 208 OKButton.Name = 'OKButton' 209 OKButton.DefaultCaption = True 210 HelpButton.Name = 'HelpButton' 211 HelpButton.DefaultCaption = True 212 HelpButton.OnClick = btnHelpClick 213 CloseButton.Name = 'CloseButton' 214 CloseButton.DefaultCaption = True 215 CancelButton.Name = 'CancelButton' 216 CancelButton.DefaultCaption = True 217 TabOrder = 4 218 ShowButtons = [pbOK, pbCancel, pbHelp] 219 ShowGlyphs = [pbOK, pbCancel, pbHelp] 220 end 221end 222