Nein, leider hat er diese nicht verraten. Aber allerdings habe ich es jetzt selber geschafftz..mit bißchen rumprobieren und der Benutzen von nur 2 Boxen!
Jetzt allerdings weiß ich nicht wie man Kreise ausfüllen lässt...ich brauch doch dafür eine variable oder?
Und dann war da doch irgendetwas...mit floodfill...allerdings weiß ich das nicht mehr genau ^.^
Und wie mache ich es, dass sich alle z.b blau ausfüllen...nur das in der Mitte bleibt weiß?
Delphi-Quellcode:
.
.
.
var
Form1: TForm1;
z,zr,a,x1,x2,y1,y2,s : integer;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
zr:=10;
a:=30;
For z:=0 to 6 do
begin
For s:=0 to 2 do
begin
x1:=zr+3*(a+zr)+(a+zr)*s;
y1:=zr+(a+zr)*z;
image1.Canvas.Ellipse(x1,y1,x1+15,y1+15);
end;
end;
For z:=0 to 2 do
begin
For s:=0 to 6 do
begin
x1:=zr+(a+zr)+(a+zr)*s;
y1:=9*zr+(a+zr)*z;
image1.canvas.Ellipse(x1,y1,x1+15,y1+15);
end;
end;
end;