Probleme mit AngleArc

[marabu]

Sorry Alex,

das MoveTo muss tatsächlich sein:

Delphi-Quellcode:

procedure TDemoForm.FormClick(Sender: TObject);
const
  iRadius = 60;
var
  ptCenter: TPoint;
begin
  ptCenter.X := ClientWidth div 2;
  ptCenter.Y := ClientHeight div 2;
  with Canvas do
  begin
    Pen.Width := 3;
    MoveTo(ptCenter.X - iRadius, ptCenter.Y);
    AngleArc(Handle, ptCenter.X, ptCenter.Y, iRadius, 180, 180);
    MoveTo(ptCenter.X - iRadius, ptCenter.Y);
    AngleArc(Handle, ptCenter.X - 2 * iRadius, ptCenter.Y, iRadius, 0, 90);
    MoveTo(ptCenter.X + 2 * iRadius, ptCenter.Y - iRadius);
    AngleArc(Handle, ptCenter.X + 2 * iRadius, ptCenter.Y, iRadius, 90, 90);
  end;
end;

Freundliche Grüße