[xHarbour-developers] gtwvw tooltip not work

Discussion:

Mario Simoes Filho

2015-06-20 18:33:56 UTC

I use the wvwtools for a long time and I noticed now that the tooltip of
the Pushbutton is not working, as far as I investigated the ADDTOOLTIPEX
() function is not working and I could not figure out what is wrong
I tested with gtwvw before the change
2015-03-18 22:50 UTC-0300 Luiz Rafael Culik <***@xharbour.com.br>
and went back to work

------------------------------------------------------------------------------

Luiz Rafael Culik

2015-06-22 00:39:26 UTC

Permalink

Mario

Simple

Change ADDTOOLTIPEX to this

HB_FUNC( ADDTOOLTIPEX ) // changed by MAG
{
// HWND hWnd = (HWND) hb_parnl( 1 );
UINT usWinNum = WVW_WHICH_WINDOW;
WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
WVW_DATA * pData = hb_getWvwData( ) ;

int iStyle = TTS_ALWAYSTIP;
INITCOMMONCONTROLSEX icex = { 0 };
TOOLINFO ti = { 0 };

/* Load the tooltip class from the DLL.
*/
icex.dwSize = sizeof( icex );
icex.dwICC = ICC_BAR_CLASSES;

if( !InitCommonControlsEx( &icex ) )
{
}

// if ( lToolTipBalloon )
// {
iStyle = iStyle | TTS_BALLOON;
// }

if( !pData->hWndTT )
pData->hWndTT = CreateWindow( TOOLTIPS_CLASS, (LPSTR) NULL, iStyle,
CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
NULL, (HMENU) NULL, GetModuleHandle( NULL ), NULL );
if( !pData->hWndTT )
{
hb_retnl( 0 );
return;
}
ti.uFlags = TTF_SUBCLASS | TTF_IDISHWND;
ti.hwnd = pWindowData->hWnd;
if ( ISPOINTER( 2 ) )
ti.uId = (UINT_PTR) hb_parptr( 2 );
else
ti.uId = (UINT_PTR) hb_parnl( 2 );

ti.hinst = GetModuleHandle( NULL );
ti.lpszText = (LPSTR) hb_parc( 3 );

hb_retl( SendMessage( pData->hWndTT, TTM_ADDTOOL, 0, (LPARAM)
(LPTOOLINFO) &ti) );
}

Report if ok for commit

Regards
Luiz

Post by Mario Simoes Filho
I use the wvwtools for a long time and I noticed now that the tooltip of
the Pushbutton is not working, as far as I investigated the ADDTOOLTIPEX
() function is not working and I could not figure out what is wrong
I tested with gtwvw before the change
and went back to work
------------------------------------------------------------------------------
_______________________________________________
xHarbour-developers mailing list
https://lists.sourceforge.net/lists/listinfo/xharbour-developers

Mario Simoes Filho

2015-06-22 09:46:03 UTC

Permalink

Luiz

perfect,
It is now working
thanks

Mario Simoes Filho

2015-07-10 14:25:25 UTC

Permalink

Luiz,

with this change has been made operational,
You can commit

thanks

Post by Luiz Rafael Culik
Mario
Simple
Change ADDTOOLTIPEX to this
HB_FUNC( ADDTOOLTIPEX ) // changed by MAG
{
// HWND hWnd = (HWND) hb_parnl( 1 );
UINT usWinNum = WVW_WHICH_WINDOW;
WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
WVW_DATA * pData = hb_getWvwData( ) ;
int iStyle = TTS_ALWAYSTIP;
INITCOMMONCONTROLSEX icex = { 0 };
TOOLINFO ti = { 0 };
/* Load the tooltip class from the DLL.
*/
icex.dwSize = sizeof( icex );
icex.dwICC = ICC_BAR_CLASSES;
if( !InitCommonControlsEx( &icex ) )
{
}
// if ( lToolTipBalloon )
// {
iStyle = iStyle | TTS_BALLOON;
// }
if( !pData->hWndTT )
pData->hWndTT = CreateWindow( TOOLTIPS_CLASS, (LPSTR) NULL, iStyle,
CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
NULL, (HMENU) NULL, GetModuleHandle( NULL ), NULL );
if( !pData->hWndTT )
{
hb_retnl( 0 );
return;
}
ti.uFlags = TTF_SUBCLASS | TTF_IDISHWND;
ti.hwnd = pWindowData->hWnd;
if ( ISPOINTER( 2 ) )
ti.uId = (UINT_PTR) hb_parptr( 2 );
else
ti.uId = (UINT_PTR) hb_parnl( 2 );
ti.hinst = GetModuleHandle( NULL );
ti.lpszText = (LPSTR) hb_parc( 3 );
hb_retl( SendMessage( pData->hWndTT, TTM_ADDTOOL, 0, (LPARAM)
(LPTOOLINFO) &ti) );
}
Report if ok for commit
Regards
Luiz
2015-06-20 15:33 GMT-03:00 Mario Simoes Filho
I use the wvwtools for a long time and I noticed now that the tooltip of
the Pushbutton is not working, as far as I investigated the ADDTOOLTIPEX
() function is not working and I could not figure out what is wrong
I tested with gtwvw before the change
2015-03-18 22:50 UTC-0300 Luiz Rafael Culik
and went back to work
------------------------------------------------------------------------------
_______________________________________________
xHarbour-developers mailing list
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
------------------------------------------------------------------------------
Monitor 25 network devices or servers for free with OpManager!
OpManager is web-based network management software that monitors
network devices and physical & virtual servers, alerts via email & sms
for fault. Monitor 25 devices for free with no restriction. Download now
http://ad.doubleclick.net/ddm/clk/292181274;119417398;o
_______________________________________________
xHarbour-developers mailing list
https://lists.sourceforge.net/lists/listinfo/xharbour-developers