Function on Harbour not run
Posted: Mon Dec 23, 2019 9:57 am
I have on a app this function
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 ?
Code: Select all
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 );
}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 ?