Line arround polypolygon

[Marc Vanzegbroeck]

Hi,

I'm drawing polygons on a window with (vsolid is an array with the coördinates)

Code: Select all  Expand view

local hBrush1  := CreateSolidBrush( nRGB( 255, 0, 0) )
hOldBrush := SelectObject( sWnd:hDC, hBrush1 )
polypolygon( sWnd:hDC, vsolid )

The polygon is drawn in red, but there is a black line around it, how can I change this color?

Thanks,
MArc

[Marc Vanzegbroeck]

Hi,

Problem soved with

Code: Select all  Expand view

local hPen1 := CreatePen( 0 , 1, nRGB( 255, 0, 0) )
local hBrush1  := CreateSolidBrush( nRGB( 255, 0, 0) )
hOldBrush := SelectObject( sWnd:hDC, hBrush1 )
hOldPen := SelectObject( sWnd:hDC, hPen1 )
polypolygon( sWnd:hDC, vsolid )

Marc