Title : Advance Toolbar
Author : Red
Posted : 1+ years ago
Description : Download lastest version of this lib: <a href="http://www.codersworkshop.com/viewshowcase.php?id=21" target="_blank">here</a>
Extend toolbar commands
SetToolBarRows(tb, rows)
SetToolBarCols(tb, columns)
DisableToolBar(tb, buttonPos)
EnableToolBar(tb, buttonPos)
LockToolBar(tb, buttonPos)
UnlockToolBar(tb, buttonPos)
SetToolBarState(tb, buttonPos, buttonPushed)
CountToolBarButtons%(tb)
SetToolBarSeparators(tb, separators$)
SetToolBarTips(tb, buttonPos, tip$)
Remarks
- I overrided the B+ command: SetToolBarTips
- SetToolBarRows(tb,0) or SetToolBarCols(tb,0) make toolbar wrapable.
Code :
Include "B+ Advance Toolbar.bb"
;------------------------------------------------
WIN=CreateWindow("Wrapable toolbar example",100,100,300,128,0,1+2+8)
SetStatusText(WIN,"HELP: type SPACE to change toolbar mode")
Global TOOLBAR=CreateToolBar("ide_toolbar.bmp",0,0,0,0,WIN)
SetToolBarSeparators TOOLBAR,"0,4,7,15" ;toolbar separators ( one before button 0, one before button 8)
SetToolBarRows TOOLBAR,0 ;toolbar wrapable mode
;button group
LockToolBarGroup TOOLBAR,"0,1,2,3"
LockToolBar TOOLBAR,3
;change button state
SetToolBarState TOOLBAR,4,True ;pressed
SetToolBarState TOOLBAR,5,False ;not pressed
;button activation
EnableToolBar TOOLBAR,6 ;enabled
DisableToolBar TOOLBAR,7 ;disabled
;button tooltip
For i=0 To CountToolBarButtons(TOOLBAR)-1
SetToolBarTips TOOLBAR,i,"button "+i
Next
;------------------------------------------------
WIN2=CreateWindow("",500,100,0,0,WIN,1+16+32)
TOOLBAR2=CreateToolBar("ide_toolbar.bmp",0,0,0,0,WIN2)
LockToolBarGroup TOOLBAR2,"ALL" ;group all
SetToolBarCols TOOLBAR2,2 ;two columns
FitToolbarShape TOOLBAR2,2,6
;------------------------------------------------
While Not EventID()=$803
WaitEvent()
;press SPACE to change the toolbar mode
If KeyHit(57)
mode=(mode+1) Mod 3
Select mode
; toolbar wrapable !
Case 0
SetToolBarRows TOOLBAR,0
; toolbar has 3 rows
Case 1
SetToolBarRows TOOLBAR,3
; toolbar has 8 rows
Case 2
SetToolBarRows TOOLBAR,14
End Select
EndIf
Wend
Comments :
Red(Posted 1+ years ago)
[updated]
JoshK(Posted 1+ years ago)
You need to add the StringBank include file.