oBrw:nLineStyle := 3
Maestros, porque oBrw:nLineStyle := 4 ó 5 ó 6 ó 7 ó 8, no funciona?
Tengo que modificar algo en la classe TCBROWSE.PRG??
Best regards, saludos.
karinha wrote:Maestros, porque oBrw:nLineStyle := 4 ó 5 ó 6 ó 7 ó 8, no funciona?
karinha wrote:En la classe TCBROWSE.PRG, nos és posible usar la opción 0, 5, 6, 7, 8??
karinha wrote:No hay nada que se pueda hacer para mejorar esto?
mmercado wrote:karinha wrote:En la classe TCBROWSE.PRG, nos és posible usar la opción 0, 5, 6, 7, 8??
La opción 0 (sin lineas) la aplica por defecto, las demás no son posibleskarinha wrote:No hay nada que se pueda hacer para mejorar esto?
Solo modificando el programa tcbfuncs.c
Un abrazo.
Manuel Mercado
#include <WinTen.h>
#include <Windows.h>
#include <ClipApi.h>
void WndDrawBox( HDC, LPRECT, HPEN, HPEN );
void DrawBitmap( HDC, HBITMAP, WORD wCol, WORD wRow, WORD wWidth, \
WORD wHeight, DWORD dwRaster );
void DrawMasked( HDC, HBITMAP, WORD wCol, WORD wRow );
void FrameDot( HDC hDC, RECT * pRect );
#ifdef __FLAT__
DWORD MoveTo( HDC hdc, int x, int y );
#endif
//---------------------------------------------------------------------------//
CLIPPER TCDRAWCELL( PARAMS ) // ( hWnd, hDC, nRow, nColumn , nWidth ,
// uData, nAlign , nClrFore, nClrBack ,
// hFont, nBitmap, dwRaster, nLinesStyle )
{
HWND hWnd = ( HWND ) _parnl( 1 ) ;
HDC hDC = ( HDC ) _parnl( 2 ) ;
int nRow = _parni( 3 ) ;
int nColumn = _parni( 4 ) ;
int nWidth = _parni( 5 ) ;
LPSTR cData = _parc( 6 ) ;
int nLen = _parclen( 6 ) ;
UINT nAlign = _parni( 7 ) ;
COLORREF clrFore = ( PCOUNT() > 7 ? _parnl( 8 ): 0 );
COLORREF clrBack = ( PCOUNT() > 8 ? _parnl( 9 ): RGB( 255, 255, 255 ) );
HFONT hFont = ( HFONT ) _parnl( 10 ) ;
int nBitMap = _parni( 11 ) ;
HBITMAP hBitMap = ( HBITMAP ) _parnl( 6 ) ; // redefine parm 6 as possible bitmap
//DWORD dwRaster = ( PCOUNT() > 11 ? _parnl( 12 ) : 0x5A0049 );
HFONT hOldFont ;
BOOL bDestroyDC = FALSE ;
HPEN hGrayPen, hWhitePen, hOldPen;
TEXTMETRIC tm ;
RECT rct ;
int LineCount, HeaderHeight ;
WORD wLineStyle = _parni( 13 );
HBRUSH hBrush;
if( wLineStyle )
{
switch( wLineStyle )
{
case 1: // BLACK
hGrayPen = ( HPEN ) GetStockObject( BLACK_PEN );
hWhitePen = hGrayPen;
break;
case 2: // GRAY
hGrayPen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNSHADOW ) ) ; // RGB( 128, 128, 128 ) );
hWhitePen = hGrayPen;
break;
case 3: // 3D
hGrayPen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNSHADOW ) ) ; // RGB( 128, 128, 128 ) );
hWhitePen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNHIGHLIGHT ) ); // GetStockObject( WHITE_PEN );
break;
case 4: // DOTTED
break;
}
}
if( ! hDC )
{
bDestroyDC = TRUE ;
hDC = GetDC( hWnd ) ;
}
if( hFont )
hOldFont = ( HFONT ) SelectObject( hDC, hFont ) ;
GetClientRect( hWnd, &rct ) ;
GetTextMetrics( hDC, &tm ) ;
tm.tmHeight++;
/* Calculate number of lines available to this Client Rect. */
LineCount = ( ( rct.bottom - rct.top ) / tm.tmHeight ) - 1 ;
/* Add the extra space that will be left over on the bottom of the screen
to the header. */
// HeaderHeight = ( ( rct.bottom - rct.top ) - ( LineCount * tm.tmHeight ) ) ;
SetTextColor( hDC, clrFore ) ;
SetBkColor( hDC, clrBack ) ;
if( nRow == 0 )
rct.top = 0 ;
else
rct.top = ( tm.tmHeight * nRow );
if( rct.top + tm.tmHeight <= rct.bottom )
{
rct.bottom = rct.top + tm.tmHeight;
/* Don't let left side go beyond rct.right of Client Rect. */
if( nColumn - ( rct.right - rct.left) <= 0 )
{
rct.left = nColumn ;
/* if nWidth == -1, it indicates the last column so go to limit,
Don't let right side go beyond rct.right of Client Rect. */
if( ( nWidth != -1 ) && ((rct.left + nWidth - rct.right) <= 0) )
rct.right = rct.left + nWidth ;
rct.right += 2;
ExtTextOut( hDC, rct.left, rct.top + 1, ETO_OPAQUE | ETO_CLIPPED, \
&rct, "", 0, 0 ) ;
rct.left += 2 ;
rct.right -= 4 ;
if(nBitMap)
{
// use this next code to use ROPs, disable the 4 lines code below
// also uncomment the dwRaster code in the begining of the function
// if ( nBitMap == 1 )
// dwRaster = 0;
// DrawBitmap( hDC, hBitMap, rct.top + 1, rct.left - 1, \
// rct.right - rct.left + 1, rct.bottom - rct.top - 1, dwRaster );
// DrawBitmap( hDC, hBitMap, rct.top + 1, rct.left - 1, \
// rct.right - rct.left + 1, rct.bottom - rct.top - 1, 0 );
hBrush = CreateSolidBrush( clrBack );
FillRect( hDC, &rct, hBrush );
DeleteObject( hBrush );
DrawMasked( hDC, hBitMap, rct.top, rct.left );
// if ( nBitMap == 2 )
// InvertRect( hDC, &rct) ;
}
else
{
if( nRow )
rct.top++;
DrawText( hDC, cData, nLen, &rct, nAlign | DT_VCENTER | \
DT_SINGLELINE | DT_NOPREFIX ) ;
if( nRow )
rct.top--;
}
rct.left -= 2 ;
rct.right += 1 ;
rct.bottom -= 1 ;
if( wLineStyle )
{
if( wLineStyle != 3 ) // 3D
{
// rct.top--;
rct.bottom++;
if( rct.left > 0 )
rct.left--;
}
if( wLineStyle == 4 ) // DOTTED
FrameDot( hDC, &rct );
else
WndDrawBox( hDC, &rct, hWhitePen, hGrayPen ) ;
}
}
}
if( ! nRow )
{
WndDrawBox( hDC, &rct, hWhitePen, ( HPEN ) GetStockObject( BLACK_PEN ) );
hOldPen = ( HPEN ) SelectObject( hDC, hGrayPen );
MoveTo( hDC, rct.left, rct.bottom - 1 );
LineTo( hDC, rct.right, rct.bottom - 1 );
MoveTo( hDC, rct.right - 1, rct.bottom - 1 );
LineTo( hDC, rct.right - 1, rct.top );
SelectObject( hDC, hOldPen );
}
if( wLineStyle )
{
switch( wLineStyle )
{
case 1: // BLACK
break; // it is a system resource, so do nothing
case 2: // GRAY
DeleteObject( hGrayPen ); // We just use this one
break;
case 3: // 3D
DeleteObject( hGrayPen );
DeleteObject( hWhitePen );
break;
case 4: // DOTTED
break; // do nothing
}
}
if( hFont )
SelectObject( hDC, hOldFont ) ;
if( bDestroyDC )
ReleaseDC( hWnd, hDC ) ;
}
//---------------------------------------------------------------------------//
#ifdef __HARBOUR__
CLIPPER TCBRWSCROLL( PARAMS ) //
#else
CLIPPER TCBRWSCROL( PARAMS ) //
#endif
{
HWND hWnd = ( HWND ) _parnl( 1 );
int wRows = _parni( 2 ); // 04-22-00
HFONT hFont = ( HFONT ) _parnl( 3 );
HFONT hOldFont;
HDC hDC = GetDC( hWnd );
RECT rct;
TEXTMETRIC tm;
if( hFont )
hOldFont = ( HFONT ) SelectObject( hDC, hFont );
GetClientRect( hWnd, &rct );
GetTextMetrics( hDC, &tm );
tm.tmHeight++;
rct.top += tm.tmHeight;
rct.bottom -= ( ( rct.bottom - rct.top ) % tm.tmHeight );
ScrollWindowEx( hWnd, 0, -( tm.tmHeight * wRows ), 0, &rct, 0, 0, 0 );
if( hFont )
SelectObject( hDC, hOldFont );
ReleaseDC( hWnd, hDC );
}
//---------------------------------------------------------------------------//
static WORD near GetWindowRow( HWND hWnd, HDC hDC, WORD wGraphRow, \
HFONT hFont ) // -> wTextRow
{
TEXTMETRIC tm;
RECT rct;
WORD wRow;
BOOL bDCDestroy = FALSE;
HFONT hOldFont;
int LineCount, HeaderHeight ;
if( ! hDC )
{
bDCDestroy = TRUE;
hDC = GetDC( hWnd );
}
if( hFont )
hOldFont = ( HFONT ) SelectObject( hDC, hFont );
GetTextMetrics( hDC, &tm );
GetClientRect( hWnd, &rct );
tm.tmHeight++;
/* Calculate number of lines available to this Client Rect. */
LineCount = ( ( rct.bottom - rct.top ) / tm.tmHeight ) - 1 ;
/* Add the extra space that will be left over on the bottom of the screen
to the header. */
// HeaderHeight = ( ( rct.bottom - rct.top ) - ( LineCount * tm.tmHeight ) ) ;
/* wRow = ( wGraphRow - rct.top ) / tm.tmHeight;*/
// if( wGraphRow - rct.top <= HeaderHeight )
// wRow = 0 ;
// else
wRow = ( ( wGraphRow - rct.top ) / tm.tmHeight );
if( hFont )
SelectObject( hDC, hOldFont );
if( bDCDestroy )
ReleaseDC( hWnd, hDC );
return wRow;
}
CLIPPER NTCWROW( PARAMS ) // hWnd, hDC, nGraphRow, hFont -> nTextRow
{
_retni( GetWindowRow( ( HWND ) _parnl( 1 ), ( HDC ) _parnl( 2 ),
_parni( 3 ), ( HFONT ) _parnl( 4 ) ) );
}
//---------------------------------------------------------------------------//
#ifdef __HARBOUR__
CLIPPER ATCBRWPOSRECT( PARAMS ) // ( hWnd, nRow, nCol, nWidth, hFont )
#else
CLIPPER ATCBRWPOSR( PARAMS ) // ect( hWnd, nRow, nCol, nWidth, hFont )
#endif
{
HWND hWnd = ( HWND ) _parnl( 1 );
WORD wRow = _parni( 2 );
WORD wCol = _parni( 3 );
WORD wWidth = _parni( 4 );
HFONT hFont = ( HFONT ) _parnl( 5 );
HDC hDC = GetDC( hWnd );
HFONT hOldFont;
WORD wMaxRight;
TEXTMETRIC tm;
RECT rct;
int LineCount, HeaderHeight ;
if( hFont )
hOldFont = ( HFONT ) SelectObject( hDC, hFont );
GetWindowRect( hWnd, &rct );
wMaxRight = rct.right;
GetTextMetrics( hDC, &tm );
tm.tmHeight++;
/* Calculate number of lines available to this Client Rect. */
LineCount = ( ( ( rct.bottom - rct.top ) -
GetSystemMetrics( SM_CYHSCROLL ) ) / tm.tmHeight ) - 1 ;
/* Add the extra space that will be left over on the bottom of the screen
to the header. */
// HeaderHeight = ( ( rct.bottom - rct.top ) -
// GetSystemMetrics( SM_CYHSCROLL ) -
// ( LineCount * tm.tmHeight ) ) ;
// rct.top += HeaderHeight + ( tm.tmHeight * ( wRow - 1 ) ) ;
rct.top += ( tm.tmHeight * wRow ) + 1;
rct.bottom = rct.top + tm.tmHeight;
rct.left += wCol;
rct.right = rct.left + wWidth;
if( hFont )
SelectObject( hDC, hOldFont );
ReleaseDC( hWnd, hDC );
_reta( 4 );
#ifdef __XPP__
#define _storni( x, y, z ) STORNI( x, params, y, z )
#endif
_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 );
}
//---------------------------------------------------------------------------//
mmercado wrote:karinha wrote:Podria ayudarme? Donde cambio para funcionar perfecto?
Dime que estilo de línea quieres para poder indicarte los cambios, por ejemplo:
nLineStyle 5 = Solo lineas verticales
Saludos.
Manuel Mercado
karinha wrote:Lo que necisito, és que el BROWSE no muestre LAS LINEAS HORIZONTALES
#include <WinTen.h>
#include <Windows.h>
#include <ClipApi.h>
void WndDrawBox( HDC, LPRECT, HPEN, HPEN );
void DrawBitmap( HDC, HBITMAP, WORD wCol, WORD wRow, WORD wWidth, \
WORD wHeight, DWORD dwRaster );
void DrawMasked( HDC, HBITMAP, WORD wCol, WORD wRow );
void FrameDot( HDC hDC, RECT * pRect );
#ifdef __FLAT__
DWORD MoveTo( HDC hdc, int x, int y );
#endif
//---------------------------------------------------------------------------//
HB_FUNC( TCDRAWCELL ) // ( PARAMS ) // ( hWnd, hDC, nRow, nColumn , nWidth ,
// uData, nAlign , nClrFore, nClrBack ,
// hFont, nBitmap, dwRaster, nLinesStyle )
{
HWND hWnd = ( HWND ) _parnl( 1 ) ;
HDC hDC = ( HDC ) _parnl( 2 ) ;
int nRow = _parni( 3 ) ;
int nColumn = _parni( 4 ) ;
int nWidth = _parni( 5 ) ;
LPSTR cData = _parc( 6 ) ;
int nLen = _parclen( 6 ) ;
UINT nAlign = _parni( 7 ) ;
COLORREF clrFore = ( PCOUNT() > 7 ? _parnl( 8 ): 0 );
COLORREF clrBack = ( PCOUNT() > 8 ? _parnl( 9 ): RGB( 255, 255, 255 ) );
HFONT hFont = ( HFONT ) _parnl( 10 ) ;
int nBitMap = _parni( 11 ) ;
HBITMAP hBitMap = ( HBITMAP ) _parnl( 6 ) ; // redefine parm 6 as possible bitmap
//DWORD dwRaster = ( PCOUNT() > 11 ? _parnl( 12 ) : 0x5A0049 );
HFONT hOldFont ;
BOOL bDestroyDC = FALSE ;
HPEN hGrayPen, hWhitePen, hOldPen;
TEXTMETRIC tm ;
RECT rct ;
int LineCount, HeaderHeight ;
WORD wLineStyle = _parni( 13 );
HBRUSH hBrush;
if( wLineStyle )
{
switch( wLineStyle )
{
case 1: // BLACK
hGrayPen = ( HPEN ) GetStockObject( BLACK_PEN );
hWhitePen = hGrayPen;
break;
case 2: // GRAY
hGrayPen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNSHADOW ) ) ; // RGB( 128, 128, 128 ) );
hWhitePen = hGrayPen;
break;
case 3: // 3D
hGrayPen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNSHADOW ) ) ; // RGB( 128, 128, 128 ) );
hWhitePen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNHIGHLIGHT ) ); // GetStockObject( WHITE_PEN );
break;
case 4: // DOTTED
break;
case 5: // Vertical gray lines
hGrayPen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNSHADOW ) ) ; // RGB( 128, 128, 128 ) );
hWhitePen = hGrayPen;
break;
case 6: // horizontal gray lines
hGrayPen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNSHADOW ) ) ; // RGB( 128, 128, 128 ) );
hWhitePen = hGrayPen;
break;
default :
hGrayPen = ( HPEN ) GetStockObject( BLACK_PEN );
break ;
}
}
if( ! hDC )
{
bDestroyDC = TRUE ;
hDC = GetDC( hWnd ) ;
}
if( hFont )
hOldFont = ( HFONT ) SelectObject( hDC, hFont ) ;
GetClientRect( hWnd, &rct ) ;
GetTextMetrics( hDC, &tm ) ;
tm.tmHeight++;
/* Calculate number of lines available to this Client Rect. */
LineCount = ( ( rct.bottom - rct.top ) / tm.tmHeight ) - 1 ;
/* Add the extra space that will be left over on the bottom of the screen
to the header. */
// HeaderHeight = ( ( rct.bottom - rct.top ) - ( LineCount * tm.tmHeight ) ) ;
SetTextColor( hDC, clrFore ) ;
SetBkColor( hDC, clrBack ) ;
if( nRow == 0 )
rct.top = 0 ;
else
rct.top = ( tm.tmHeight * nRow );
if( rct.top + tm.tmHeight <= rct.bottom )
{
rct.bottom = rct.top + tm.tmHeight;
/* Don't let left side go beyond rct.right of Client Rect. */
if( nColumn - ( rct.right - rct.left) <= 0 )
{
rct.left = nColumn ;
/* if nWidth == -1, it indicates the last column so go to limit,
Don't let right side go beyond rct.right of Client Rect. */
if( ( nWidth != -1 ) && ((rct.left + nWidth - rct.right) <= 0) )
rct.right = rct.left + nWidth ;
rct.right += 2;
ExtTextOut( hDC, rct.left, rct.top + 1, ETO_OPAQUE | ETO_CLIPPED,
&rct, "", 0, 0 ) ;
rct.left += 2 ;
rct.right -= 4 ;
if( nBitMap )
{
// use this next code to use ROPs, disable the 4 lines code below
// also uncomment the dwRaster code in the begining of the function
// if ( nBitMap == 1 )
// dwRaster = 0;
// DrawBitmap( hDC, hBitMap, rct.top + 1, rct.left - 1, \
// rct.right - rct.left + 1, rct.bottom - rct.top - 1, dwRaster );
// DrawBitmap( hDC, hBitMap, rct.top + 1, rct.left - 1, \
// rct.right - rct.left + 1, rct.bottom - rct.top - 1, 0 );
hBrush = CreateSolidBrush( clrBack );
FillRect( hDC, &rct, hBrush );
DeleteObject( hBrush );
DrawMasked( hDC, hBitMap, rct.top, rct.left );
// if ( nBitMap == 2 )
// InvertRect( hDC, &rct) ;
}
else
{
if( nRow )
rct.top++;
DrawText( hDC, cData, nLen, &rct, nAlign | DT_VCENTER |
DT_SINGLELINE | DT_NOPREFIX ) ;
if( nRow )
rct.top--;
}
rct.left -= 2 ;
rct.right += 1 ;
rct.bottom -= 1 ;
if( wLineStyle )
{
if( wLineStyle != 3 ) // 3D
{
// rct.top--;
rct.bottom++;
if( rct.left > 0 )
rct.left--;
}
if( wLineStyle == 4 ) // DOTTED
FrameDot( hDC, &rct );
else
{
switch( wLineStyle )
{
case 5 :
ExcludeClipRect( hDC, rct.left + 1, rct.top, rct.right -1, rct.bottom + 1 ) ;
break ;
case 6 :
ExcludeClipRect( hDC, rct.left, rct.top + 1, rct.right + 1, rct.bottom ) ;
break ;
}
WndDrawBox( hDC, &rct, hWhitePen, hGrayPen ) ;
}
}
}
}
if( ! nRow )
{
// char buffer[ 100 ];
// wsprintf( buffer, "top %02i: left %02i: bottom %02i: right %02i", rct.top, rct.left, rct.bottom, rct.right );
// OutputDebugString( buffer );
WndDrawBox( hDC, &rct, hWhitePen, ( HPEN ) GetStockObject( BLACK_PEN ) );
hOldPen = ( HPEN ) SelectObject( hDC, hGrayPen );
MoveTo( hDC, rct.left, rct.bottom - 1 );
LineTo( hDC, rct.right, rct.bottom - 1 );
MoveTo( hDC, rct.right - 1, rct.bottom - 1 );
LineTo( hDC, rct.right - 1, rct.top );
SelectObject( hDC, hOldPen );
}
if( wLineStyle )
{
switch( wLineStyle )
{
case 1: // BLACK
break; // it is a system resource, so do nothing
case 2: // GRAY
DeleteObject( hGrayPen ); // We just use this one
break;
case 3: // 3D
DeleteObject( hGrayPen );
DeleteObject( hWhitePen );
break;
case 4: // DOTTED
break; // do nothing
case 5: // VERTICAL GRAY
DeleteObject( hGrayPen );
break;
case 6: // HORIZONTAL GRAY
DeleteObject( hGrayPen );
break;
}
}
if( hFont )
SelectObject( hDC, hOldFont ) ;
if( bDestroyDC )
ReleaseDC( hWnd, hDC ) ;
}
//---------------------------------------------------------------------------//
#ifdef __HARBOUR__
HB_FUNC( TCBRWSCROLL ) //
#else
CLIPPER TCBRWSCROL( PARAMS ) //
#endif
{
HWND hWnd = ( HWND ) _parnl( 1 );
int wRows = _parni( 2 ); // 04-22-00
HFONT hFont = ( HFONT ) _parnl( 3 );
HFONT hOldFont;
HDC hDC = GetDC( hWnd );
RECT rct;
TEXTMETRIC tm;
if( hFont )
hOldFont = ( HFONT ) SelectObject( hDC, hFont );
GetClientRect( hWnd, &rct );
GetTextMetrics( hDC, &tm );
tm.tmHeight++;
rct.top += tm.tmHeight;
rct.bottom -= ( ( rct.bottom - rct.top ) % tm.tmHeight );
ScrollWindowEx( hWnd, 0, -( tm.tmHeight * wRows ), 0, &rct, 0, 0, 0 );
if( hFont )
SelectObject( hDC, hOldFont );
ReleaseDC( hWnd, hDC );
}
//---------------------------------------------------------------------------//
static WORD near GetWindowRow( HWND hWnd, HDC hDC, WORD wGraphRow, \
HFONT hFont ) // -> wTextRow
{
TEXTMETRIC tm;
RECT rct;
WORD wRow;
BOOL bDCDestroy = FALSE;
HFONT hOldFont;
int LineCount, HeaderHeight ;
if( ! hDC )
{
bDCDestroy = TRUE;
hDC = GetDC( hWnd );
}
if( hFont )
hOldFont = ( HFONT ) SelectObject( hDC, hFont );
GetTextMetrics( hDC, &tm );
GetClientRect( hWnd, &rct );
tm.tmHeight++;
/* Calculate number of lines available to this Client Rect. */
LineCount = ( ( rct.bottom - rct.top ) / tm.tmHeight ) - 1 ;
/* Add the extra space that will be left over on the bottom of the screen
to the header. */
// HeaderHeight = ( ( rct.bottom - rct.top ) - ( LineCount * tm.tmHeight ) ) ;
/* wRow = ( wGraphRow - rct.top ) / tm.tmHeight;*/
// if( wGraphRow - rct.top <= HeaderHeight )
// wRow = 0 ;
// else
wRow = ( ( wGraphRow - rct.top ) / tm.tmHeight );
if( hFont )
SelectObject( hDC, hOldFont );
if( bDCDestroy )
ReleaseDC( hWnd, hDC );
return wRow;
}
HB_FUNC( NTCWROW ) // ( PARAMS ) // hWnd, hDC, nGraphRow, hFont -> nTextRow
{
_retni( GetWindowRow( ( HWND ) _parnl( 1 ), ( HDC ) _parnl( 2 ),
_parni( 3 ), ( HFONT ) _parnl( 4 ) ) );
}
//---------------------------------------------------------------------------//
#ifdef __HARBOUR__
HB_FUNC( ATCBRWPOSRECT ) // ( PARAMS ) // ( hWnd, nRow, nCol, nWidth, hFont )
#else
CLIPPER ATCBRWPOSR( PARAMS ) // ect( hWnd, nRow, nCol, nWidth, hFont )
#endif
{
HWND hWnd = ( HWND ) _parnl( 1 );
WORD wRow = _parni( 2 );
WORD wCol = _parni( 3 );
WORD wWidth = _parni( 4 );
HFONT hFont = ( HFONT ) _parnl( 5 );
HDC hDC = GetDC( hWnd );
HFONT hOldFont;
WORD wMaxRight;
TEXTMETRIC tm;
RECT rct;
int LineCount, HeaderHeight ;
if( hFont )
hOldFont = ( HFONT ) SelectObject( hDC, hFont );
GetWindowRect( hWnd, &rct );
wMaxRight = rct.right;
GetTextMetrics( hDC, &tm );
tm.tmHeight++;
/* Calculate number of lines available to this Client Rect. */
LineCount = ( ( ( rct.bottom - rct.top ) -
GetSystemMetrics( SM_CYHSCROLL ) ) / tm.tmHeight ) - 1 ;
/* Add the extra space that will be left over on the bottom of the screen
to the header. */
// HeaderHeight = ( ( rct.bottom - rct.top ) -
// GetSystemMetrics( SM_CYHSCROLL ) -
// ( LineCount * tm.tmHeight ) ) ;
// rct.top += HeaderHeight + ( tm.tmHeight * ( wRow - 1 ) ) ;
rct.top += ( tm.tmHeight * wRow ) + 1;
rct.bottom = rct.top + tm.tmHeight;
rct.left += wCol;
rct.right = rct.left + wWidth;
if( hFont )
SelectObject( hDC, hOldFont );
ReleaseDC( hWnd, hDC );
_reta( 4 );
#ifdef __XPP__
#define _storni( x, y, z ) STORNI( x, params, y, z )
#endif
_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 );
}
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 40 guests