- Code: Select all Expand view
- HB_FUNC( FILLSOLIDBRUSH ) // (hDC, {x,y,x1,y1}, nColor)
{
HPEN hPen, hOldPen;
RECT rct;
HBRUSH hBrush;
rct.top = hb_parni( 2, 1 );
rct.left = hb_parni( 2, 2 );
rct.bottom = hb_parni( 2, 3 );
rct.right = hb_parni( 2, 4 );
hBrush = CreateSolidBrush ( hb_parnl( 3 ) );
FillRect ( ( HDC ) hb_parnl( 1 ), &rct, hBrush );
}
make me error
Error E2227 TTabs.prg 883: Extra parameter in call to hb_parni in function HB_FUN_FILLSOLIDBRUSH
Error E2227 TTabs.prg 884: Extra parameter in call to hb_parni in function HB_FUN_FILLSOLIDBRUSH
Error E2227 TTabs.prg 885: Extra parameter in call to hb_parni in function HB_FUN_FILLSOLIDBRUSH
Error E2227 TTabs.prg 886: Extra parameter in call to hb_parni in function HB_FUN_FILLSOLIDBRUSH
*** 4 errors in Compile ***
TTabs.prg a my class
I'm compiling with Harbour and make error, on xharbour run ok
why ?
