OpenEuphoria

RE: Toolbar Enhancement question

• Posted by Bernie Ryan <xotron at localnet.com> Jun 13, 2002
• 400 views

jordah ferguson wrote:
> Hi all,
> 
> Has any one ever attempted to do enhancements to Toolbars in API.
> What i mean is that has any one tried to create a customizable
> toolbar?
> 

jordah:

Download my win32eru utility and go to the demo
directory and you will find w32tbar.exw
This demo uses toolbar tips, real toolbar images,
and can be customized by the user by changing the following.

http://www.rapideuphoria.com/win32eru.zip

Find the following line in my demo w32tbar.exw   

-- toolbar window
tb = create(ToolBar, "", tbar, 0, 0, 0, 30, TBSTYLE_TOOLTIPS)

Change the line to the following and you will be able to drag
the buttons around on the toolbar to a different position by
using the mouse while holding down the shift key.
-- toolbar window
tb = create(ToolBar, "", tbar, 0, 0, 0, 30, 
        or_all({CCS_ADJUSTABLE,TBSTYLE_TOOLTIPS}))

Change the line to the following to use alt key when dragging
-- toolbar window
tb = create(ToolBar, "", tbar, 0, 0, 0, 30, 
      or_all({CCS_ADJUSTABLE,CCS_ADJUSTABLE,TBSTYLE_TOOLTIPS}))

The user can customize the toolbar by double clicking
on the empty part of the bar.


Bernie