November 25, 2020, 08:17:12 AM

Author Topic: [bb] Advance Toolbar by Red [ 1+ years ago ]  (Read 698 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] Advance Toolbar by Red [ 1+ years ago ]
« on: June 29, 2017, 12:28:38 AM »
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.


 

SimplePortal 2.3.6 © 2008-2014, SimplePortal