Tooltip com Icone

[asimoes]

Tooltip com Icone



Código:

Código: Selecionar todos

#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

[asimoes]

Outros defines com icone grande.

#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
#define TTI_INFO_LARGE 4
#define TTI_WARNING_LARGE 5
#define TTI_ERROR_LARGE 6

Código: Selecionar todos

ON INIT {| oDlgReport | ToolTipTitulo(oDlgReport,"Preview do Relatório",TTI_INFO_LARGE)...

FUNCTION ToolTipTitulo(oJanela, cTitulo, nIconIndex)
   hb_Default(@cTitulo,"")
   hb_Default(@nIconIndex,TTI_INFO)
   SendMessageString(GetToolTipHandle(oJanela:handle),TTM_SETTITLE, nIconIndex, cTitulo)
RETURN Nil

[Pablo César]

Obrigado Alexandre por compartilhar conosco !

Vou aproveitar e postar este recurso para HMG.

Muito legal, gostei !

[asimoes]

Colocar cores na janela do tooltip, só não funciona com o waindow.manifest incluído no arquivo de resource.

ex.:

Código: Selecionar todos

#define WM_USER                 0x0400
#define TTM_SETDELAYTIME        (WM_USER + 3)
#define TTM_SETTIPBKCOLOR       (WM_USER + 19)
#define TTM_SETTIPTEXTCOLOR     (WM_USER + 20)
#define TTM_SETMAXTIPWIDTH      (WM_USER + 24)
#define TTM_SETTITLE            (WM_USER + 32)
#define TTI_NONE                0
#define TTI_INFO                1
#define TTI_WARNING             2
#define TTI_ERROR               3
#define TTI_INFO_LARGE          4
#define TTI_WARNING_LARGE       5
#define TTI_ERROR_LARGE         6  

FUNCTION ToolTipTitulo(oJanela, cTitulo, nIconIndex)
   hb_Default(@cTitulo,"")
   hb_Default(@nIconIndex,TTI_INFO)
   
   SendMessageToolTip( GetToolTipHandle(oJanela:handle), TTM_SETTIPBKCOLOR, RGB(255,255,0), 0 ) //Só funciona sem o windows.manifest
   
   SendMessageString(GetToolTipHandle(oJanela:handle),TTM_SETTITLE, nIconIndex, cTitulo)
   
RETURN Nil

[Pablo César]

Alexandre na sua linha 20, não deveria ser esta:

SendMessage( GetToolTipHandle(oJanela:handle), TTM_SETTIPBKCOLOR, RGB(255,255,0), 0 ) //Só funciona sem o windows.manifest

ao invés desta ?

SendMessageToolTip( GetToolTipHandle(oJanela:handle), TTM_SETTIPBKCOLOR, RGB(255,255,0), 0 ) //Só funciona sem o windows.manifest

No HMG existe o SET TOOLTIPBACKCOLOR <aColor>

[asimoes]

Pablo,

A ordem não influi, agora a SenMessageToolTip só funcionará se a SendMensageString for chamada.

[Pablo César]

Não entendi. A função SendMessageToolTip, não está presente. Mas tudo bem, funciona con SendMessage.

[asimoes]

Ops, foi uma falha minha:

A função SendMessageToolTip encapsula a sendmessage:

Código: Selecionar todos

#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 ) ) );
}

HB_FUNC( SENDMESSAGETOOLTIP )
{
   hb_retnl( ( LONG ) SendMessage( ( HWND ) hb_parnl( 1 ), ( UINT ) hb_parni( 2 ), ( WPARAM ) hb_parnl( 3 ), ( LPARAM ) hb_parnl( 4 ) ) );
}

#pragma ENDDUMP