Minipaint - Kreis von Mittelpunkt aufziehen

[hanselmansel]

Delphi-Quellcode:

Var
  Center :TPoint;

...

procedure MouseDown;
begin
Center := Point(X,Y);
end;

procedure MouseUp;
Var
  aRect :TRect;
  radius :Integer;
begin
//raduius mittels pytagodingsda ausrechnen
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;

Was jedoch eine Gummilinie ist, musst du mir bei Zeiten und einem guten Bier ( ) noch einmal erklären.

Gute Nacht,

hanselmansel