Halbkreise zeichnen

[Christian18]

hallo,

ich finde es immer am leichtesten, wenn man einen Kreis zu fuß zeichnet. das kannst du so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var i  : TImage;   // image zum Anzeigen des Helbkreises
      mx : Integer;  // Mittelpunkt x
      my : Integer;  // mittelpunkt y
      k  : Integer;  // Schleifenvariable
      r  : Integer;  // Rand;
begin
  i:=Image1;
  mx:=i.Width div 2;
  my:=i.Height div 2;
  r:=20;

  i.Canvas.MoveTo(mx+r, my);

  for k:=0 to 180 do
    begin
      i.Canvas.LineTo(Round(mx+r*cos(k*Pi/180)), Round(my-r*sin(k*Pi/180)));
    end;
end;

PS: Ich hoffe ich konnte Dir ein wenig helfen.

Mit freundlichen Grüßen

Christian18