FiveTech Support Forums

   aDim := aTSBrwPosRect( ::hWnd, ::nRowPos, nStartCol, nWidth, ;
                          If( ::aColumns[ nCol ]:oFont != Nil, ;
                              ::aColumns[ nCol ]:oFont:hFont, 0 ), ;
                              ::nHeightCell, ::nHeightHead, ::nHeightSuper )
    ALERT( ADIM ) //1031 esto es lo que retorna

   If ::nLineStyle < 5 .and. ! ( lDropBox .or. ;
                                 ::aColumns[ nCol ]:aList != Nil .or. ;
                                 ::aColumns[ nCol ]:cResName != Nil )

      If ! ::aColumns[ nCol ]:l3DLook
         aDim[ 3 ] -= 2
         --aDim[ 4 ]
      Else
         aDim[ 1 ] += 1 //aqui se cae
         aDim[ 2 ] += 2
         aDim[ 3 ] -= 2
         aDim[ 4 ] -= 2
      EndIf

#ifndef __HARBOUR__
   CLIPPER aTSBrwPosR() // ect( hWnd, nRow, nCol, nWidth, hFont, nHeightCell,
                        //      nHeightHead, nHeightSuper )
#else
   HARBOUR HB_FUN_ATSBRWPOSRECT( PARAMS )
#endif
{
   HWND hWnd        = (HWND) _parni( 1 ) ;
   int wRow         = _parni( 2 ) ;
   int wCol         = _parni( 3 ) ;
   int wWidth       = _parni( 4 ) ;
   HFONT hFont      = (HFONT) _parni( 5 ) ;
   int wHeight      = _parni( 6 ) ;
   int nHeightHead  = _parni( 7 ) ;
   int nHeightSuper = _parni( 8 ) ;

   HDC hDC = GetDC( hWnd ) ;
   HFONT hOldFont ;
   int wMaxRight ;
   RECT rct ;

   if( hFont )
      hOldFont = SelectObject( hDC, hFont ) ;

   GetWindowRect( hWnd, &rct ) ;
   wMaxRight = rct.right;

   rct.top    += ( nHeightHead + nHeightSuper ) + ( wHeight * (wRow - 1) ) + 1 ;
   rct.bottom = rct.top + wHeight ;
   rct.left   += wCol ;
   rct.right  = rct.left + wWidth ;

   if( hFont )
      SelectObject( hDC, hOldFont ) ;

   ReleaseDC( hWnd, hDC ) ;

   //_reta( 4 ) ;

   _storni( rct.top,    -1, 1 ) ;
   _storni( rct.left,   -1, 2 ) ;
   _storni( rct.bottom, -1, 3 ) ;
   _storni( ( wMaxRight <= rct.right ) ? wMaxRight - 18: rct.right, -1, 4 ) ;

}

_reta( 4 ) ;

Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '__reta' referenced from D:\APL\PRGS\LIB32\SBROWSEH.L
IB|TSBFuncs

c:\borland\bcc582\bin\bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I%harbour%include;%fwh%\include ..\source\function\TSBFuncs.c >>LINK.LOG

#define  _reta( n )  hb_reta( n )

hb_reta( 4 ) ;

   _storni( rct.top,    -1, 1 ) ;
   _storni( rct.left,   -1, 2 ) ;
   _storni( rct.bottom, -1, 3 ) ;
   _storni( ( wMaxRight <= rct.right ) ? wMaxRight - 18: rct.right, -1, 4 ) ;