Código:
#define WM_USER 0x0400
#define TTM_SETTITLE (WM_USER + 32)
#define TTI_NONE 0
#define TTI_INFO 1
#define TTI_WARNING 2
#define TTI_ERROR 3
FUNCTION Teste
INIT DIALOG oDlgReport TITLE "Teste" ;
ICON oIconPrint ;
AT 0,0 SIZE 1024,768 ;
CLIPPER ;
FONT oFont ;
COLOR nCorJanela ;
STYLE DS_CENTER + WS_SYSMENU + WS_VISIBLE ;
ON INIT {| oDlgReport | ToolTipTitulo(oDlgReport,"Preview do Relatório")}
@ 006,020 BUTTONEX cmd1 ;
CAPTION "Teste" ;
ON CLICK { || ZoomRep(oEdit,'-',oDlgReport)} ;
SIZE 115, 40 ;
ICON oIconZoomOut:handle ;
TOOLTIP 'Teste com Tooltip com Icone'
oDlgReport:Activate(.F.)
RETURN Nil
FUNCTION ToolTipTitulo(oJanela, cTitulo)
hb_Default(@cTitulo,"")
SendMessageString(GetToolTipHandle(oJanela:handle),TTM_SETTITLE, TTI_INFO, cTitulo)
RETURN Nil
#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
HB_FUNC( SENDMESSAGESTRING )
{
hb_retnl( ( LONG ) SendMessage( ( HWND ) hb_parnl( 1 ), ( UINT ) hb_parni( 2 ), ( WPARAM ) hb_parnl( 3 ), ( LPARAM ) ( LPSTR ) hb_parc( 4 ) ) );
}
#pragma ENDDUMP