Функция TextCooX. Возвращает ближайшую текстовую горизонтальную координату по заданной графической координате. Заголовок:

Function TextCooX(X: Integer): Byte;

Если заданная графическая координата выходит за горизонтальные границы окна, функция возвращает ноль.

Функция TextCooY. Возвращает ближайшую текстовую вертикальную координату по заданной графической координате. Заголовок:

Function TextCooY(Y: Integer): Byte;

Если заданная графическая координата выходит за вертикальные границы окна, функция возвращает ноль.

Функция WhereX. Возвращает текущее положение текстового курсора по горизонтали. Заголовок:

Function WhereX: Byte;

Возвращаемая координата определяется относительно границ окна (или экрана, если окно не установлено).

Функция WhereY. Возвращает текущее положение текстового курсора по вертикали. Заголовок:

Function WhereY: B^e,

Возвращаемая координата определяется относительно границ окна (или экрана, если окно не установлено).

Процедура Window. Устанавливает текстовое окно. Заголовок:

Procedure Window(XI,Y1,X2,Y2: Byte);

Здесь XI, Yl — текстовые координаты левого верхнего, а Х2, Y2 -правого нижнего углов окна. Координаты всегда определяются относительно границ всего окна.

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

Функция ReqisterCHRFile. Регистрирует векторный шрифт и возвращает его идентификационный номер для последующего использования в процедуре OutString. Заголовок:

Function RegisterCHRFile(FileName: String): Integer;

Здесь FileName — имя файла формата CHR, содержащего регистрируемый векторный шрифт.

Особенности структуры СИЛ—файлов пордробно рассмотрены выше (см. п.24.2). Регистрация шрифта заключается в проверке заголовка файла и считывании в память таблицы смещений и таблицы ширин. При ус—