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

[MSSSSM]

nuno, es geht

da müsste man nur noch einen rahmen drum machen *zauber*

Delphi-Quellcode:

var
  Form1: TForm1;
  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;
      spielfeld[i,j].Canvas.Pen.Color:=clYellow;
      spielfeld[i,j].Canvas.Rectangle(0,0,10,10);
      form1.Image1.Canvas.Draw(i * 10, j * 10, spielfeld[i, j]);
      end;
end;

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

procedure TForm1.FormCreate(Sender: TObject);
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]:=TBitmap.Create;
      end;

end;

DAS funktioniert nicht(Der rahmen...) sonst

mfg