Hi,
hier auch noch die entsprechende Routine für den Kreis.
Delphi-Quellcode:
procedure Kreis(can:tobject;x1,y1,r1:integer);
Begin
(can as tcanvas).Ellipse(x1-r1,y1-r1,x1+r1,y1+r1);
end;
x1,y1 --> Mittelpunkt de Kreises.
r1 --> Radius.
So das wars jetzt auf dem Silbertablett.
Es wäre nett wenn du das Ergebnis deiner Arbeit hier publizieren könntest!
Bemerkung:
Ich hab dir nur geholfen um dir einen Anschubser zu geben.
Vielleicht bekommst du jetzt etwas Lust einiges selbst zu probieren.
Ansonsten gibts hier jede Menge Tutorials.
Viel Spass!