Minipaint - Kreis von Mittelpunkt aufziehen

[hanselmansel]

HiHo Co0kie,

da ich - wie du dir sicherlich schon gedacht hast - das Programm mal in Delphi getippt habe (um zu gucken, ob das auch stimmt, was ich poste) habe ich den Code nun ein wenig verändert:

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  Radius_real :Real;
  Radius      :Integer;
  
begin
Radius_real := SQRT( SQR(Center.X - X) + SQR(Center.Y - Y) );
Radius := Trunc(Radius_real); //Nachkommastellen abschneiden
//Variante 1
Form1.Canvas.Ellipse(Center.X-Radius, Center.Y-Radius, Center.X+Radius, Center.Y+Radius);

//Variante 2
{aRect.Left := Center.X - distance;
aRect.Top := Center.Y - distance;
aRect.Right := Center.X + distance;
aRect.Bottom := Center.Y + distance;
Form1.Canvas.Ellipse(aRect); }
end;

Die Herangehensweise ist die Selbe, aber evtl. ein wenig einfacher zu verstehen.