Luiz,
with this change has been made operational,
You can commit
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
>
> 2015-06-20 15:33 GMT-03:00 Mario Simoes Filho
> <ma...@argoninformatica.com.br
> <mailto: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
> <mailto:l...@xharbour.com.br>>
> and went back to work
>
>
>
> ------------------------------------------------------------------------------
> _______________________________________________
> xHarbour-developers mailing list
> xHarbour-developers@lists.sourceforge.net
> <mailto: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
>
------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
