Solitär - Schule!

[Phallic]

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;