by Richard Russell, January 2007

If your program uses the WINLIB library to create a toolbar then you can easily add tooltips to the toolbar buttons using the PROC_addtooltips function provided. However if you use the same library to create a status bar no built-in method for adding tooltips to it is provided.

Nevertheless it is actually quite easy to add tooltips to a status bar. You should first create the status bar in the usual way, using the FN_createstatusbar function, and divide it up into the wanted number of parts. Next you need a handle to a tooltip control; there are two ways of achieving that, depending on whether or not your program also uses a toolbar.

If you have created a toolbar with tooltips then you can obtain a handle to its tooltip control as follows:

        TB_GETTOOLTIPS = 1059
        SYS "SendMessage", htoolbar%, TB_GETTOOLTIPS, 0, 0 TO htooltip%

Here htoolbar% is the handle of the toolbar, as returned from FN_createtoolbar.

If your program doesn't use a toolbar, you must install the WINLIB5 (or WINLIB5A) library:

        INSTALL @lib$+"WINLIB5"

The tooltip control can now be created as follows:

        TTS_ALWAYSTIP = 1
        TTS_NOPREFIX = 2
        WS_CHILD = &40000000
        WS_VISIBLE = &10000000
 
        htooltip% = FN_createwindow("tooltips_class32", "", 0, 0, 0, 0, 0, \
        \           WS_CHILD+WS_VISIBLE+TTS_ALWAYSTIP+TTS_NOPREFIX, 0)

If instead your program uses the WINLIB5A library then the code must be adapted as follows:

        TTS_ALWAYSTIP = 1
        TTS_NOPREFIX = 2
        WS_CHILD = &40000000
        WS_VISIBLE = &10000000
 
        htooltip% = FN_createwindow(@hwnd%, "tooltips_class32", "", 0, 0, 0, 0, 0, \
        \           WS_CHILD+WS_VISIBLE+TTS_ALWAYSTIP+TTS_NOPREFIX, 0)

It is advisable to create only one tooltip control for your entire program.

Next define a TOOLINFO data structure and initialise a couple of its members:

        DIM ti{cbSize%, uFlags%, hwnd%, uId%, rect{l%,t%,r%,b%}, hinst%, lpszText%}
        TTM_ADDTOOL = 1028
        SB_GETRECT = 1034
        TTF_SUBCLASS = &10
        ti.cbSize% = DIM(ti{})
        ti.uFlags% = TTF_SUBCLASS
        ti.hwnd% = hstatusbar%

Here hstatusbar% is the handle of the status bar, as returned from FN_createstatusbar.

Now we have everything we need to create the tooltips themselves. For each part of the status bar create a tooltip for it as follows:

        tip$ = "Tool tip"+CHR$0
        ti.lpszText% = !^tip$
        SYS "SendMessage", hstatusbar%, SB_GETRECT, part%, ^ti.rect.l%
        SYS "SendMessage", htooltip%, TTM_ADDTOOL, 0, ti{}

Here part% is the status bar part number, starting from 0 for the first (leftmost) part.

Note particularly the important CHR$0 concatenated to the end of the tooltip string (here “Tool tip”).