Показать сообщение отдельно
  #23  
Старый 05.05.2014, 12:55
Аватар для hsMapk
hsMapk hsMapk вне форума
Новичок
 
Регистрация: 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;
тема закрыта
Ответить с цитированием