logo
TurboProlog / Документация / TOM_2

Gettextsettings/5 Графика

Назначение Возвращает информацию о текущем текстовом шрифте

Обращение gettextsettings(Шрифт,Направл,Размер,Гориз,Верт)

Домены (integer,integer,integer,integer,integer)

Шаблоны описания (вых,вых,вых,вых,вых)

аргументов

Описание gettextsettings связывает переменные со значениями

текущего текстового шрифта, направления, размера и

выравнивания.

Константы, для описания параметров определены в

GRAPDECL.PRO.

gettextsettings возвращает общие параметры вывода

текста. Всегда используйте textheight и textwidth для

определения явных размеров текста на экране.

Ошибки Все шрифты можно хранить на диске, но тогда возможны

ошибки при загрузке шрифтов. Возможны ошибки со

следующими кодами:

6007 Файл со шрифтом не найден

6008 Не хватает памяти для загрузки выбранного шрифта

6010 Общая ошибка

6011 Ошибка графического ввода/вывода

6012 Неверный файл со шрифтом

6013 Неверный номер шрифта

Вы можете контролировать возникновение этих ошибок с

помощью предиката trap.

Смотри outtext,outtextxy,settextjustify,settextstyle,

textheight,textwidth

Пример

include "GRAPDECL.PRO"

goal

/* Инициализация гpафики c автоматическим

определением драйвера */

initgraph(detect, 0, GraphDriver,GraphMode, ""),

/* Запомнить текущие параметры */

getTextSettings(Font,Dir,Char,Horiz,Vert),

/* Установка левого верхнего угла,

готического шрифта, масштаб 5 */

setTextJustify(left_Text,top_Text),

setTextStyle(gothic_Font,horiz_Dir, 5),

outtext("Gothic Text"),

setTextJustify(Horiz,Vert),

setTextStyle(Font,Dir,Char),

readchar(_),

closegraph.