Rand eines Kreissegment zeichnen.

[xineohp]

mit Arc wird doch aber der Kreis nicht überzeichnent?!

Delphi-Quellcode:

var
  R: TRect;
begin
  canvas.Brush.Color := clblue;
  canvas.Pen.Color := clblue;
  canvas.Pen.Width := 0;

  R := GetClientRect;
  canvas.Ellipse(R.Left, R.Top, R.Right, R.Bottom);

  canvas.Pen.Color := clred;
  canvas.Pen.Width := 10;
  Canvas.Arc(R.Left, R.Top, R.Right, R.Bottom, R.Right, R.Top, R.Left, R.Top);
end;