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 <ma...@argoninformatica.com.br
>:
> 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 <l...@xharbour.com.br>
> and went back to work
>
>
>
> ------------------------------------------------------------------------------
> _______________________________________________
> xHarbour-developers mailing list
> xHarbour-developers@lists.sourceforge.net
> 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
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
