[bb] Advance Toolbar by Red [ 1+ years ago ]

[BlitzBot]

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[/url]

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 :

Code: BlitzBasic

1. Include "B+ Advance Toolbar.bb"
2.  
3. ;------------------------------------------------
4.  
5. WIN=CreateWindow("Wrapable toolbar example",100,100,300,128,0,1+2+8)
6. SetStatusText(WIN,"HELP: type SPACE to change toolbar mode")
7.  
8. Global TOOLBAR=CreateToolBar("ide_toolbar.bmp",0,0,0,0,WIN)            
9.         SetToolBarSeparators TOOLBAR,"0,4,7,15"  ;toolbar separators ( one before button 0, one before button 8)
10.         SetToolBarRows TOOLBAR,0               ;toolbar wrapable mode
11.                
12.         ;button group
13.         LockToolBarGroup TOOLBAR,"0,1,2,3"
14.         LockToolBar  TOOLBAR,3        
15.  
16.         ;change button state
17.         SetToolBarState TOOLBAR,4,True  ;pressed
18.         SetToolBarState TOOLBAR,5,False ;not pressed   
19.  
20.         ;button activation
21.         EnableToolBar TOOLBAR,6         ;enabled       
22.         DisableToolBar TOOLBAR,7        ;disabled
23.  
24.         ;button tooltip
25.         For i=0 To CountToolBarButtons(TOOLBAR)-1
26.                 SetToolBarTips TOOLBAR,i,"button "+i
27.         Next           
28.  
29. ;------------------------------------------------
30.  
31. WIN2=CreateWindow("",500,100,0,0,WIN,1+16+32)
32.        
33. TOOLBAR2=CreateToolBar("ide_toolbar.bmp",0,0,0,0,WIN2) 
34.         LockToolBarGroup TOOLBAR2,"ALL" ;group all
35.         SetToolBarCols TOOLBAR2,2       ;two columns
36.         FitToolbarShape TOOLBAR2,2,6
37.  
38. ;------------------------------------------------
39.  
40. While Not EventID()=$803
41.         WaitEvent()
42.        
43.         ;press SPACE to change the toolbar mode
44.         If KeyHit(57)  
45.                 mode=(mode+1) Mod 3
46.                 Select mode
47.                        
48.                         ; toolbar wrapable !
49.                         Case 0
50.                                 SetToolBarRows TOOLBAR,0
51.                                                        
52.                         ; toolbar has 3 rows           
53.                         Case 1
54.                                 SetToolBarRows TOOLBAR,3
55.                                                                
56.                         ; toolbar has 8 rows
57.                         Case 2  
58.                                 SetToolBarRows TOOLBAR,14
59.                                
60.                 End Select
61.         EndIf
62. Wend

Comments :


Red(Posted 1+ years ago)

 [updated]


JoshK(Posted 1+ years ago)

 You need to add the StringBank include file.