19.9.5. Опрос стиля и ориентации шрифтов

Полную информацию о текущем режиме вывода текста можно получить, используя процедуру

GetTextSettings(VAR Settings : TextSettingsType)

В параметре Settings она возвращает исчерпывающую информацию обо всем, что относится к выводу строк. Тип этого параметра предопределен в модуле Graph:

TYPE

 TextSettingsType = RECORD

Font : Word; {номер шрифта}

Direction : Word; {направление}

CharSize : Word; {размер шрифта}

Horiz : Word; {ориентация по X}

Yert : Word; {ориентация по Y}

END;

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