Вниз  MIDlet Pascal
- 10.01.2013 / 14:37
Maxxxl123
  Пользователь

Maxxxl123 
Сейчас: Offline
BegzoDchik,
  1. begin
  2. while(true) do begin
  3. fillrect(0,0,screenwidth,screenheight);
  4. drawimage("",a,50);
  5. a:=a+1;
  6. repaint();
  7. end;

- 10.01.2013 / 14:38
Maxxxl123
  Пользователь

Maxxxl123 
Сейчас: Offline
BegzoDchik, сойдет?
- 10.01.2013 / 14:41
BegzoDchik
  Пользователь

BegzoDchik 
Сейчас: Offline
ща заценю
- 10.01.2013 / 14:43
Maxxxl123
  Пользователь

Maxxxl123 
Сейчас: Offline
ток FillRect
DrawImage
- 10.01.2013 / 14:45
BegzoDchik
  Пользователь

BegzoDchik 
Сейчас: Offline
getwidth,getheight не надо?
- 10.01.2013 / 14:46
Maxxxl123
  Пользователь

Maxxxl123 
Сейчас: Offline
getwidth,getheight не надо? как хочеш, вместо них свои размері екрана подставь :)
- 10.01.2013 / 15:23
vl@volk
  Пользователь

vl@volk 
Сейчас: Offline
  1. program name;
  2. var
  3. x:integer;
  4. begin
  5. x:=0;
  6. while true do begin
  7. x:=x+2;
  8. setcolor(0,0,255);
  9. fillrect(x,5,50,50);
  10. delay(200);
  11. repaint;
  12. if x>200 then x:=0;
  13. if getkeyclicked=KE_KEY5 then break;
  14. end;
  15. end.
вот наподобе такого что-то попробуй
__________________
 знает толк
- 10.01.2013 / 16:14
gtasase
  Пользователь

gtasase 
Сейчас: Offline
как сделать пиксельный движок?
- 10.01.2013 / 16:20
Maxxxl123
  Пользователь

Maxxxl123 
Сейчас: Offline
gtasase, по подробнее что именно ты собрался делать
- 10.01.2013 / 16:35
vl@volk
  Пользователь

vl@volk 
Сейчас: Offline
Я там чуть в растановке ошибся. И как очистку экрана в мп делать?
__________________
 знает толк
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)