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

setFontprocedure setFont(fontFace, fontStyle, fontSize); 

Устанавливает шрифт, используемый для отображения строк.

'fontFace' может принимать следующие значения:

'fontStyle' может принимать следующие значения:

Стили можно комбинировать, используя логический оператор or. Например, чтобы создать толстый подчёркнутый шрифт, используйте (FONT_STYLE_BOLD or FONT_STYLE_UNDERLINE) в качестве значения для стиля шрифта.

Размер шрифта может быть определен с помощью следующих констант:

Некоторые устройства используют только один шрифт и вызов setFont не оказывает никакого влияния на отображение строк в подобных устройствах.

begin
setFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD or FONT_STYLE_UNDERLINE, FONT_SIZE_LARGE);
drawText('Hello world', 0, 0);
repaint;
delay(1000);
end.

См. также: setDefaultFont, setColor, repaint

setDefaultFont
procedure setDefaultFont;

Устанавливает текущим шрифтом шрифт, по умолчанию используемый в устройстве. Важно заметить, что некоторые устройства используют только один шрифт и вызов setDefaultFont не оказывает никакого влияния на отображение строк в подобных устройствах.

См. также: setFont

setColor
procedure setColor(red, green, blue:integer);

Устанавливает текущий цвет, которым в дальнейшем пользуются все процедуры рисования. Параметры 'red', 'green' и 'blue' могут принимать значения от 0 до 255. Например, чёрный цвет представляется как (0, 0, 0), ярко-красный - (255, 0, 0) и белый - (255, 255, 255).

begin
setColor(0, 0, 255); { устанавливаем ярко-голубой цвет }
drawText('Hello world', 0, 0);
repaint;
delay(1000);
end.

См. также: getColorRed, getColorGreen, getColorBlue

setClip
procedure setClip(int x, int y, int width, int height);

Устанавливает регион, на который в дальнейшем влияют процедуры рисования.

begin
// Рисуем эллипс.
setColor(0, 0, 0);
fillEllipse(0, 0, getWidth, getHeight);
repaint;
delay(2000);

// Рисуем эллипс, но перед этим вызываем setClip
setClip(10, 10, 15, 25);
fillEllipse(0, 0, getWidth, getHeight);
repaint;
delay(2000);
end.

repaint
procedure repaint;

Перемещает содержимое экранного буфера в памяти на дисплей. Все функции рисования (такие как drawLine, drawText, fillRect и др.) не рисуют непосредственно на дисплей устройства, а используют невидимый буфер, который копируется на видимый экран процедурой repaint. Перерисовка экрана - достаточно ёмкий по времени процесс, потому рекомендуется использовать эту процедуру настолько редко, насколько это возможно.

begin
drawText('Hello world', 0, 0);
repaint;
delay(1000);
end.

plot
procedure plot(x, y:integer);

Ставит точку текущего цвета по заданным координатам.

begin
setColor(255, 0, 0);
plot(5, 10);
repaint;
delay(1000);
end.

См. также: setColor, repaint

loadImage
function loadImage(resource: string): image;

Загружает изображение из ресурса и возвращает объект типа 'image'. Для доступа к файлу внутри JAR-архива, значение параметра 'resource' должно начинаться с символа "/". Если указанное значение некорректно, мидлет даст сбой.

Файлы добавляются как ресурсы к проекту MIDletPascal.

begin
drawImage(loadImage('/icon.png'), 0, 0);
repaint;
delay(1000); { подождать 1 секунду, прежде чем мидлет завершит работу }
end.

См. также: drawImage, getImageWidth, getImageHeight

isColorDisplay
function isColorDisplay:boolean;

Возвращает true в случае, если устройство имеет цветной дисплей. В противном случае, возвращает false.

См. также: getColorsNum

getWidth
function getWidth: integer;

Возвращает ширину графического экрана (в пикселях).

begin
drawEllipse(0, 0, getWidth, getHeight);
repaint;
delay(1000);
end.

См. также: getHeight

getStringWidth
function getStringWidth(text: string): integer;

Возвращает ширину (в пикселях) отображаемого текущим шрифтом текста 'text'.

var text: string;
width: integer;
begin
text  := 'Text to display';
width := getStringWidth(text);
drawText(text, (getWidth - width)/2, 0);
repaint;
delay(1000);
end.

См. также: getStringHeight, getWidth, getHeight, repaint