tooltip timing

[hag]

Is there away to adjust the timing of tooltips?
Use FWH909.

[James Bott]

Harvey,

Try oWnd:nToolTip.

James

[hag]

Thanks James:

Not sure where to put it and is it to be set to a time oWnd:ntooltip := ???

[James Bott]

Harvey,

OK, I should have explained. nTooltip is CLASSDATA of TWindow. This means that it is like a STATIC. All instances of TWindow and any instances of subclasses of TWindow will inherit this instance variable AND and its value. So you only have to set it once in your app. nTooltip defaults to 900 milliseconds.

Remember that most controls inherit from TWindow via TControl, so all those controls will have the overridden nTooltip value.

Example:

define window oWnd title "Main Window"
oWnd:nTooltip:= 1000

Or you can use this unsual syntax:

TWindow():nTooltip := 1000

Now your toolbar, GETs, etc, will have the longer time.

Regards,
James

[hag]

James:

ownd:ntoolTip := 1000, doesn't work

Code: Select all  Expand view  RUN

DEFINE FONT oFont1 NAME "tahoma" SIZE 0,-11 BOLD
          DEFINE WINDOW OWND1 FROM 1, 5 TO 20, 75  ;
         TITLE "Up Your Cash Flow XT2-2009" ;
        MENU( BUILDMENU())                                 ;
       COLOR CLR_WHITE, CLR_BLUE
       oWnd1:nTooltip := 1000
       

Can't get the tool tips to last more the 6 seconds. Even if i change the value higher.

[James Bott]

Harvey,

After looking at the code, it appears that nTooltips is only being used with Clipper. I am going to have to look at this more when I have time.

James

[Antonio Linares]

Harvey, James,

http://msdn.microsoft.com/en-us/library/bb760404(VS.85).aspx

We should modify this section of code in FWH\source\classes\window.prg:

Code: Select all  Expand view  RUN

         hWnd = CreateToolTip( Self:hWnd, If( ValType( cToolTip ) == "A", cToolTip[ 1 ], cToolTip ),  ;
                               If( ::lBalloon != nil, ::lBalloon, lTTBalloon ) )

         if ValType( cToolTip ) == "A"
            if Len( cToolTip ) > 1
               if ! Empty ( cToolTip[ 2 ] )
                  SendMessage( hWnd, TTM_SETTITLE, ;
                     If( Len( cToolTip ) > 2 .and. ! Empty( cToolTip[ 3 ] ), ;
                        cToolTip[ 3 ], TTI_INFO ), cToolTip[ 2 ] )
               endif
               ...
 

Maybe enhancing CreateToolTip() to accept new parameters, or simply adding new calls to SendMessage() there, the same way we do it for TTM_SETTITLE, etc.

First I would recommend to read that Microsoft docs info and decided what values we want to support

[hag]

Antonio:
Read the information you sent looked at the code. Looked at window.prg and I cant seem to figure out what to do.

[James Bott]

Harvey,

That was not a solution, just the section of code where the solution needs to go.

Antonio was requesting feedback on any other properties that we might want to also add at the same time as the timing fix. I haven't looked at the docs yet.

James

[hag]

Yes I know. This seems to be the location where the attribures of the tooltip take place but the if statement == "A" is a problem since the tooltip is a "C".

I may be way off but i couldn't find any othe place in window.prg where the tool yip is adjusted.

Code: Select all  Expand view  RUN

if ValType( cToolTip ) == "A"
       if Len( cToolTip ) > 1
            if ! Empty ( cToolTip[ 2 ] )
             SendMessage( hWnd, TTM_SETTITLE, ;
              If( Len( cToolTip ) > 2 .and. ! Empty( cToolTip[ 3 ] ), ;
              cToolTip[ 3 ], TTI_INFO ), cToolTip[ 2 ] )
        endif
      if Len( cToolTip ) > 3
           if ValType( cToolTip[ 4 ] ) == "N"
                SendMessage( hWnd, TTM_SETTIPTEXTCOLOR, cToolTip[ 4 ], 0 )
             endif
      if Len( cToolTip ) > 4
           if ValType( cToolTip[ 5 ] ) == "N"
               SendMessage( hWnd, TTM_SETTIPBKCOLOR, cToolTip[ 5 ], 0 )
                 endif
          endif
              endif
            endif
         endif
 

[Antonio Linares]

Harvey,

Your code should go outside of that if ... endif unless you plan to use an array for the tooltip info:

Code: Select all  Expand view  RUN

SendMessage( hWnd, TTM_SETDELAYTIME, TTDT_AUTOPOP, nMakeLong( 6000, 0 ) )
 

[hag]

Antonio:
Doesnt work

I need to define the ttm_setdelaytime

#define TTM_SETDELAYTIME ??? what value
#define TTDT_AUTOPOP ??? what value

I placed SendMessage( hWnd, TTM_SETDELAYTIME, TTDT_AUTOPOP, nMakeLong( 6000, 0 ) )
below the endif in the array if endif statement. Nothing happens
BUT If I set #define TTM_SETDELAYTIME (WM_USER +24) the ToolTip looks much better better but no time change or time control.

Thanks again for the help but so far not working.

[Antonio Linares]

Harvey,

#define TTM_SETDELAYTIME (WM_USER + 3)
#define TTDT_AUTOPOP 2

Those values are defined in c:\bcc55\include\commctrl.h

[hag]

Perfect. Thanks for the help