Luiz
perfect,
It is now working
thanks
Em 21/06/2015 21:39, Luiz Rafael Culik escreveu:
> 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
------------------------------------------------------------------------------
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
