Forum: Object-Pascal / Delphi-Language
Delphi
by R2009,
12. Mär 2009
Hi,
hier auch noch die entsprechende Routine für den Kreis.
procedure Kreis(can:tobject;x1,y1,r1:integer);
Begin
(can as tcanvas).Ellipse(x1-r1,y1-r1,x1+r1,y1+r1);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by R2009,
12. Mär 2009
Hi,
bei der Prozedur linie repräsentiert der erste Parameter die Zeichenläche auf die du zeichnen willst.
Die nächsten beiden Zahlen sind die Startkoordinaten und die letzten beiden die Endkoordinaten der Linie.
Viel Spass
Forum: Object-Pascal / Delphi-Language
Delphi
by R2009,
12. Mär 2009
Hi,
auf das Formular zeichnen mit canvas.moveto(x0,y0) und canvas.lineto(x1,y1).
Wenn du das ganz komfortabel machen willst schreib dir eine Prozedur.
procedure linie(can:tobject;x1,y1,x2,y2:integer);
Begin
(can as tcanvas).moveto(x1,y1);
(can as tcanvas).lineto(x2,y2);