Программирование MidletPascal

Отображает текстовое окно (TextBox) на дисплее. Окно полностью занимает дисплей устройства и никакие другие элементы пользовательского интерфейса (исключая команды) не могут быть использованы в этот момент. 'constraints' может иметь следующие значения:

var
cont : command;
quote : string;
begin
showTextBox('Enter message, '', 200, TF_ANY);
cont := createCommand('Send', CM_SCREEN, 1);
addCommand(cont);

repeat
delay(100);
until getClickedCommand <> emptyCommand;

quote := getTextBoxString;

...
end.

Отображает меню на дисплее устройства. Никакие другие элементы (исключая команды) не могут в это время присутствовать на дисплее. 'menuType' может иметь следующие значения:

var
tetris, minesweeper, snake : integer;
play, clicked : command;
begin
showMenu('Select a game', CH_IMPLICIT);

tetris := menuAppendString('Tetris');
minesweeper := menuAppendString('Minesweeper');
snake := menuAppendString('Snake');

play := createCommand('Play', CM_SCREEN, 1);
addCommand(play);

repeat
delay(100);
clicked := getClickedCommand;
until clicked = play;

showCanvas; // Показываем графический экран и убираем меню с дисплея.

if menuGetSelectedIndex = tetris then playTetris;
if menuGetSelectedIndex = minesweeper then playMinesweeper;
if menuGetSelectedIndex = snake then playSnake;
...
end.

Отображает форму на дисплее устройства. Дисплей может отображать форму или графический экран. Форма может содержать текстовые подписи (labels), изображения, текстовые поля и другие элементы пользовательского интерфейса. Графический экран, напротив, не содержит элементы пользовательского интерфейса; это зона, на которой программа может рисовать. При запуске мидлета по умолчанию отображается графический экран.

var
label_id, textField_id: integer;
begin
label_id := formAddString('Hello world');
textField_id := formAddTextField('Enter your name', 'Mr.Smith', 20, TF_ANY);
showForm;
delay(2000);
end.

showCanvasprocedure showCanvas;

Отображает графический экран (canvas) на дисплее устройства. Дисплей может отображать форму или графический экран. Форма может содержать текстовые подписи (labels), изображения, текстовые поля и другие элементы пользовательского интерфейса. Графический экран, напротив, не содержит элементы пользовательского интерфейса; это зона, на которой программа может рисовать. При запуске мидлета по умолчанию отображается графический экран.

var
label_id, textField_id: integer;
begin
label_id := formAddString('Hello world');
textField_id := formAddTextField('Enter your name', 'Mr.Smith', 20, TF_ANY);
showForm;
delay(2000);
showCanvas;
drawText('Hello world', 0, 0);
repaint;
delay(2000);
end.

Отображает предупреждение на экране устройства. Во время отображения предупреждения ни один другой элемент (исключая команды) не может находиться на экране. Предупреждение может издавать звуковой сигнал во время отображения. Сигнал может быть следующих типов:

var
cm : command;
begin
showAlert('New message', 'You have just received a message from MrSmith', loadImage('/img1.png'),
ALERT_INFO);
playAlertSound;

cm := createCommand('Read', CM_OK, 1);
addCommand(cm);

repeat
delay(100);
until getClickedCommand <> emptyCommand;

showForm; // Убираем предупреждение с экрана
...
end.

setTickerprocedure setTicker(s:string);

Добавляет на форму элемент "бегущая строка".

begin
showForm;
setTicker('MIDlet created with MIDletPascal');
delay(5000);
end.

removeCommand
procedure removeCommand(cmd: command);

Убирает команду с экрана устройства.

playAlertSoundprocedure playAlertSound;

Проигрывает звук, ассоциированный с текущим предупреждением (Alert).

var
cm : command;
begin
showAlert('Message', 'New message arrived', loadImage('/img1.png'), ALERT_INFO);
playAlertSound;

cm := createCommand('OK', CM_OK, 1);
addCommand(cm);

repeat
delay(100);
until getClickedCommand <> emptyCommand;

showForm; // Убираем предупреждение с экрана.
...
end.

menuIsSelectedfunction menuIsSelected(index: integer): boolean;

Возвращает 'true', если выделена запись с указанным индексом.

var
tetris, minesweeper, snake : integer;
play, clicked : command;
begin
showMenu('Select a game', CH_IMPLICIT);

tetris := menuAppendStringImage('Tetris', loadImage('/tetris.png'));
minesweeper := menuAppendStringImage('Minesweeper', loadImage('/mine.png'));
snake := menuAppendStringImage('Snake', loadImage('/snake.png'));

play := createCommand('Play', CM_SCREEN, 1);
addCommand(play);

repeat
delay(100);
clicked := getClickedCommand;
until clicked = play;

showCanvas; // Показываем графический экран и убираем меню.

if menuIsSelected(tetris) then playTetris;
if menuIsSelected(minesweeper) then playMinesweeper;
if menuIsSelected(snake) then playSnake;
...
end.

menuGetSelectedIndexfunction menuGetSelectedIndex: integer;

Возвращает индекс выделенной записи меню. Если ни одна запись не выделена, возвращается -1.

var
tetris, minesweeper, snake : integer;
play, clicked : command;
begin
showMenu('Select a game', CH_IMPLICIT);

tetris := menuAppendStringImage('Tetris', loadImage('/tetris.png'));
minesweeper := menuAppendStringImage('Minesweeper', loadImage('/mine.png'));
snake := menuAppendStringImage('Snake', loadImage('/snake.png'));

play := createCommand('Play', CM_SCREEN, 1);
addCommand(play);

repeat
delay(100);
clicked := getClickedCommand;
until clicked = play;

showCanvas; // Показываем графический экран и убираем меню.

if menuGetSelectedIndex = tetris then playTetris;
if menuGetSelectedIndex = minesweeper then playMinesweeper;
if menuGetSelectedIndex = snake then playSnake;
...
end.