"spielfeld", also jedes stück 10x10px gross

[MSSSSM]

hm, eine AV...

Delphi-Quellcode:

  spielfeld: array[0..10,0..10] of TBitmap;

{...}

procedure MaleFeld;
var
  i, j: Integer;
begin

  for i := Low(spielfeld) to High(spielfeld) do
    for j := Low(spielfeld[i]) to High(spielfeld[i]) do begin
      spielfeld[i,j].Canvas.Brush.Color:=clBlack;
      form1.Image1.Canvas.Draw(i * 10, j * 10, spielfeld[i, j]);
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MaleFeld;
end;

scheint mit draw zusammenzuhängen...


mfg