


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
Moderator: Rathinagiri
+1srvet_claudio wrote:Works fine for me in Aero and non Aero styles (Win 7).
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 )
Code: Select all
SetToolTipCustomDrawControl (cControlName, cFormName, aBackColor, aForeColor, aFont, lBalloon, cTitle, xIconName )
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