Delphi

lxa85 · Отправлено: **21:10, 03-01-2011** | #2

Наташок, вот все что у тебя в begin - end записываешь в процедуру.
Убираешь координатные константные значения (160, 150, 145, 175, 185) и т.д. а вместо них пишешь относительные.
Задаешь центр изображения, например O(x,y) а от него все остальные точки. Точка будет иметь координаты (Ox+x; Oy+y)
Пишешь в основной программе обработку клавиш вперед, назад, влево, вправо, диагонали, а в выполняемые операции прописываешь функцию затирания (идентичную рисованию, только другим цветом), изменения координат рисунка (шаг) и функцию рисования объекта на новом месте.

Процедуре передается точка O(x, y), относительно которой и будет строится новое изображение.
Таким образом у тебя получится перемещение объекта на экране.
Функции "Начать заново" (Нажатие клавиши "N" допустим) - приводят значения всех переменных к первоначальному состоянию, Функция "Выход"(Клавиша Esc) - завершает работу программы.