Canvas.Arc function does not work

[newman]

Hi,

I am trying to get the Canvas.Arc function to draw an arc on a form, however it does not work.

I pasted the following code in the Form.OnPaint event.

Canvas.Pen.Color:= clRed;
Canvas.Pen.Width:= 1;
Canvas.Arc(106,6,139,64,139,6,139,6);

However nothing gets drawn.

I am using Lazarus 1.6 on OS X (EL Capitan).

Other functions like ArcTo, LineTo, Ellipse etc works,

Please help

thanks
nm

[User137]

To me that draws a small red circle on top.

Win10, some ages old Lazarus 1.3.

[marcov]

Try to pain in the onpaint event.

[newman]

I created a fresh project and pasted the paint code in the OnPaint event of the form.

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color:= clRed;
Canvas.Pen.Width:= 1;
Canvas.Arc(106,6,139,64,139,6,139,6);

end;

However even now nothing is drawn on the form...

thanks
nm

[newman]

OK, now I changed some of the parameters in the arc function, I am able to draw some arcs on the screen

thanks
nm