Итак, открываем Midlet Pascal, создаем новую прогу.
Для начала научимся выводить текст на экран телефона.
В обычном паскале для этого есть функция Write (WriteLn)
В MidletPascal( далее просто МР) для вывода текста на экран существует функция Drawtext('текст',x-координата расположения текста, y-координата)
Например, DrawText('Hello World',0,0) выведет текст "Hello World" в левый верхний угол.
Теперь попробуем сменить цвет текста. Для этого есть функция SetColor(Red,Green,Blue)
Red-это количество красного цвета в "смеси"
Green-это количество зеленого цвета в "смеси"
Blue-это количество синего цвета в "смеси"
Например, SetColor(255,0,0) задаст красный цвет.
После команды DrawText нужно писать процедуру Repaint
Дело в том, что при программировании в МР вы имеем как бы 2 экрана: виртуальный и реальный. Сейчас мы писали на виртуальном экране,а процедура Repaint выводит изображение( в данном случае текст) с виртуального на реальный экран.
Чтоже, давайте попробуем вывести красным цветом сообщение Hello World в левом верхнем углу.
Пишем команды:
SetColor(255,0,0);
DrawText('Hello World',0,0);
Repaint;
Нажмем F9 для компиляции и запуска проекта. Но мы видим, что эмулятор сразу же закрылся. Почему?
На самом деле текст выводится на экран, просто мы не успеваем заметить его, т.к. сразу после вывода текста на экран идет команда end.- завершение программы.
Чтоы программа не закрывалась так быстро, добавим паузу- команда Delay(задержка в милисекундах), одна секунда равна тысячи милисекунд.
Итак, полный листинг программы:
Код:
Program newProject;
Begin
setcolor(255,0,0);
DrawText('Hello World',0,0);
repaint;
delay(5000);
End.
Ну вот и все. Мы научились выводить текст на экран.
P.S. старайтесь использовать процедуру repaint как можно реже-она довольно долго выполняется на телефоне!
Вход
FAQ
Поиск
