Function on Harbour not run

[Silvio.Falconi]

I have on a app this function

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 );
}

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 ?