Floodfill and rectang
Posted: Wed Jan 25, 2006 12:51 am
I must fill of a color an rectag
I use a define to INSERT A bRUSH
MY FUNC IS CALLED
bUT i NOT kNOW HOW FLOODFILL A RECTANG i TRY WITH :
but it not run ok
Someone can help me please
Regards
I use a define to INSERT A bRUSH
Code: Select all
DEFINE BRUSH oPen1 COLOR CLR_HBLUE
DEFINE BRUSH oPen2 COLOR CLR_HRED Code: Select all
FLOODY(NTOP,NLEFT,NBOTTOM,NRIGHT,NCOLOR,NUMBER)
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 )
Someone can help me please
Regards