
05.05.2014, 12:55
|
 |
Новичок
|
|
Регистрация: 17.04.2014
Сообщения: 60
Версия Delphi: Delphi 7
Репутация: 5
|
|
всё всем спасибо)нужно просто в таймере было так написать
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Buf := TBitmap.Create;
Buf.Width := 32 * 32;
Buf.Height := 32 * 32;
for i:=0 to 19 do
for j:=0 to 19 do
Buf.Canvas.Draw(i*32,j*32, zemlya[ Mas[I,j,0] ] );
for i:=0 to 19 do
for j:=0 to 19 do
Buf.Canvas.Draw(i*32,j*32, obekti[ Mas[I,j,1] ] );
Form1.Canvas.Draw(0,0,Buf);
end;
тема закрыта
|