drawing a circle with FW_Box

[Silvio.Falconi]

I draw a red circle but the border is allways black...why ?

hBrush := CreateSolidBrush(RGB(255, 28, 36))

SelectObject(hDC, hBrush)


FW_Box( hDC, { nX, nY, nX + nSize, nY + nSize }, hBrush, hBrush, , 2 )

I tried also with
FW_Box( hDC, { nX, nY, nX + nSize, nY + nSize }, RGB(243, 101, 108), RGB(243, 101, 108), , 2 )

where is the error ?

[nageswaragunupudi]

Code: Select all  Expand view

FW_Box( hDC, { nX, nY, nX + nSize, nY + nSize }, RGB(243, 101, 108), RGB(243, 101, 108), , 2 )

This should work.

[Silvio.Falconi]

Code: Select all  Expand view

FW_Box( hDC, { nX, nY, nX + nSize, nY + nSize }, RGB(243, 101, 108), RGB(243, 101, 108), , 2 )

This should work.

Yes but i see allways the black border

[nageswaragunupudi]

If a color or pen is specified as 3rd parameter, only that color/pen is used and it never uses black color.
As a test you may check

Code: Select all  Expand view

  local nClr  := RGB(243, 101, 108)

   DEFINE WINDOW oWnd SIZE 200,200 PIXEL

   oWnd:bPainted := { |hDC| FW_Box( hDC, { 20,20,120,120 }, { nClr, 3 }, nil, , 2 ) }
 

The circle is drawn with the specified color only but not black.

[Silvio.Falconi]

now run

[Silvio.Falconi]

If a color or pen is specified as 3rd parameter, only that color/pen is used and it never uses black color.
As a test you may check

Code: Select all  Expand view

  local nClr  := RGB(243, 101, 108)

   DEFINE WINDOW oWnd SIZE 200,200 PIXEL

   oWnd:bPainted := { |hDC| FW_Box( hDC, { 20,20,120,120 }, { nClr, 3 }, nil, , 2 ) }
 

The circle is drawn with the specified color only but not black.

Nages, can I print with fw_box?

sample
FW_Box( oPrn:hdc, { nY, nX, nY + nPixelAltezza, nX + nPixelLarghezza }, { nClr, 3 }, nil, , 2 )

[Silvio.Falconi]

I resolved with



oPrn:Ellipse(...)