topic-1398

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

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

DEFINE BRUSH oPen1 COLOR CLR_HBLUE  
DEFINE BRUSH oPen2 COLOR CLR_HRED

MY FUNC IS CALLED

Code: Select all Collapse

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

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

Code: Select all Collapse

 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

Best Regards, Saludos

Falconi Silvio

FiveTech Support Forums

Continue the discussion