Schachbrett

[Bummi]

versuchs mal so ...

Delphi-Quellcode:

procedure Tform8.position;
var
i,b,c : integer;
begin
for I := 0 to length(Felder) do
  begin
    felder[i] := Tfeld.create;
    felder[i].position.y := I div 8;
    felder[i].position.x := I MOD 8;
  end;
end;


procedure TForm8.Zeichnen;
Const
 ColorArray:Array [boolean] of TColor=(clBlack,clWhite);
var
i : integer;
white:Boolean;
begin
white := true;
for I := 0 to length(Felder) do
  begin
     image1.Canvas.Brush.Color := ColorArray[white];
     if (i+1) mod 8 <> 0 then white := not White;
     image1.Canvas.Rectangle(felder[i].position.X*50,felder[i].position.Y*50,felder[i].position.X*50+50, felder[i].position.Y*50+50);
    end;
end;