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

' ' These to be fixed!! '

Prev Component

Contents

Next Component