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