Машинка-дай газу! Опции

[Костян]

Здорово народ, ну в общем название темы это и есть вопрос. Короче проблема такая: сделал прогу- рисует машинку. Вопрос на 10 баллов, как заставить эту бесбашенную конструкцию перемещатся по экрану? Через delay со стиранием экрана.

[volvo]

Не обязательно для этого стирать экран... Достаточно с помощью GetImage захватить тот кусок экрана, на котором отрисована машинка, а потом в цикле делать, например, так:

Var Img: Pointer;
...
  GetMem(Img, ImageSize(10, 10, 100, 50)); 
  {
    Подставь свои координаты, машинка должна вмещаться
    в заданный прямоугольник полностью
  }

  GetImage(10, 10, 100, 50, Img^); { Сохранить образ машинки в память }
  ClearDevice; { Очистить экран }
  ...
  for i := 1 to 30 do begin
    PutImage(X+5*i, Y, Img^, XorPut); { Рисуем изображение }
    Delay(2000); { Ждем немного }
    putimage(X+5*i, Y, Img^, XorPut); { И опять затираем, особенность XorPut }
  end;
...

А вообще, попробуй поискать по форуму с ключевыми словами "анимация", "PutImage", "GetImage"... По-моему, уже кое-что выкладывалось...