topic-38260

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Function on Harbour not run
Posted: Mon Dec 23, 2019 09:57 AM

I have on a app this function

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 ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion