Floodfill and rectang

[Silvio]

I must fill of a color an rectag

I use a define to INSERT A bRUSH

Code: Select all

DEFINE BRUSH oPen1 COLOR CLR_HBLUE  
DEFINE BRUSH oPen2 COLOR CLR_HRED  

MY FUNC IS CALLED

Code: Select all

FLOODY(NTOP,NLEFT,NBOTTOM,NRIGHT,NCOLOR,NUMBER)

bUT i NOT kNOW HOW FLOODFILL A RECTANG i TRY WITH :

Code: Select all

 LOCAL oBrush,  hOld

   hBru := CreateSolidBrush( nColor )
   hOld := SelectObject( ::hDC, hBru )
   hpen:=CreatePen(0,8,nColor)
   Rectangle( ::hDC, nTop, nLeft, nBottom, nRight, hpen )
   FillRect( ::hDC, { nTop, nLeft, nBottom, nRight }, hBru )
   SelectObject( ::hDC, hOld )
   DeleteObject( hBru )

but it not run ok
Someone can help me please

Regards