/***************************************************************
This file contains the special painting routines used by TSBrowse Class
Last update: 22/02/2006
***************************************************************/
#define _WIN32_IE 0x0500
#define HB_OS_WIN_USED
#define _WIN32_WINNT 0x0400
#include <shlobj.h>
#include <windows.h>
#include <commctrl.h>
#include "hbapi.h"
#include "hbvm.h"
#ifdef __XHARBOUR__
#define HB_STORNI( n, x, y ) hb_storni( n, x, y )
#else
#define HB_STORNI( n, x, y ) hb_storvni( n, x, y )
#endif
void WndBoxDraw( HDC, LPRECT, HPEN, HPEN, int, BOOL );
void cDrawCursor( HWND, LPRECT, long, COLORREF );
void DrawCheck( HDC, LPRECT, HPEN, int, BOOL );
static void GoToPoint( HDC, int, int );
static void DegradColor( HDC, RECT *, COLORREF, COLORREF );
LRESULT CALLBACK WndProcBrw( HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam )
{
static PHB_SYMB pSymbol = NULL;
long int r;
if( !pSymbol )
{
pSymbol = hb_dynsymSymbol( hb_dynsymGet("EVENTS") );
}
if( pSymbol )
{
hb_vmPushSymbol( pSymbol );
hb_vmPushNil();
hb_vmPushLong( (LONG) hWnd );
hb_vmPushLong( message );
hb_vmPushLong( wParam );
hb_vmPushLong( lParam );
hb_vmDo( 4 );
}
r = hb_parnl( -1 );
if( r != 0 )
{
return r;
}
else
{
return( DefWindowProc(hWnd, message, wParam, lParam) );
}
}
HB_FUNC( REGISTER_CLASS )
{
WNDCLASS WndClass;
HBRUSH hbrush; //= (HBRUSH)( COLOR_BTNFACE + 1 ) ;
// WndClass.style = CS_HREDRAW | CS_VREDRAW | CS_DBLCLKS ;
WndClass.style = CS_DBLCLKS;
WndClass.lpfnWndProc = WndProcBrw;
WndClass.cbClsExtra = 0;
WndClass.cbWndExtra = 0;
WndClass.hInstance = GetModuleHandle( NULL );
WndClass.hIcon = 0;
WndClass.hCursor = LoadCursor( NULL, IDC_ARROW );
hbrush = ( ISNIL(2) ? 0 : (HBRUSH) hb_parnl(2) );
WndClass.hbrBackground = hbrush;
WndClass.lpszMenuName = NULL;
WndClass.lpszClassName = hb_parc( 1 );
if( !RegisterClass(&WndClass) )
{
MessageBox( 0, "Window Registration Failed!", "Error!", MB_ICONEXCLAMATION | MB_OK | MB_SYSTEMMODAL );
ExitProcess( 0 );
}
hb_retnl( (LONG) hbrush );
}
HB_FUNC( _CREATEWINDOWEX )
{
HWND hWnd;
DWORD dwExStyle = hb_parnl( 1 );
LPCSTR cClass = ( LPCSTR ) hb_parc( 2 );
LPCSTR cTitle = ( LPCSTR ) hb_parc( 3 );
int nStyle = hb_parni( 4 );
int x = ( ISNIL(5) ? CW_USEDEFAULT : hb_parni(5) );
int y = ( ISNIL(6) ? CW_USEDEFAULT : hb_parni(6) );
int nWidth = ( ISNIL(7) ? CW_USEDEFAULT : hb_parni(7) );
int nHeight = ( ISNIL(8) ? CW_USEDEFAULT : hb_parni(8) );
HWND hWndParent = ( HWND ) hb_parnl( 9 );
HMENU hMenu = ( HMENU ) NULL;
HANDLE hInstance = GetModuleHandle( NULL );
hWnd = CreateWindowEx( dwExStyle, cClass, cTitle, nStyle, x, y, nWidth, nHeight, hWndParent, hMenu, (HINSTANCE) hInstance, NULL );
hb_retnl( (LONG) hWnd );
}
void MaskRegion( HDC hdc, RECT *rct, COLORREF cTransparentColor, COLORREF cBackgroundColor )
{
HDC hdcTemp, hdcObject, hdcBack, hdcMem;
POINT ptSize;
COLORREF cColor;
HBITMAP bmAndObject, bmAndBack, bmBackOld, bmObjectOld, bmAndTemp, bmTempOld, bmAndMem, bmMemOld;
HBRUSH hBrush, hBrOld;
ptSize.x = rct->right - rct->left + 1;
ptSize.y = rct->bottom - rct->top + 1;
hBrush = CreateSolidBrush( cBackgroundColor );
hdcTemp = CreateCompatibleDC( hdc );
hdcObject = CreateCompatibleDC( hdc );
hdcBack = CreateCompatibleDC( hdc );
hdcMem = CreateCompatibleDC( hdc );
bmAndTemp = CreateCompatibleBitmap( hdc, ptSize.x, ptSize.y );
bmAndMem = CreateCompatibleBitmap( hdc, ptSize.x, ptSize.y );
bmAndObject = CreateBitmap( ptSize.x, ptSize.y, 1, 1, NULL );
bmAndBack = CreateBitmap( ptSize.x, ptSize.y, 1, 1, NULL );
bmTempOld = SelectObject( hdcTemp, bmAndTemp );
bmMemOld = SelectObject( hdcMem, bmAndMem );
bmBackOld = SelectObject( hdcBack, bmAndBack );
bmObjectOld = SelectObject( hdcObject, bmAndObject );
hBrOld = SelectObject( hdcMem, hBrush );
BitBlt( hdcTemp, 0, 0, ptSize.x, ptSize.y, hdc, rct->left, rct->top, SRCCOPY );
SetMapMode( hdcTemp, GetMapMode(hdc) );
cColor = SetBkColor( hdcTemp, cTransparentColor );
BitBlt( hdcObject, 0, 0, ptSize.x, ptSize.y, hdcTemp, 0, 0, SRCCOPY );
SetBkColor( hdcTemp, cColor );
BitBlt( hdcBack, 0, 0, ptSize.x, ptSize.y, hdcObject, 0, 0, NOTSRCCOPY );
PatBlt( hdcMem, 0, 0, ptSize.x, ptSize.y, PATCOPY );
BitBlt( hdcMem, 0, 0, ptSize.x, ptSize.y, hdcObject, 0, 0, SRCAND );
BitBlt( hdcTemp, 0, 0, ptSize.x, ptSize.y, hdcBack, 0, 0, SRCAND );
BitBlt( hdcMem, 0, 0, ptSize.x, ptSize.y, hdcTemp, 0, 0, SRCPAINT );
BitBlt( hdc, rct->left, rct->top, ptSize.x, ptSize.y, hdcMem, 0, 0, SRCCOPY );
DeleteObject( SelectObject(hdcMem, hBrOld) );
DeleteObject( SelectObject(hdcTemp, bmTempOld) );
DeleteObject( SelectObject(hdcMem, bmMemOld) );
DeleteObject( SelectObject(hdcBack, bmBackOld) );
DeleteObject( SelectObject(hdcObject, bmObjectOld) );
DeleteDC( hdcMem );
DeleteDC( hdcBack );
DeleteDC( hdcObject );
DeleteDC( hdcTemp );
}
void DrawBitmap( HDC hDC, HBITMAP hBitmap, WORD wRow, WORD wCol, WORD wWidth, WORD wHeight, DWORD dwRaster )
{
HDC hDCmem = CreateCompatibleDC( hDC );
BITMAP bitmap;
dwRaster = SRCCOPY;
SelectObject( hDCmem, hBitmap );
GetObject( hBitmap, sizeof(BITMAP), (LPVOID) & bitmap );
if( wWidth && (wWidth != bitmap.bmWidth || wHeight != bitmap.bmHeight) )
{
StretchBlt( hDC, wCol, wRow, wWidth, wHeight, hDCmem, 0, 0, bitmap.bmWidth, bitmap.bmHeight, dwRaster );
}
else
{
BitBlt( hDC, wCol, wRow, bitmap.bmWidth, bitmap.bmHeight, hDCmem, 0, 0, dwRaster );
}
DeleteDC( hDCmem );
}
void DrawMasked( HDC hDC, HBITMAP hbm, WORD wRow, WORD wCol )
{
HDC hDcBmp = CreateCompatibleDC( hDC );
HDC hDcMask;
HBITMAP hBmpMask, hOldBmp2, hOldBmp1 = SelectObject( hDcBmp, hbm );
BITMAP bm;
COLORREF rgbBack;
if( GetPixel(hDcBmp, 0, 0) != GetSysColor(15) )
{
GetObject( hbm, sizeof(BITMAP), (LPSTR) & bm );
hDcMask = CreateCompatibleDC( hDC );
hBmpMask = CreateCompatibleBitmap( hDcMask, bm.bmWidth, bm.bmHeight );
hOldBmp2 = SelectObject( hDcMask, hBmpMask );
rgbBack = SetBkColor( hDcBmp, GetPixel(hDcBmp, 0, 0) );
BitBlt( hDcMask, wRow, wCol, bm.bmWidth, bm.bmHeight, hDcBmp, 0, 0, SRCCOPY );
SetBkColor( hDcBmp, rgbBack );
BitBlt( hDC, wRow, wCol, bm.bmWidth, bm.bmHeight, hDcBmp, 0, 0, SRCINVERT );
BitBlt( hDC, wRow, wCol, bm.bmWidth, bm.bmHeight, hDcMask, 0, 0, SRCAND );
BitBlt( hDC, wRow, wCol, bm.bmWidth, bm.bmHeight, hDcBmp, 0, 0, SRCINVERT );
//
BitBlt( hDcBmp, 0, 0, bm.bmWidth, bm.bmHeight, hDC, wRow, wCol, SRCCOPY );
//
SelectObject( hDcMask, hOldBmp2 );
DeleteObject( hBmpMask );
DeleteDC( hDcMask );
}
SelectObject( hDcBmp, hOldBmp1 );
DeleteDC( hDcBmp );
}
HB_FUNC( TSDRAWCELL )
{
HWND hWnd = ( HWND ) hb_parni( 1 );
HDC hDC = ( HDC ) hb_parnl( 2 );
int nRow = hb_parni( 3 );
int nColumn = hb_parni( 4 );
int nWidth = hb_parni( 5 );
LPSTR cData = ( LPSTR ) hb_parc( 6 );
int nLen = hb_parclen( 6 );
DWORD nAlign = hb_parnl( 7 );
COLORREF clrFore = hb_parnl( 8 );
COLORREF clrBack = hb_parnl( 9 );
HFONT hFont = ( HFONT ) hb_parni( 10 );
HBITMAP hBitMap = ( HBITMAP ) hb_parni( 11 );
int nHeightCell = hb_parni( 12 );
BOOL b3DLook = hb_parl( 13 );
int nLineStyle = hb_parni( 14 );
COLORREF clrLine = hb_parnl( 15 );
int nHeadFoot = hb_parni( 16 );
int nHeightHead = hb_parni( 17 );
int nHeightFoot = hb_parni( 18 );
int nHeightSuper = hb_parni( 19 );
int nHeightSpec = hb_parni( 20 );
BOOL bAdjBmp = hb_parl( 21 );
BOOL bMultiLine = hb_parl( 22 );
int nVAlign = hb_parni( 23 );
int nVertText = hb_parni( 24 );
COLORREF clrTo = hb_parnl( 25 );
BOOL bOpaque = hb_parl( 26 );
HBRUSH wBrush = ( HBRUSH ) hb_parnl( 27 );
BOOL b3DInv = ( ISNIL(28) ? FALSE : !hb_parl(28) );
BOOL b3D = ( ISNIL(28) ? FALSE : TRUE );
COLORREF nClr3DL = hb_parnl( 29 );
COLORREF nClr3DS = hb_parnl( 30 );
long lCursor = hb_parnl( 31 );
int ixLayOut = HIWORD( nAlign );
int iAlign = LOWORD( nAlign );
// int iTxtW = 0; //LOWORD( GetTextExtentPoint( hDC, cData, nLen,0 ) ) ;
BOOL bGrid = ( nLineStyle > 0 ? TRUE : FALSE );
BOOL bHeader = ( nHeadFoot == 1 ? TRUE : FALSE );
BOOL bFooter = ( nHeadFoot == 2 ? TRUE : FALSE );
BOOL bSuper = ( nHeadFoot == 3 ? TRUE : FALSE );
BOOL bSpecHd = ( nHeadFoot == 4 ? TRUE : FALSE ); //New SH
BOOL bChecked = ( nVertText == 3 ? TRUE : FALSE );
BOOL bBrush = FALSE; //( wBrush > 0 ? TRUE : FALSE ) ;
BOOL bDegrad = ( clrTo == clrBack ? FALSE : TRUE );
HFONT hOldFont = 0;
BOOL bDestroyDC = FALSE;
HPEN hGrayPen = CreatePen( PS_SOLID, 1, clrLine );
HPEN hWhitePen = CreatePen( PS_SOLID, 1, GetSysColor(COLOR_BTNHIGHLIGHT) );
RECT rct;
BITMAP bm;
int nTop, nLeft, nBkOld, iFlags;
SIZE size;
int iTxtW = 0;
if( GetTextExtentPoint32(hDC, cData, nLen, &size) )
{
iTxtW = size.cx;
}
if( !hDC )
{
bDestroyDC = TRUE;
hDC = GetDC( hWnd );
}
if( hFont )
{
hOldFont = SelectObject( hDC, hFont );
}
GetClientRect( hWnd, &rct );
SetTextColor( hDC, clrFore );
SetBkColor( hDC, clrBack );
if( nRow == 0 )
{
if ( bSpecHd )
{
rct.top = ( nHeightHead + nHeightSuper - (nHeightSuper ? 1 : 0) );
}
else
{
rct.top = ( bHeader ? nHeightSuper - (nHeightSuper ? 1 : 0) : 0 );
}
}
else
{
rct.top = ( bFooter ? rct.bottom - nHeightFoot + 1 : nHeightHead + nHeightSuper - (nHeightSuper ? 1 : 0) + nHeightSpec + (nHeightCell * (nRow - 1)) );
}
rct.bottom = rct.top + ( bHeader ? nHeightHead : (bSuper ? nHeightSuper : nHeightCell) - 1 );
rct.bottom = ( bSpecHd ? rct.bottom + nHeightSpec : rct.bottom ) ;
/* 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 or -2, it indicates the last column so go to limit,
Don't let right side go beyond rct.right of Client Rect. */
if( (nWidth >= 0) && ((rct.left + nWidth - rct.right) <= 0) )
{ // negative values have different meanings
rct.right = rct.left + nWidth;
}
if( !bDegrad )
{
rct.bottom += ( bHeader ? 0 : 1 );
rct.right += 1;
if( !bBrush )
{
ExtTextOut( hDC, rct.left, rct.top, ETO_OPAQUE | ETO_CLIPPED, &rct, "", 0, 0 );
}
else
{
FillRect( hDC, &rct, wBrush );
}
rct.bottom -= ( bHeader ? 0 : 1 );
rct.right -= 1;
}
else
{
DegradColor( hDC, &rct, clrBack, clrTo );
}
if( hBitMap )
{
if( !bAdjBmp )
{
GetObject( hBitMap, sizeof(BITMAP), (LPSTR) & bm );
nTop = rct.top + ( (rct.bottom - rct.top + 1) / 2 ) - ( bm.bmHeight / 2 );
switch( ixLayOut ) // bitmap layout x coordinate
{
case 0: // column left
nLeft = rct.left;
break;
case 1: // column center (text -if any- may overwrite the bitmap)
nLeft = rct.left + ( (rct.right - rct.left + 1) / 2 ) - ( bm.bmWidth / 2 ) - 1;
break;
case 2: // column right
nLeft = rct.right - ( bm.bmWidth + 2 );
break;
case 3: // left of centered text
nLeft = max( rct.left, rct.left + ((rct.right - rct.left + 1) / 2) - (iTxtW / 2) - bm.bmWidth - 2 );
break;
case 4: // right of centered text
nLeft = rct.left + ( (rct.right - rct.left + 1) / 2 ) + ( iTxtW / 2 ) + 2;
break;
default: // a value > 4 means specific pixel location from column left
nLeft = rct.left + ixLayOut;
break;
}
}
else
{
nTop = rct.top;
nLeft = rct.left;
}
if( b3DLook )
{
if( bAdjBmp )
{
nTop = rct.top + 1;
DrawBitmap( hDC, hBitMap, nTop, rct.left - 1, rct.right - rct.left + 1, rct.bottom - rct.top - 1, 0 );
hBitMap = 0;
if( !bOpaque )
{
MaskRegion( hDC, &rct, GetPixel(hDC, nLeft, nTop), GetBkColor(hDC) );
}
}
else if( bOpaque )
{
DrawBitmap( hDC, hBitMap, nTop, nLeft, 0, 0, 0 );
}
else
{
DrawMasked( hDC, hBitMap, nTop, nLeft );
}
}
else
{
if( bAdjBmp )
{
DrawBitmap( hDC, hBitMap, rct.top, rct.left - 2, rct.right - rct.left + 3, rct.bottom - rct.top - 1, 0 );
hBitMap = 0;
if( !bOpaque )
{
MaskRegion( hDC, &rct, GetPixel(hDC, nLeft, nTop), GetBkColor(hDC) );
}
}
else if( bOpaque )
{
DrawBitmap( hDC, hBitMap, nTop, nLeft, 0, 0, 0 );
}
else
{
DrawMasked( hDC, hBitMap, nTop, nLeft );
}
}
}
if( nLen > 0 )
{
if( iAlign == DT_LEFT )
{
rct.left += ( 2 + (hBitMap && ixLayOut == 0 ? bm.bmWidth + 1 : 0) );
}
if( iAlign == DT_RIGHT )
{
rct.right -= ( 2 + (hBitMap && ixLayOut == 2 ? bm.bmWidth + 1 : 0) );
}
if( nVertText == 1 )
{
rct.right += ( 4 * nLen );
rct.bottom += 8;
}
iFlags = iAlign | DT_NOPREFIX | nVAlign * 4 | ( bMultiLine && nVAlign < 2 ? 0 : DT_SINGLELINE );
if( (nVertText == 3 || nVertText == 4) )
{
DrawCheck( hDC, &rct, hWhitePen, iAlign, bChecked );
}
else
{
nBkOld = SetBkMode( hDC, TRANSPARENT );
if( b3D )
{
rct.top -= 1;
rct.left -= 1;
rct.bottom -= 1;
rct.right -= 1;
SetTextColor( hDC, b3DInv ? nClr3DS : nClr3DL );
DrawText( hDC, cData, nLen, &rct, iFlags );
rct.top += 2;
rct.left += 2;
rct.bottom += 2;
rct.right += 2;
SetTextColor( hDC, b3DInv ? nClr3DL : nClr3DS );
DrawText( hDC, cData, nLen, &rct, iFlags );
rct.top -= 1;
rct.left -= 1;
rct.bottom -= 1;
rct.right -= 1;
SetTextColor( hDC, clrFore );
}
DrawText( hDC, cData, nLen, &rct, iFlags );
SetBkMode( hDC, nBkOld );
}
if( iAlign == DT_LEFT )
{
rct.left -= ( 2 + (hBitMap && ixLayOut == 0 ? bm.bmWidth + 1 : 0) );
}
if( iAlign == DT_RIGHT )
{
rct.right += ( 2 + (hBitMap && ixLayOut == 2 ? bm.bmWidth + 1 : 0) );
}
if( nVertText == 1 )
{
rct.right -= ( 4 * nLen );
rct.bottom -= 8;
}
}
if( b3DLook )
{
bHeader = ( bSuper ? bSuper : bHeader );
if( (nWidth != -2) && bGrid )
{ // -1 draw gridline in phantom column; -2 don't draw gridline in phantom column
WndBoxDraw( hDC, &rct, hWhitePen, hGrayPen, b3DLook ? 4 : nLineStyle, bHeader );
}
if( lCursor > 0 )
{
cDrawCursor( hWnd, &rct, lCursor, clrFore );
}
}
else
{
bHeader = ( bFooter ? bFooter : (bHeader || bSuper) );
if( (nWidth != -2) && bGrid )
{ // -1 draw gridline in phantom column; -2 don't draw gridline in phantom column
WndBoxDraw( hDC, &rct, hGrayPen, hGrayPen, nLineStyle, bHeader );
}
if( lCursor > 0 )
{
cDrawCursor( hWnd, &rct, lCursor, clrFore );
}
}
}
DeleteObject( hGrayPen );
DeleteObject( hWhitePen );
if( hFont )
{
SelectObject( hDC, hOldFont );
}
if( bDestroyDC )
{
ReleaseDC( hWnd, hDC );
}
}
void WndBoxDraw( HDC hDC, RECT *rct, HPEN hPUpLeft, HPEN hPBotRit, int nLineStyle, BOOL bHeader )
{
HPEN hOldPen = SelectObject( hDC, hPUpLeft );
HPEN hBlack = CreatePen( PS_SOLID, 1, 0 );
switch( nLineStyle )
{
case 0:
break;
case 1:
SelectObject( hDC, hPBotRit );
GoToPoint( hDC, rct->left, rct->bottom - (bHeader ? 1 : 0) );
LineTo( hDC, rct->right - 1, rct->bottom - (bHeader ? 1 : 0) );
LineTo( hDC, rct->right - 1, rct->top - 1 );
if( bHeader )
{
LineTo( hDC, rct->left - 1, rct->top - 1 );
}
break;
case 2:
SelectObject( hDC, hPBotRit );
GoToPoint( hDC, rct->right - 1, rct->bottom );
LineTo( hDC, rct->right - 1, rct->top - 1 );
break;
case 3:
SelectObject( hDC, hPBotRit );
GoToPoint( hDC, rct->left, rct->bottom );
LineTo( hDC, rct->right, rct->bottom );
break;
case 4:
SelectObject( hDC, hPUpLeft );
GoToPoint( hDC, rct->left, rct->bottom );
LineTo( hDC, rct->left, rct->top );
LineTo( hDC, rct->right, rct->top );
SelectObject( hDC, hPBotRit );
GoToPoint( hDC, rct->left, rct->bottom - (bHeader ? 1 : 0) );
LineTo( hDC, rct->right - 1, rct->bottom - (bHeader ? 1 : 0) );
LineTo( hDC, rct->right - 1, rct->top - 1 );
break;
case 5:
rct->top += 1;
rct->left += 1;
rct->bottom -= 1;
rct->right -= 1;
DrawFocusRect( hDC, rct );
break;
}
SelectObject( hDC, hOldPen );
DeleteObject( hBlack );
}
HARBOUR HB_FUN_TSBRWSCROLL()
{
HWND hWnd = ( HWND ) hb_parni( 1 );
int iRows = hb_parni( 2 );
HFONT hFont = ( HFONT ) hb_parni( 3 );
int nHeightCell = hb_parni( 4 );
int nHeightHead = hb_parni( 5 );
int nHeightFoot = hb_parni( 6 );
int nHeightSuper = hb_parni( 7 );
int nHeightSpecHd = hb_parni( 8 );
HFONT hOldFont = 0;
HDC hDC = GetDC( hWnd );
RECT rct;
if( hFont )
{
hOldFont = SelectObject( hDC, hFont );
}
GetClientRect( hWnd, &rct );
rct.top += ( nHeightHead + nHeightSuper - (nHeightSuper ? 1 : 0)+ nHeightSpecHd - (nHeightSpecHd ? 1 : 0) ); // exclude heading from scrolling
rct.bottom -= nHeightFoot; // exclude footing from scrolling
rct.bottom -= ( (rct.bottom - rct.top + 1) % nHeightCell ); // exclude unused portion at bottom
ScrollWindowEx( hWnd, 0, ( int ) -(nHeightCell * iRows), 0, &rct, 0, 0, 0 );
if( hFont )
{
SelectObject( hDC, hOldFont );
}
ReleaseDC( hWnd, hDC );
}
HARBOUR HB_FUN_TSBRWHSCROLL()
{
HWND hWnd = ( HWND ) hb_parni( 1 );
WORD wCols = hb_parni( 2 );
int nLeft = hb_parni( 3 );
int nRight = hb_parni( 4 );
HDC hDC = GetDC( hWnd );
RECT rct;
GetClientRect( hWnd, &rct );
if( nLeft )
{
rct.left = nLeft;
}
if( nRight )
{
rct.right = nRight;
}
ScrollWindowEx( hWnd, wCols, 0, 0, &rct, 0, 0, 0 );
ReleaseDC( hWnd, hDC );
}
HARBOUR HB_FUN_ROWFROMPIX()
{
HWND hWnd = ( HWND ) hb_parni( 1 );
int iPixR = hb_parni( 2 );
int iCell = hb_parni( 3 );
int iHead = hb_parni( 4 );
int iFoot = hb_parni( 5 );
int iSupH = hb_parni( 6 );
int iSpcH = hb_parni( 7 );
RECT rct;
int iRow;
GetClientRect( hWnd, &rct );
if( iPixR <= (rct.top + iHead + iSupH) )
{
iRow = 0;
}
else if( iPixR >= (rct.top + iHead + iSupH ) && iPixR <= (rct.top + iHead + iSupH + iSpcH) )
{
iRow = -2;
}
else if( iPixR >= (rct.bottom - iFoot) )
{
iRow = -1;
}
else
{
rct.top += ( iHead + iSupH + iSpcH );
iRow = ( (iPixR - rct.top) / iCell ) + 1;
}
hb_retni( iRow );
}
HARBOUR HB_FUN_SBGETHEIGHT() //SBGetHeigh( hWnd, hFont, nTotal )
{
HWND hWnd = ( HWND ) hb_parni( 1 );
HFONT hFont = ( HFONT ) hb_parni( 2 );
int iTotal = hb_parni( 3 );
TEXTMETRIC tm;
RECT rct;
HDC hDC = GetDC( hWnd );
HFONT hOldFont;
LONG lTotHeight, lReturn;
if( iTotal < 2 )
{
if( hFont )
{
hOldFont = SelectObject( hDC, hFont );
}
GetTextMetrics( hDC, &tm );
if( hFont )
{
SelectObject( hDC, hOldFont );
}
ReleaseDC( hWnd, hDC );
lReturn = ( iTotal == 1 ? tm.tmAveCharWidth : tm.tmHeight );
hb_retnl( lReturn );
}
else
{
GetWindowRect( hWnd, &rct );
lTotHeight = rct.bottom - rct.top + 1;
ReleaseDC( hWnd, hDC );
hb_retnl( lTotHeight );
}
}
HARBOUR HB_FUN_COUNTROWS() // ( hWnd, nHeightCell, nHeightHead,
// nHeightFoot, nHeightSuper, nHeightSpec ) -> nRows
{
HWND hWnd = ( HWND ) hb_parni( 1 );
int iCell = hb_parni( 2 );
int iHead = hb_parni( 3 );
int iFoot = hb_parni( 4 );
int iSupH = hb_parni( 5 );
int iSpcH = hb_parni( 6 );
RECT rct;
int iRows, iFree;
GetClientRect( hWnd, &rct );
iFree = rct.bottom - rct.top + 1 - iSupH - iHead - iFoot - iSpcH;
iRows = iFree / iCell;
hb_retni( iRows );
}
HARBOUR HB_FUN_SBMPHEIGHT() // ( hBmp )
{
HBITMAP hBmp = ( HBITMAP ) hb_parni( 1 );
BITMAP bm;
GetObject( hBmp, sizeof(BITMAP), (LPSTR) & bm );
hb_retni( bm.bmHeight );
}
HARBOUR HB_FUN_SBMPWIDTH()
{
HBITMAP hBmp = ( HBITMAP ) hb_parni( 1 );
BITMAP bm;
GetObject( hBmp, sizeof(BITMAP), (LPSTR) & bm );
hb_retni( bm.bmWidth );
}
void DrawCheck( HDC hDC, LPRECT rct, HPEN hWhitePen, int nAlign, BOOL bChecked )
{
RECT lrct;
HPEN hOldPen;
HBRUSH hOldBrush;
HBRUSH hGrayBrush = CreateSolidBrush( RGB(192, 192, 192) );
HBRUSH hWhiteBrush = CreateSolidBrush( RGB(255, 255, 255) );
HPEN hBlackPen = CreatePen( PS_SOLID, 1, RGB(0, 0, 0) );
HPEN hLGrayPen = CreatePen( PS_SOLID, 1, RGB(192, 192, 192) );
HPEN hGrayPen = CreatePen( PS_SOLID, 1, RGB(128, 128, 128) );
hOldBrush = SelectObject( hDC, hGrayBrush );
lrct.top = rct->top + ( ((rct->bottom - rct->top + 1) / 2) - 8 );
switch( nAlign )
{
case 0: lrct.left = rct->left; break;
case 1: lrct.left = rct->left + ( (rct->right - rct->left + 1) / 2 ) - 8; break;
case 2: lrct.left = rct->right - 16; break;
}
lrct.bottom = lrct.top + 16;
lrct.right = lrct.left + 16;
lrct.left -= 1;
lrct.top -= 1;
lrct.right += 1;
lrct.bottom += 1;
hOldPen = SelectObject( hDC, hBlackPen );
Rectangle( hDC, lrct.left, lrct.top, lrct.right, lrct.bottom );
lrct.left += 1;
lrct.top += 1;
lrct.right -= 1;
lrct.bottom -= 1;
FillRect( hDC, &lrct, hGrayBrush );
lrct.top += 2;
lrct.left += 2;
lrct.right -= 1;
lrct.bottom -= 1;
FillRect( hDC, &lrct, hWhiteBrush );
SelectObject( hDC, hOldBrush );
DeleteObject( hGrayBrush );
DeleteObject( hWhiteBrush );
lrct.right -= 1;
lrct.bottom -= 1;
SelectObject( hDC, hGrayPen );
Rectangle( hDC, lrct.left, lrct.top, lrct.right, lrct.bottom );
lrct.top += 1;
lrct.left += 1;
lrct.right -= 1;
lrct.bottom -= 1;
SelectObject( hDC, hBlackPen );
Rectangle( hDC, lrct.left, lrct.top, lrct.right, lrct.bottom );
lrct.top += 1;
lrct.left += 1;
SelectObject( hDC, hWhitePen );
Rectangle( hDC, lrct.left, lrct.top, lrct.right, lrct.bottom );
lrct.top += 1;
lrct.right -= 2;
lrct.bottom -= 1;
if( bChecked )
{
GoToPoint( hDC, lrct.right, lrct.top );
SelectObject( hDC, hBlackPen );
LineTo( hDC, lrct.right - 4, lrct.bottom - 3 );
LineTo( hDC, lrct.right - 6, lrct.bottom - 5 );
GoToPoint( hDC, lrct.right, lrct.top + 1 );
LineTo( hDC, lrct.right - 4, lrct.bottom - 2 );
LineTo( hDC, lrct.right - 6, lrct.bottom - 4 );
GoToPoint( hDC, lrct.right, lrct.top + 2 );
LineTo( hDC, lrct.right - 4, lrct.bottom - 1 );
LineTo( hDC, lrct.right - 6, lrct.bottom - 3 );
}
SelectObject( hDC, hOldPen );
DeleteObject( hGrayPen );
DeleteObject( hLGrayPen );
DeleteObject( hBlackPen );
}
static void GoToPoint( HDC hDC, int ix, int iy )
{
POINT pt;
MoveToEx( hDC, ix, iy, &pt );
}
static void DegradColor( HDC hDC, RECT *rori, COLORREF cFrom, COLORREF cTo )
{
int clr1r, clr1g, clr1b, clr2r, clr2g, clr2b;
signed int iEle, iRed, iGreen, iBlue;
int iTot = ( rori->bottom + 2 - rori->top );
BOOL bDir;
RECT rct;
HBRUSH hOldBrush, hBrush;
rct.top = rori->top;
rct.left = rori->left;
rct.bottom = rori->bottom;
rct.right = rori->right;
clr1r = GetRValue( cFrom );
clr1g = GetGValue( cFrom );
clr1b = GetBValue( cFrom );
clr2r = GetRValue( cTo );
clr2g = GetGValue( cTo );
clr2b = GetBValue( cTo );
iRed = abs( clr2r - clr1r );
iGreen = abs( clr2g - clr1g );
iBlue = abs( clr2b - clr1b );
iRed = ( iRed < 0 ? 0 : (iRed / iTot) );
iGreen = ( iGreen < 0 ? 0 : (iGreen / iTot) );
iBlue = ( iBlue < 0 ? 0 : (iBlue / iTot) );
rct.bottom = rct.top + 1;
hBrush = CreateSolidBrush( RGB(clr1r, clr1g, clr1b) );
hOldBrush = SelectObject( hDC, hBrush );
FillRect( hDC, &rct, hBrush );
for( iEle = 1; iEle < iTot; iEle++ )
{
bDir = ( clr2r >= clr1r ? TRUE : FALSE );
if( bDir )
{
clr1r += iRed;
}
else
{
clr1r -= iRed;
}
clr1r = ( clr1r < 0 ? 0 : clr1r > 255 ? 255 : clr1r );
bDir = ( clr2g >= clr1g ? TRUE : FALSE );
if( bDir )
{
clr1g += iGreen;
}
else
{
clr1g -= iGreen;
}
clr1g = ( clr1g < 0 ? 0 : clr1g > 255 ? 255 : clr1g );
bDir = ( clr2b >= clr1b ? TRUE : FALSE );
if( bDir )
{
clr1b += iBlue;
}
else
{
clr1b -= iBlue;
}
clr1b = ( clr1b < 0 ? 0 : clr1b > 255 ? 255 : clr1b );
SelectObject( hDC, hOldBrush );
DeleteObject( hBrush );
hBrush = CreateSolidBrush( RGB(clr1r, clr1g, clr1b) );
SelectObject( hDC, hBrush );
FillRect( hDC, &rct, hBrush );
rct.top++;
rct.bottom++;
}
SelectObject( hDC, hOldBrush );
DeleteObject( hBrush );
}
void cDrawCursor( HWND hWnd, RECT *rctc, long lCursor, COLORREF nClr )
{
HDC hDC;
HRGN hReg;
COLORREF lclr = ( lCursor == 1 ? RGB(5, 5, 5) : lCursor == 2 ? nClr : lCursor );
HBRUSH hBr;
RECT rct;
if( lCursor != 3 )
{
hBr = CreateSolidBrush( lclr );
hReg = CreateRectRgn( rctc->left, rctc->top, rctc->right - 1, rctc->bottom );
hDC = GetDCEx( hWnd, hReg, DCX_CACHE );
FrameRgn( hDC, hReg, hBr, 2, 2 );
ReleaseDC( hWnd, hDC );
DeleteObject( hReg );
DeleteObject( hBr );
}
else
{
rct.top = rctc->top + 1;
rct.left = rctc->left + 1;
rct.bottom = rctc->bottom - 1;
rct.right = rctc->right - 1;
hDC = GetDC( hWnd );
DrawFocusRect( hDC, &rct );
ReleaseDC( hWnd, hDC );
}
}
HARBOUR HB_FUN_GETSCRLRANGE() // ( hWnd, nFlags )
{
int iMin = 0, iMax = 0;
GetScrollRange( (HWND) hb_parnl(1), // its hWnd
hb_parni(2), // Scroll bar flags
&iMin, &iMax );
hb_reta( 2 ); // { nMin, nMax }
HB_STORNI( iMin, -1, 1 );
HB_STORNI( iMax, -1, 2 );
}
HARBOUR HB_FUN_GETSCRLPOS() // ( hWnd, nFlags )
{
hb_retni( GetScrollPos((HWND) hb_parnl(1), // its hWnd
hb_parni(2)) ); // Scroll bar flags
}
HARBOUR HB_FUN_INITEDSPINNER()
{
HWND hwnd;
HWND hedit;
HWND hupdown;
int Style = WS_CHILD | UDS_ARROWKEYS | UDS_ALIGNRIGHT | UDS_SETBUDDYINT | UDS_NOTHOUSANDS |WS_VISIBLE |UDS_HOTTRACK ;//| UDS_AUTOBUDDY ;
INITCOMMONCONTROLSEX i;
i.dwSize = sizeof( INITCOMMONCONTROLSEX );
InitCommonControlsEx( &i );
hwnd = ( HWND ) hb_parnl( 1 );
hedit = ( HWND ) hb_parnl( 2 );
hupdown = CreateUpDownControl( Style,hb_parni(3),hb_parni(4),15,hb_parni(6),hwnd, 777,GetModuleHandle(NULL),
hedit,hb_parni(8),hb_parni(7),0);
SendMessage( hupdown, UDM_SETRANGE32, (WPARAM) hb_parni(7), (LPARAM) hb_parni(8) );
hb_retnl( (LONG) hupdown );
}
HARBOUR HB_FUN_SETINCREMENTSPINNER()
{
UDACCEL inc;
SendMessage( (HWND) hb_parnl(1), UDM_GETACCEL, (WPARAM) 1, (LPARAM) & inc );
inc.nInc = hb_parnl( 2 );
SendMessage( (HWND) hb_parnl(1), UDM_SETACCEL, (WPARAM) 1, (LPARAM) & inc );
}
