forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   Передвижение картинки (http://forum.boolean.name/showthread.php?t=12729)

skagen 25.06.2010 12:13

Передвижение картинки
 
Всем привет.я только новичок в мобильном паскале.учу реадме,но там многого не сказано.например,как сделать так,чтобы выведенная на экран картинка по нажатию софт-клавиши передвигалась в определенную точку?начинаю так:
Program name;
var
I:Image;
begin
I:=LoadImage('/image.png');
DrawImage(I,0,0);
Repaint;
Delay(5000);
end.
это понятно.этой командой выводится на экран картинка.но а что делать дальше?помогите пожалуйста!

Igor 25.06.2010 13:03

Ответ: Проблема с загрузкой изображения
 
Пусть у картинки будут координаты х,у
drawimage(i,x,y);

При нажатии кнопок изменяешь эти координаты;
заливаешь экран белым цветом;
рисуешь изображение по координатам;
repaint;

P.S. всё это делаешь циклом

skagen 25.06.2010 13:50

Ответ: Передвижение картинки
 
все это работает,спс.а как сделать цикл?или просто вставлять код?

cherepets 25.06.2010 14:06

Ответ: Передвижение картинки
 
циклы 1в1 как в обычном паскале

skagen 25.06.2010 14:10

Ответ: Передвижение картинки
 
ну а я то сразу к мидлету приступил :-D поэтому и не знаю

Igor 25.06.2010 14:25

Ответ: Передвижение картинки
 
repeat
key:=getkeypressed
...
until key=ke_key0;


повторяется до тех пор, пока не нажмешь ноль

P.S. А вообще, почитай немного про обычный паскаль. Советую изучить массивы, записи и циклы, без них никак.
Ещё бы не мешало разобраться с простейшими алгоритмами сортировки и действиях с массивами.


Часовой пояс GMT +4, время: 19:06.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot