home *** CD-ROM | disk | FTP | other *** search
- object SpeedbarSetupWindow: TSpeedbarSetupWindow
- Left = 231
- Top = 121
- ActiveControl = SectionList
- BorderIcons = []
- BorderStyle = bsDialog
- ClientHeight = 262
- ClientWidth = 421
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FormStyle = fsStayOnTop
- Icon.Data = {<image000.ico>}
- 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
-