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
FieldType R/WDefault Support
AlignINTEGERRWalTopW
 Note: alNone and alClient are not supported and default to alTop    
CursorINTEGERRWcrDefaultW
EnabledINTEGERRWTrueW
HeightINTEGERRW W
HintSTRINGRW W
LeftINTEGERRW0W
ParentQFORM/QPANEL/QTABCONTROLW  
TagINTEGERRW W
TopINTEGERRW0W
WidthINTEGERRW W
VisibleINTEGERRWTrueW

QToolBarEX Methods
MethodTypeDescriptionParamsSupport





BtnCountSUB(count%)Set number of buttons in toolbar1W
BtnSpacerSUB(spacer%)Set the gap between buttons1W
BtnMaskSUB(color%)Set transparency color of button images1W
BMPSUB(FileName$)Add bitmap "strip" file to toolbar1W
BMPHandleSUB(Index%)Add bitmap "strip" resource to toolbar1W
CursorSUB(curType%)Change cursor of toolbar buttons1W
HintSUB(Hint$)Add hints to toolbar buttons (csv string)1W

QToolBarEX Events
EventTypeOccurs when...ParamsSupport





OnSelectSUB(Index%)User clicks on a toolbar button1W


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

' ' These to be fixed!! '
Prev ComponentContentsNext Component