object SpeedbarSetupWindow: TSpeedbarSetupWindow Left = 231 Top = 121 ActiveControl = SectionList BorderIcons = [] BorderStyle = bsDialog ClientHeight = 262 ClientWidth = 421 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] FormStyle = fsStayOnTop Icon.Data = {} PixelsPerInch = 96 Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow TextHeight = 13 object Bevel1: TBevel Left = 4 Top = 4 Width = 328 Height = 221 Shape = bsFrame end object ButtonsLabel: TLabel Left = 146 Top = 11 Width = 119 Height = 13 Caption = '&Available buttons: ' FocusControl = ButtonsList end object CategoriesLabel: TLabel Left = 12 Top = 11 Width = 81 Height = 13 Caption = '&Categories: ' end object HintLabel: TLabel Left = 8 Top = 231 Width = 407 Height = 29 AutoSize = False Caption = 'To add command buttons, drag and drop buttons onto the SpeedBar.' + ' To remove command buttons, drag them off of the SpeedBar.' WordWrap = True end object ButtonsList: TDrawGrid Left = 146 Top = 30 Width = 179 Height = 188 ColCount = 1 DefaultColWidth = 169 DefaultRowHeight = 26 FixedCols = 0 FixedRows = 0 Options = [goDrawFocusSelected, goRowSelect] RowCount = 1 ScrollBars = ssVertical TabOrder = 1 OnDrawCell = ButtonsListDrawCell OnMouseDown = ButtonsListMouseDown OnMouseMove = ButtonsListMouseMove OnMouseUp = ButtonsListMouseUp OnSelectCell = ButtonsListSelectCell end object SectionList: TDrawGrid Left = 12 Top = 30 Width = 129 Height = 188 ColCount = 1 DefaultColWidth = 127 DefaultRowHeight = 15 FixedCols = 0 FixedRows = 0 Options = [goDrawFocusSelected, goRowSelect] RowCount = 1 ScrollBars = ssVertical TabOrder = 0 OnDrawCell = SectionListDrawCell OnSelectCell = SectionListSelectCell end object CloseBtn: TButton Left = 339 Top = 12 Width = 77 Height = 25 Cancel = True Default = True ModalResult = 1 TabOrder = 2 OnClick = CloseBtnClick end object HelpBtn: TButton Left = 339 Top = 44 Width = 77 Height = 25 TabOrder = 3 OnClick = HelpBtnClick end end