Xailer & OZ Software

Código: Seleccionar todo

HB_FUNC_STATIC( XLABELEX_WMLBUTTONDOWN )
{
   PHB_ITEM Self = hb_stackSelfItem(), tControl;
   HWND hWnd = GetHandleOf( Self );
   int wParam = hb_parnl( 1 ), lParam = hb_parnl( 2 );
   int bRet = FALSE;
   HDC hdc = CreateCompatibleDC( NULL );
   POINT pt;
   UINT nTextLen = 0;
   char *cText = XA_ObjGetCLen( Self, "cText", &nTextLen );
   int nLineSpacing = XA_ObjGetNL( Self, "nLineSpacing" ) & 1023;
   DT_LINK *aLink;
   int nCount = 0, n;
   RECT rect;

   if( XA_ObjGetL( Self, "lTabStop" ) )
      SetFocus( hWnd );

   GetClientRect( hWnd, &rect );
   XA_DrawTextEx( hdc, cText, nTextLen, &rect, DT_CALCRECT | nLineSpacing, 0, NULL, &nCount );
   if( nCount )
      {
      pt.x = LOWORD( lParam );
      pt.y = HIWORD( lParam );
      SelectObject( hdc, GetHandleOf( XA_ObjGetItem( Self, "GetFont" ) ) );
      aLink = hb_xgrab( sizeof( DT_LINK ) * nCount );
      XA_DrawTextEx( hdc, cText, nTextLen, &rect, DT_CALCRECT | nLineSpacing, 0, aLink, &nCount );

      pt.y -= XA_ObjGetNL( Self, "nClientTop" );
      for( n = 0; n < nCount; n++ )
         {
         if( PtInRect( &aLink[ n ].rect, pt ) )
            {
            cText = hb_xgrab( aLink[ n ].nTextLen + 1 );
            strncpy( cText, aLink[ n ].cText, aLink[ n ].nTextLen );
            cText[ aLink[ n ].nTextLen ] = 0;
            XA_ObjSendC( Self, "OnLinkClick", cText );
            hb_xfree( cText );
            bRet = TRUE;
            break;
            }
         }

      hb_xfree( aLink );
      }
      
   DeleteDC( hdc );

   if( !bRet )
      {
      tControl = XA_ObjGetItemCopy( Self, "TControl" );
      XA_ObjSendNL2( tControl, "WMSetCursor", wParam, lParam );
      hb_itemRelease( tControl );
      XA_ObjSendNL2( Self, "OnClick", pt.x, pt.y );
      }
}