SET TOOLTIPBACKCOLOR

[Javier Tovar]

hummmm

No sé lo que esta fallando, pero solo me funciona en Window Basic. en Win7, 32bits, HMG-Unicode

Espero que mañana mi máquina quiera trabajar y no me haga pensar cosas!

Saludos

[Pablo César]

Works fine for me in Aero and non Aero styles (Win 7).

+1

[Pablo César]

Dear Claudio,

This is for delay time display of ToolTips:

Code: Select all

#define TTM_SETDELAYTIME      ( WM_USER + 3 )
#define TTDT_AUTOMATIC        0
#define TTDT_RESHOW           1
#define TTDT_AUTOPOP          2
#define TTDT_INITIAL          3

nMilSecs := 5000
SendMessage( GetFormToolTipHandle ("Form_1"), TTM_SETDELAYTIME, TTDT_RESHOW, nMilSecs )

I tested with TTDT_RESHOW+TTDT_AUTOPOP and the ToolTip is been displayed and when finishing is with vanishing effect (disapearing slowly).

Probably you would like to include in HMG.

---

I also trying to have a differentiated ToolTip by Control, but without success...

I'm using:

Code: Select all

SetToolTipCustomDrawControl (cControlName, cFormName, aBackColor, aForeColor, aFont, lBalloon, cTitle, xIconName )

and

Code: Select all

aFont := ARRAY FONT "Times New Roman" SIZE 10 BOLD ITALIC
SET TOOLTIPCUSTOMDRAW CONTROL Label_2 OF Form_1  ARRAYFONT aFont  BALLOON .F.  TITLE "Title Label"  ICON TOOLTIPICON_INFO_LARGE

But not working, assume only a generic for all. And sometimes one control assume same ICON from other which should not display any.

The strange in your demo is working... Would it be by the reason of I'm using _SetToolTip function to force attribution text ? And this old function is being a generic not CustomDrawed ?

Click here to download in case you need to see source code.