Linien u.ä. zeichnen - Startpunkt festlegen

[tankm26]

Hallo!


Wie kann man für z.B. das Zeichnen einer Gerade oder das eines Kreises den Startpunkt verändern? Bis jetzt zeichnet mein Programm alle "Formen" vom Punkt 0/0.


Hier als Beispiel die Prozeduren für Kreis und Gerade.

Delphi-Quellcode:

procedure TForm2.bKreisClick(Sender: TObject);
begin
 form1.Image.Canvas.Ellipse(strtoint(edit1.text),strtoint(edit2.text),strtoint(edit3.text),strtoint(edit4.text));
end;

procedure TForm2.bGeradeClick(Sender: TObject);
begin
  form1.Image.Canvas.MoveTo(strtoint(edit1.text),strtoint(edit2.text));
  form1.Image.canvas.lineto(strtoint(edit3.text),strtoint(edit4.text));
end;

edit: Also, für Linien bekomme ich das hin (s.o.)


mfg

Wieland

[ichbins]

hm...

bei mir funzt das alles hervoragend...