Floodfill and rectang

[Silvio]

I must fill of a color an rectag

I use a define to INSERT A bRUSH

Code: Select all  Expand view

DEFINE BRUSH oPen1 COLOR CLR_HBLUE 
DEFINE BRUSH oPen2 COLOR CLR_HRED 

MY FUNC IS CALLED

Code: Select all  Expand view

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


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

Code: Select all  Expand view

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