Документация проекта [[https://visual.sfu-kras.ru|VISUAL / ONLINE OBERON]]

====== Модуль Forms ======

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

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);

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