Hola.
Tengo un TSButton con un tooltip y funciona correctamente, pero cuando lo pongo en :disabled() ya no se muestra el tooltip. He visto algún post al respecto con otros controles, pero no sobre un botón.
Alguna ayuda al respecto?
Gracias!
paquitohm wrote:Hola Víctor,Gracias paquitohm, estuve viendo esos posts a los que te refieres, pero prefiero utilizar algo más nativo de fwh, si nadie comenta nada, ya miro como lo puedo solucionar.
Hace muchos años, lo menos 15, pregunté por esta característica: tooltip sobre elementos disabled.
Me respondieron que no la había y entonces me monté una a base de una clase de tooltip (ajtip, creo que se llama) y a base de modificar control.prg
Bastante heterodoxo, pero si efectivo porque aunque muestra unos tooltip que no son los estandar de windows, estos que saca son rectangulos con texto con fondo y letra configurables, pero si funcionan.
Quiza fwh ya tenga esa caracteristica o el equipo fwh la pueda desarrollar de una manera más ortodoxa
Salu2
BTW. Esos botones que se muestran en la imagen son botones SButton. El efecto apagado también lo saqué de algún sitio a base de hacer pruebas.
#include "FiveWin.ch"
function Main()
local oWnd, oBtn
DEFINE WINDOW oWnd
@ 2, 4 BTNBMP oBtn PROMPT "Ok" SIZE 80, 20
oBtn:Disable()
oBtn:cTooltip = "hola"
oWnd:bMMoved = { || oBtn:ShowTooltip( 30, 30, oBtn:cTooltip ) }
ACTIVATE WINDOW oWnd CENTERED
return nil oWnd:bMMoved = { || oBtn:ShowTooltip( 30, 30, oBtn:cTooltip ), hb_MemoWrit( 'test.log',Time()) }#define FKG_FORCED_USAGE
#include <Windows.h>
#include <CommCtrl.h>
#include <hbapi.h>
#ifndef TTS_BALLOON
#define TTS_BALLOON 0x40
#endif
#ifndef TTF_TRANSPARENT
#define TTF_TRANSPARENT 0x0100
#endif
#ifndef TTM_SETMAXTIPWIDTH
#define TTM_SETMAXTIPWIDTH (WM_USER+24)
#endif
HMODULE GetResources( void );
#define CS_DROPSHADOW 0x00020000
HB_FUNC( CREATETOOLTIP ) // hWndParent, cText, lBallon --> hWndTooltip
{
TOOLINFO ti;
RECT rct;
HWND hWndParent = ( HWND ) ( LONG_PTR ) hb_parnll( 1 );
HWND hWnd = CreateWindowEx( 0, TOOLTIPS_CLASS, NULL,
WS_POPUP | TTS_ALWAYSTIP | TTS_NOPREFIX |
( hb_parl( 3 ) ? TTS_BALLOON: 0 ),
CW_USEDEFAULT, CW_USEDEFAULT,
CW_USEDEFAULT, CW_USEDEFAULT,
hWndParent, NULL, GetModuleHandle( NULL ),
NULL );
DWORD dwVersion = GetVersion();
DWORD dwWindowsMajorVersion = ( DWORD )( LOBYTE( LOWORD( dwVersion ) ) );
DWORD dwWindowsMinorVersion = ( DWORD )( HIBYTE( LOWORD( dwVersion ) ) );
if( ( dwWindowsMajorVersion >= 5 && dwWindowsMinorVersion >= 1 ) || ( dwWindowsMajorVersion >= 6 ) )
SetClassLong( hWnd, GCL_STYLE, GetClassLong( hWnd, GCL_STYLE ) | CS_DROPSHADOW );
GetClientRect ( hWndParent, &rct );
ti.cbSize = sizeof( TOOLINFO );
ti.uFlags = TTF_SUBCLASS | TTF_TRANSPARENT;
ti.hwnd = hWndParent;
ti.hinst = GetModuleHandle( NULL );
ti.uId = 0;
ti.lpszText = ( LPSTR ) hb_parc( 2 );
ti.rect.left = rct.left;
ti.rect.top = rct.top;
ti.rect.right = rct.right;
ti.rect.bottom = rct.bottom;
SendMessage( hWnd, TTM_ADDTOOL, 0, ( LPARAM ) ( LPTOOLINFO ) &ti );
SendMessage( hWnd, TTM_ACTIVATE, TRUE, 0 );
SendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 120 );
#ifndef _WIN64
hb_retnl( ( LONG ) hWnd );
#else
hb_retnll( ( LONGLONG ) hWnd );
#endif
}#define FKG_FORCED_USAGE
#include <Windows.h>
#include <CommCtrl.h>
#include <hbapi.h>
#ifndef TTS_BALLOON
#define TTS_BALLOON 0x40
#endif
#ifndef TTF_TRANSPARENT
#define TTF_TRANSPARENT 0x0100
#endif
#ifndef TTF_IDISHWND
#define TTF_IDISHWND 0x0001
#endif
#ifndef TTM_SETMAXTIPWIDTH
#define TTM_SETMAXTIPWIDTH (WM_USER+24)
#endif
HMODULE GetResources( void );
#define CS_DROPSHADOW 0x00020000
HB_FUNC( CREATETOOLTIP ) // hWndParent, cText, lBallon --> hWndTooltip
{
TOOLINFO ti;
RECT rct;
HWND hWndParent = ( HWND ) ( LONG_PTR ) hb_parnll( 1 );
HWND hWnd = CreateWindowEx( 0, TOOLTIPS_CLASS, NULL,
WS_POPUP | TTS_ALWAYSTIP | TTS_NOPREFIX |
( hb_parl( 3 ) ? TTS_BALLOON: 0 ),
CW_USEDEFAULT, CW_USEDEFAULT,
CW_USEDEFAULT, CW_USEDEFAULT,
hWndParent, NULL, GetModuleHandle( NULL ),
NULL );
DWORD dwVersion = GetVersion();
DWORD dwWindowsMajorVersion = ( DWORD )( LOBYTE( LOWORD( dwVersion ) ) );
DWORD dwWindowsMinorVersion = ( DWORD )( HIBYTE( LOWORD( dwVersion ) ) );
if( ( dwWindowsMajorVersion >= 5 && dwWindowsMinorVersion >= 1 ) || ( dwWindowsMajorVersion >= 6 ) )
SetClassLong( hWnd, GCL_STYLE, GetClassLong( hWnd, GCL_STYLE ) | CS_DROPSHADOW );
GetClientRect ( hWndParent, &rct );
ti.cbSize = sizeof( TOOLINFO );
ti.uFlags = TTF_SUBCLASS | TTF_TRANSPARENT | TTF_IDISHWND;
ti.hwnd = hWndParent;
ti.hinst = GetModuleHandle( NULL );
ti.uId = (UINT_PTR) hWndParent; // Usamos el handle de la ventana como ID
ti.lpszText = ( LPSTR ) hb_parc( 2 );
ti.rect.left = rct.left;
ti.rect.top = rct.top;
ti.rect.right = rct.right;
ti.rect.bottom = rct.bottom;
SendMessage( hWnd, TTM_ADDTOOL, 0, ( LPARAM ) ( LPTOOLINFO ) &ti );
SendMessage( hWnd, TTM_ACTIVATE, TRUE, 0 );
SendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 120 );
#ifndef _WIN64
hb_retnl( ( LONG ) hWnd );
#else
hb_retnll( ( LONGLONG ) hWnd );
#endif
}It doesn't work. The problem is that a disable control does not generate the WM_MOUSEMOVE event.
Dear Enrico,
> oWnd:bMMoved = { || oBtn:ShowTooltip( 30, 30, oBtn:cTooltip ), hb_MemoWrit( 'test.log',Time()) }
We are trying to use the bMMoved of the parent
Antonio Linares wrote:Este es el código modificado para que se muestre siempre. Puedes probarlo Victor ? :-)He realizado la prueba con el código que has indicado y el comportamiento es el mismo, el codeblock se ejecuta ( escribe en el log ) pero no muestra el tooltip#define FKG_FORCED_USAGE #include <Windows.h> #include <CommCtrl.h> #include <hbapi.h> #ifndef TTS_BALLOON #define TTS_BALLOON 0x40 #endif #ifndef TTF_TRANSPARENT #define TTF_TRANSPARENT 0x0100 #endif #ifndef TTF_IDISHWND #define TTF_IDISHWND 0x0001 #endif #ifndef TTM_SETMAXTIPWIDTH #define TTM_SETMAXTIPWIDTH (WM_USER+24) #endif HMODULE GetResources( void ); #define CS_DROPSHADOW 0x00020000 HB_FUNC( CREATETOOLTIP ) // hWndParent, cText, lBallon --> hWndTooltip { TOOLINFO ti; RECT rct; HWND hWndParent = ( HWND ) ( LONG_PTR ) hb_parnll( 1 ); HWND hWnd = CreateWindowEx( 0, TOOLTIPS_CLASS, NULL, WS_POPUP | TTS_ALWAYSTIP | TTS_NOPREFIX | ( hb_parl( 3 ) ? TTS_BALLOON: 0 ), CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, hWndParent, NULL, GetModuleHandle( NULL ), NULL ); DWORD dwVersion = GetVersion(); DWORD dwWindowsMajorVersion = ( DWORD )( LOBYTE( LOWORD( dwVersion ) ) ); DWORD dwWindowsMinorVersion = ( DWORD )( HIBYTE( LOWORD( dwVersion ) ) ); if( ( dwWindowsMajorVersion >= 5 && dwWindowsMinorVersion >= 1 ) || ( dwWindowsMajorVersion >= 6 ) ) SetClassLong( hWnd, GCL_STYLE, GetClassLong( hWnd, GCL_STYLE ) | CS_DROPSHADOW ); GetClientRect ( hWndParent, &rct ); ti.cbSize = sizeof( TOOLINFO ); ti.uFlags = TTF_SUBCLASS | TTF_TRANSPARENT | TTF_IDISHWND; ti.hwnd = hWndParent; ti.hinst = GetModuleHandle( NULL ); ti.uId = (UINT_PTR) hWndParent; // Usamos el handle de la ventana como ID ti.lpszText = ( LPSTR ) hb_parc( 2 ); ti.rect.left = rct.left; ti.rect.top = rct.top; ti.rect.right = rct.right; ti.rect.bottom = rct.bottom; SendMessage( hWnd, TTM_ADDTOOL, 0, ( LPARAM ) ( LPTOOLINFO ) &ti ); SendMessage( hWnd, TTM_ACTIVATE, TRUE, 0 ); SendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 120 ); #ifndef _WIN64 hb_retnl( ( LONG ) hWnd ); #else hb_retnll( ( LONGLONG ) hWnd ); #endif }
#include "FiveWin.ch"
function Main()
local oWnd, oBtn
DEFINE WINDOW oWnd
@ 2, 4 BTNBMP oBtn PROMPT "Ok" SIZE 80, 20
oBtn:Disable()
oBtn:cTooltip = "hola"
oWnd:bMMoved = { || oBtn:ShowTooltip( 30, 30, oBtn:cTooltip ), hb_MemoWrit( 'test.log',Time()) }
ACTIVATE WINDOW oWnd CENTERED
return nil
#pragma BEGINDUMP
#define FKG_FORCED_USAGE
#include "C:\si\nlen\bcc74\include\windows\sdk\Windows.h"
#include "C:\si\nlen\bcc74\include\windows\sdk\CommCtrl.h"
#include <hbapi.h>
#ifndef TTS_BALLOON
#define TTS_BALLOON 0x40
#endif
#ifndef TTF_TRANSPARENT
#define TTF_TRANSPARENT 0x0100
#endif
#ifndef TTF_IDISHWND
#define TTF_IDISHWND 0x0001
#endif
#ifndef TTM_SETMAXTIPWIDTH
#define TTM_SETMAXTIPWIDTH (WM_USER+24)
#endif
HMODULE GetResources( void );
#define CS_DROPSHADOW 0x00020000
HB_FUNC( CREATETOOLTIP ) // hWndParent, cText, lBallon --> hWndTooltip
{
TOOLINFO ti;
RECT rct;
HWND hWndParent = ( HWND ) ( LONG_PTR ) hb_parnll( 1 );
HWND hWnd = CreateWindowEx( 0, TOOLTIPS_CLASS, NULL,
WS_POPUP | TTS_ALWAYSTIP | TTS_NOPREFIX |
( hb_parl( 3 ) ? TTS_BALLOON: 0 ),
CW_USEDEFAULT, CW_USEDEFAULT,
CW_USEDEFAULT, CW_USEDEFAULT,
hWndParent, NULL, GetModuleHandle( NULL ),
NULL );
DWORD dwVersion = GetVersion();
DWORD dwWindowsMajorVersion = ( DWORD )( LOBYTE( LOWORD( dwVersion ) ) );
DWORD dwWindowsMinorVersion = ( DWORD )( HIBYTE( LOWORD( dwVersion ) ) );
if( ( dwWindowsMajorVersion >= 5 && dwWindowsMinorVersion >= 1 ) || ( dwWindowsMajorVersion >= 6 ) )
SetClassLong( hWnd, GCL_STYLE, GetClassLong( hWnd, GCL_STYLE ) | CS_DROPSHADOW );
GetClientRect ( hWndParent, &rct );
ti.cbSize = sizeof( TOOLINFO );
ti.uFlags = TTF_SUBCLASS | TTF_TRANSPARENT | TTF_IDISHWND;
ti.hwnd = hWndParent;
ti.hinst = GetModuleHandle( NULL );
ti.uId = (UINT_PTR) hWndParent; // Usamos el handle de la ventana como ID
ti.lpszText = ( LPSTR ) hb_parc( 2 );
ti.rect.left = rct.left;
ti.rect.top = rct.top;
ti.rect.right = rct.right;
ti.rect.bottom = rct.bottom;
SendMessage( hWnd, TTM_ADDTOOL, 0, ( LPARAM ) ( LPTOOLINFO ) &ti );
SendMessage( hWnd, TTM_ACTIVATE, TRUE, 0 );
SendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 120 );
#ifndef _WIN64
hb_retnl( ( LONG ) hWnd );
#else
hb_retnll( ( LONGLONG ) hWnd );
#endif
}
#pragma ENDDUMPgracias Victor!
Nos falta algo...
Antonio Linares wrote:Dear Enrico,Ah, ok, sorry.
> oWnd:bMMoved = { || oBtn:ShowTooltip( 30, 30, oBtn:cTooltip ), hb_MemoWrit( 'test.log',Time()) }
We are trying to use the bMMoved of the parent