|
Registriert seit: 8. Jun 2008
18 Beiträge
|
Re: Rectangle und Ellipse
9. Jun 2008, 00:18
habs jetzt so weit gebracht aber klappt noch net ganz
With Image3.Canvas do
Begin;
d:=200;
c:=200;
b:=200;
for a:=0 to 10 do
Begin;
brush.color:=clred;
Rectangle(c-b,d-b,c-c+b,d-d+b);
brush.color:=clyellow;
Ellipse(c-b,d-b,c-c+b,d-d+b);
b:=3*(b div 4);
End;
End;
...verzweiflung^^
|