Creating Tool Tips

[reidar_tyssen]

I know this issue has been discussed in this forum some years ago, but from reading old threads is not possible to find a solution.

The problem: I am trying to enhance L. Normans example Toolbar by introducing tool tips. However, it will not work. The whole project is enclosed in the attached zip-file.

Can you help?

[Jugoslav_Dujic]

You were almost there -- except that TBSTYLE_TOOLTIPS is a "plain" window style, not an extended one.

A stylistic nitpick: it's probably simpler to use hInst+string table ID than LoadString, i.e:

if(lpToolTipText%hdr%code == TTN_GETDISPINFOA)then
  ptext = lparam
  lpToolTipText%lpszText = lpToolTipText%hdr%idfrom
  lpToolTipText%hinst = ghinstance
endif

[reidar_tyssen]

Dear JugoslavDujic

You are overrating my Win-skills, I am still almost there.

Could you please be more specific?

Reidar

[Jugoslav_Dujic]

I'm lazy to check the code back, but you had:

hToolbar = CreateWindowEx(TBSTYLE_TOOLTIPS...

where you should have:

hToolbar = CreateWindowEx(0, ...,IOR(WS_CHILD, TBSTYLE_TOOLTIPS)...

[reidar_tyssen]

I understand creating the tool window should be:

hwndTB = CreateWindowEx (WS_EX_TOPMOST,TOOLBARCLASSNAMEA, &

""C, IOR(WS_CHILD, TBSTYLE_TOOLTIPS),50,100, 0, 0, hwnd,Null,&

ghInstance , NULL)

and this works fine!

The alternative highstyle code you proposeed in the case construct:

if(lpToolTipText%hdr%code == TTN_GETDISPINFOA)then

ptext = lparam

lpToolTipText%lpszText = lpToolTipText%hdr%idfrom

lpToolTipText%hinst = ghinstance

         endif

does not work at all, so I stick to the original.

An additional question:

Regarding the function CreateWindowEx , argument 1 specify TOPMOST style,

argument 5-6 which is set to 50 and 100, specify the position of the window.

Whatever I specify, the toolbar appears in the upper left corner

(could not paste the screen dumppicture into here.

Creating a second toolbar will then overlap the first, so how it is possible to

specify the position?

Regards

Reidar

[Paul_Curtis]

I have never wanted to resize a tooltip (ie, the automated nature of the WinAPI functionality is the whole point of the feature), but this should be do-able in exactly the same manner as any other window. Here is how I create tooltips (the text is dynamic and is loaded elsewhere):

FUNCTION CreateToolTips (hParent) RESULT (hTT)
IMPLICIT NONE
INTEGER, INTENT(IN) :: hParent
INTEGER :: hTT, rval

! creates a ToolTips control as a child to hParent
hTT = CreateWindowEx (0, TOOLTIPS_CLASS, ""c, &
IOR(TTS_ALWAYSTIP,WS_POPUP), &
CW_USEDEFAULT, CW_USEDEFAULT, &
CW_USEDEFAULT, CW_USEDEFAULT, &
hParent, NULL, ghInstance, NULL)

rval = SetWindowPos (hTT, HWND_TOPMOST, 0,0,0,0, &
IOR(SWP_NOACTIVATE,IOR(SWP_NOMOVE,SWP_NOSIZE)))

rval = SendMessage (hTT, TTM_SETDELAYTIME, TTDT_INITIAL, &
MakeLong(INT2( 5),INT2(0)))
rval = SendMessage (hTT, TTM_SETDELAYTIME, TTDT_AUTOPOP, & MakeLong(INT2(3000),INT2(0)))
rval = SendMessage (hTT, TTM_ACTIVATE, TRUE, 0)

END FUNCTION CreateToolTips

[Jugoslav_Dujic]

Reidar, you have to also specify CCS_NORESIZE and CCS_NOPARENTALIGN styles (not extended styles) to prevent the toolbar's automatic sizing and moving respectively. With those styles, the toolbar will obey to SetWindowPos/MoveWindow calls.

Alternatively, you can use a rebar control (which provides "bands" to which toolbars can be attached), but it's fairly difficult to use & set up. I recommend stic...

[reidar_tyssen]

Creating Tool Tips  
The problem may be solved in the following steps:
1)Run the program residing in the release folder. Check tool tips at the Open and 
 Save buttons.
2)Repeat step 1 in Debug mode. Try to locate where to store the tool tip text.
 Hint: Tool bar editor, check property  prompt for the Open button.
3)What programming steps are required to make the toolbar appear in the middle of the
 client window? 
 Hint: check questions and answers in this thread.
Are you the first one to solve the problems and check the code back?
Wish You a Merry Christmas
Reidar