Азы MIDletPascal. Урок 2.

Всем привет,продолжаем углубляться в мир паскаля,так сказать

-=Основные команды и их использование. Часть1.=-
Вообще,список команд вы можете скачать в моих файлах,в папке "Всё для MP",я же вам буду разъяснять на практике,как с ними работать.

Рассмотрим одно из самых простых по моему мнению-рисование.

Когда вы создаете новый проект,то в рабочей зоне высвечивается следующий код:

program NewProject;
begin
drawText('Hello world!', 0, 0);
repaint;
delay(2000);
end.

Объясняю:

program NewProject;/////Название вашей программы.

begin //////начало главной программы.
drawText('Hello world!', 0, 0); /////Пишем фразу "Hello World" в координатах (x=0;y=0),то бишь в левом верхнем углу.
repaint;//////с помощью этой команды рисуем всё,что было задано до неё.
delay(2000); //////устанавливаем задержку прорисовки в 2 секунды,после чего произойдет выход из программы.
end.////заканчиваем программу.

Давайте усложним эту программу,сделав вывод текста красным цветом на чёрном фоне и чтобы программа никогда не отключилась.

Ниже я предоставил полный листинг полученной программы(новые пункты помечены красным):

Program Text;
begin
repeat//////начинаем цикл
setcolor(0,0,0);//////устанавливаем чёрный цвет (таблица rgb в помощь)
fillrect(0,0,getwidth,getheight);////////заливаем весь экран установленным цветом (команда getwidth определяет ширину экрана,а getheight-высоту экрана в пикселях)
setcolor(250,0,0);////устанавливаем красный цвет
drawText('Hello world!', 0, 0);
repaint;
delay(20);
until false;//////устанавливаем условие,с помощью которого заканчивается цикл (в данном случае-false,т.е. цикл никогда не закончится)
end.

В самом начале статьи выложил скриншот того,что должно получится.

На этом всё,комментируйте и экспериментируйте с паскалем,пока