Создание элементов управления.

TYPE

Proc = PROCEDURE;

Тип процедуры для обратного вызова при нажатии кнопки или изменении значения слайдера.

ProcFStr = PROCEDURE(a: ARRAY OF CHAR);

Тип процедуры для обратного вызова при измерении значения поля.

PROCEDURE SetFontSize (size: INTEGER);

Устанавливает размер шрифтов для рисование элементов управления.

PROCEDURE NewButton (x, y, w, h: INTEGER; title: ARRAY OF CHAR; proc: Proc): Button;

Создаёт новую кнопку.

PROCEDURE NewField (x, y, w, h: INTEGER; callback: ProcFStr): Field;

Создаёт поле ввода.

PROCEDURE NewFieldInt (x, y, w, h: INTEGER; callback: ProcFStr): FieldInt;

Создаёт поле для целых.

PROCEDURE NewFieldReal (x, y, w, h: INTEGER; callback: ProcFStr): FieldReal;

Создаёт поле для действительных.

PROCEDURE NewSlider (x, y, w, h: INTEGER; title: ARRAY OF CHAR; min, max, step: REAL; proc: Proc): Slider;

Создаёт слайдер.

PROCEDURE SetStr (c: Control; str: ARRAY OF CHAR);

Устанавливает значение в элементе управления.

PROCEDURE SetReal (c: Control; value: REAL);

Устанавливает действительное значение в элементе управления.

PROCEDURE SetInt (c: Control; value: INTEGER);

Устанавливает целое значение в элементе управления.