|
Registriert seit: 8. Jun 2008
18 Beiträge
|
Re: Rectangle und Ellipse
8. Jun 2008, 23:00
also mein quelltext sieht so aus... klappt aber nicht
With Image3.Canvas do
Begin;
d:=200;
c:=0;
b:=200;
for a:=0 to 10 do
Begin;
brush.color:=clred;
Rectangle(c,d-b,c+b,d);
b:=3*(b div 4);
brush.color:=clyellow;
Ellipse(c,d-b,c+b,d);
End;
End;
komme irgendwie aber auhc nicht weiter
|