vl@volk, как ив яве
setColor(r,g,b);
и заливаем весь екран

А так, спасиб сейчас сделаю и исходник цыкла дам

Вот хороший пример цикла, с рисование квадрата и его перемещением

Помогите с выходом, в помощи не нашел, знаю как цикл остановить, а выход кнопой как? Чтоб он не закрывался с помощью делай(5000) а ждал команды

vl@volk, if key=KE_KEY0 then halt;

vl@volk, как код выглядит не знаю, скажу теорию. Назначь какой-либо переменной функцию опроса клавиш, далее проверяй значение переменной (true - клавиша нажата - выход), при false цикл будет работать.

Код в QBasic:
Здесь цикл будет выполнятся в любом случае, несмотря на то, была ли нажата какая-либо из клавиш или нет. Нажатие же организует выход из цикла (GOTO к метке label).

А вот код, но немного из другой оперы
Программа ожидает нажатия 6, если нажать, то INKEY$=true, выход из цикла и программа выполняется дальше

Maxxxl123, второй код в MIDlet Pascal как будет выглядеть?

ВитаминКО,
drawstring("Нажмите <6>",1,1);
while getkeyclicked<>KE_KEY6 delay(20);

Maxxxl123, Кстате он сразу вылетит через 0,002с, надо цикл использовать я таким способом пробывал картинку двигать, даже не успеваю ничего нажать прога закрывается

ВитаминКО, Понял, вобщем надо цикл использовать