Ye, you use child windows. Add a button toolbar to a new window, then pin it as a child window to the main window in use. The advantage of this is that you can have as many child windows as you need
function maketoolbar()
GLOBAL tbar1
`menua=make menu()
`apply menu dbpro_w,menu
`Create a child window for the toolbar so his non wrapable style can be seen more easily
w2a=make window(1,0,desktop width(),20,"",dbpro_w,WS_CHILD)
`Let's create our first toolbar
tbar1=make toolbar( 0, TCS_FIXEDWIDTH, w2a)
`After creating toolbar MUST be FIRST shown and then maximized
show window tbar1 : maximize window tbar1
`Before adding buttons to toolbar you first need to create and assign the imagelists
`Transparent color for this imagelist is RGB(192,192,192)
imagelist set transparent color rgb(192,192,192)
ilist=make imagelist(16,originaldir + "\data\Toolbar.bmp",LR_CREATEDIBSECTION)
toolbar set imagelist tbar1,ilist
hot_ilist=make imagelist(16,originaldir + "\data\Toolbar.bmp",LR_CREATEDIBSECTION)
toolbar set hot imagelist tbar1,hot_ilist
`Adding buttons to toolbar
`Sintax:
`TOOLBAR ADD BUTTON toolbar_handle, button_style, button_id, image_index
`This toolbar will have button with images
for t=0 to 15
if toolbar(t+1) = 1 then toolbar add button tbar1,BTNS_BUTTON,t,t
next t
`Setting the tooltips for toolbar buttons
if toolbar(1) = 1 then toolbar set button tooltip tbar1,0,"New"
if toolbar(2) = 1 then toolbar set button tooltip tbar1,1,"Open"
if toolbar(3) = 1 then toolbar set button tooltip tbar1,2,"Save As"
if toolbar(4) = 1 then toolbar set button tooltip tbar1,3,"Save"
toolbar add separator tbar1
if toolbar(5) = 1 then toolbar set button tooltip tbar1,4,"Publish"
if toolbar(6) = 1 then toolbar set button tooltip tbar1,5,"Preview"
if toolbar(7) = 1 then toolbar set button tooltip tbar1,6,"Export"
toolbar add separator tbar1
if toolbar(8) = 1 then toolbar set button tooltip tbar1,7,"Objects"
if toolbar(9) = 1 then toolbar set button tooltip tbar1,8,"Colours"
toolbar add separator tbar1
if toolbar(10) = 1 then toolbar set button tooltip tbar1,9,"Single Line"
if toolbar(11) = 1 then toolbar set button tooltip tbar1,10,"Outline"
if toolbar(12) = 1 then toolbar set button tooltip tbar1,11,"Square"
if toolbar(13) = 1 then toolbar set button tooltip tbar1,12,"Cover Up"
if toolbar(14) = 1 then toolbar set button tooltip tbar1,13,"No Edit"
toolbar add separator tbar1
if toolbar(15) = 1 then toolbar set button tooltip tbar1,14,"Help"
if toolbar(16) = 1 then toolbar set button tooltip tbar1,15,"About"
//Non wrapable list toolbar
apply menu w2a, menu
endfunction
Think that should do it
You need to create your own image file and adjust the code accordingly.
This code is ripped out of my trial and error project so some unused code has been remmed out and it just hasnt been removed permanently.
