Сборник заданий для практических занятий по информатике. Крупенников О.Г - 106 стр.

UptoLike

105
21. Процедура SETTEXTSTYLEустанавливает текущий шрифт,
стиль и размер текста.
Заголовок процедуры:
Procedure SETTEXTSTYLE (FONT, DIRECT, SIZE: WORD); ,
где FONT – код шрифта. Задается с помощью одной из следующих кон-
стант, например:
CONST
DEFAULTFONT = 0;{точечный шрифт}
SMALLFONT = 2;{уменьшенный шрифт}
SANSSERIFFONT = 3;{прямой шрифт}
GOTHICFONT = 4;{готический шрифт} .
DIRECT – код направления шрифта. Задается одной из двух констант:
CONST
HORIZDIR = 0;{слева направо}
VERTDIR = 1;{снизу вверх};
SIZE – код размера шрифта. Задается в диапазоне от 1 до 10. Для точечно-
го шрифтав диапазоне от 1 до 32. Минимальный размер шрифта, при
котором отчетливо различаются все его детали, равен 4 (для точечного – 1).
22. Процедура SETTEXTJUSTIFYзадает выравнивание выводи-
мого текста по отношению к текущему положению указателя или к задан-
ным координатам.
Заголовок процедуры:
PROCEDURE SETTEXTJUSTIFY (HORIZ, VERT: WORD); ,
где HORIZ,VERT – соответственно горизонтальное и вертикальное вы-
равнивание. Под выравниванием понимают возможность размещения тек-
ста левее или правее указанного места, выше, ниже или по центру.
Для задания выравнивания можно использовать следующие константы:
CONST
LEFTTEXT = 0;{указатель слева от текста}
CENTERTEXT = 1;{симметрично слева и справа, сверху и снизу}
RIGHTTEXT = 2;{указатель справа от текста}.