Problem DrawGrid->Automatisches refreshen

**inherited**

Hi.
Ich versuche einen kleinen editor zu basteln, scheitere aber an dem Versuch, die "Map" in einem DrawGrid anzeigen zu lassen.
ICh mache dies mit einem Timer

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm9.Timer1Timer(Sender: TObject);

var

  i: Integer;

  j: Integer;

  r: TRect;

begin

  for i := 0 to DrawGrid1.ColCount do

  begin

    for j := 0 to DrawGrid1.RowCount do

    begin

      if Map[i,j]=-1 then exit;

      r:=DrawGrid1.CellRect(i,j);

      DrawGrid1.Canvas.Draw(r.Left, r.Top, Tiles[Map[i, j]].Picture.Bitmap);

    end;

  end;

end;

Map ist ein array of array of Integer welches den TYp des feldes darstellt, ergo welches Bitmap angezeigt werden soll.
Tiles ist ein Array of TImage, welches die Bitmaps enthält

Ich kann zwar allen Feldern einen Wert zuweisen, jedoch wird nur das allererste Feld refreshed, alle anderen garnicht.
Was mach ich falsch

Problem DrawGrid->Automatisches refreshen

Problem DrawGrid->Automatisches refreshen

Forumregeln