Documentation by d_homans@yahoo.com.au | Appendix A: QToolBarEX

# QToolBarEX Component

  QToolBarEX implements a generic container for your custom toolbar. It requires the additional component QImageListEX.
  QToolBarEX Properties

  Field | Type | R/W | Default | Support
  Align | INTEGER | RW | alTop | W
  | Note: alNone and alClient are not supported and default to alTop |  |  |
  Cursor | INTEGER | RW | crDefault | W
  Enabled | INTEGER | RW | True | W
  Height | INTEGER | RW |  | W
  Hint | STRING | RW |  | W
  Left | INTEGER | RW | 0 | W
  Parent | QFORM/QPANEL/QTABCONTROL | W |  |
  Tag | INTEGER | RW |  | W
  Top | INTEGER | RW | 0 | W
  Width | INTEGER | RW |  | W
  Visible | INTEGER | RW | True | W

  QToolBarEX Methods

  Method | Type | Description | Params | Support
  BtnCount | SUB(count%) | Set number of buttons in toolbar | 1 | W
  BtnSpacer | SUB(spacer%) | Set the gap between buttons | 1 | W
  BtnMask | SUB(color%) | Set transparency color of button images | 1 | W
  BMP | SUB(FileName$) | Add bitmap "strip" file to toolbar | 1 | W
  BMPHandle | SUB(Index%) | Add bitmap "strip" resource to toolbar | 1 | W
  Cursor | SUB(curType%) | Change cursor of toolbar buttons | 1 | W
  Hint | SUB(Hint$) | Add hints to toolbar buttons (csv string) | 1 | W

  QToolBarEX Events

  Event | Type | Occurs when... | Params | Support
  OnSelect | SUB(Index%) | User clicks on a toolbar button | 1 | W

  QToolBarEX Example

        ' Assumes you have a bitmap file with 8 button images

        $INCLUDE "QToolBarEX.inc"

        DECLARE SUB ButtonHit(Index AS integer)

        DIM Form AS QForm
        DIM ToolBar AS QToolBarEX

        ToolBar.Parent = Form
        ToolBar.Align=alTop
        ToolBar.BtnCount=8
        ToolBar.BMP="ToolBar.bmp"
        ToolBar.OnSelect=ButtonHit
        Form.ShowModal

        SUB ButtonHit(Index)
          ShowMessage "You hit button "+STR$(Index)
        END SUB

  Prev Component ' | Contents ' These to be fixed!! | Next Component '