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
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