[Frank]

Сообщение от ЯМАКc

дайте пжлста готовый код...

program MovePicture;	// Программа "Двигаем картинку"
var x,y,key:integer; // координаты картинки и код нажатой клавиши
		img: image;				// сама картинка
begin									// начинаем
	img:=loadImage('/icon.png');	// грузим картинку
	setColor(255,255,255);				// установим белый цвет, чтобы стирать старую картинку перед передвижением
	drawImage(img,x,y);				// нарисуем картинку в начале координат
	repaint;									// обновим экран
	repeat										// главный цикл
		key:=getKeyPressed;			// берем код нажатой клавиши
		if key<>0 then begin		// если нажали какю-нибудь кнопку
			fillRect(x,y,getImageWidth(img),getImageHeight(img));	// стираем старую картинку (заливаем белым квадратом)
			if keyToAction(key)=GA_UP    then y:=y-1;	// если нажали вверх убавляем координату игрик...
			if keyToAction(key)=GA_DOWN  then y:=y+1;	// анологично..
			if keyToAction(key)=GA_LEFT  then x:=x-1;	// то же самое для икс
			if keyToAction(key)=GA_RIGHT then x:=x+1;	// ---////----
			drawImage(img,x,y);					// рисуем картинку в новых координатах
			repaint;										// обновляем экран
		end;												// если кнопок нажато небыло, то соответственно ничего и не происходит
	until keyToAction(key)=GA_GAMEA 	// главный цикл будет работать, пока не нажем единицу...
end.																// а когда мы вышли из главного цикла... то заканчиваем программу...