FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Line arround polypolygon
Posts: 1195
Joined: Mon Oct 17, 2005 05:41 AM
Line arround polypolygon
Posted: Fri Jun 29, 2012 09:59 AM
Hi,

I'm drawing polygons on a window with (vsolid is an array with the coördinates)
Code (fw): Select all Collapse
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
Regards,

Marc



FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
Posts: 1195
Joined: Mon Oct 17, 2005 05:41 AM
Re: Line arround polypolygon
Posted: Fri Jun 29, 2012 11:14 AM
Hi,

Problem soved with
Code (fw): Select all Collapse
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
Regards,

Marc



FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite

Continue the discussion