Documentation by d_homans@yahoo.com.au | Appendix A: QToolBarEX |
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 |
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 |
Event | Type | Occurs when... | Params | Support |
OnSelect | SUB(Index%) | User clicks on a toolbar button | 1 | W |
' 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 | '