MultX i DivX – чисельник і знаменник множника розміру по горизонталі;

MultY i DivY – чисельник і знаменник множника розміру по вертикалі.

Константа | Значення | Шрифт

DefaultFont | 0 | 88 пікселів

TriplexFont | 1 | потрійний

SmallFont | 2 | Малий

SansSerifFont | 3 | SansSerif

GothincFont | 4 | Готичний

Константа | Значення | Напрям

HorizDir | 0 | Зліва направо

VertDir | 1 | Знизу Вгору

Константа | Значення | Розміщення точки відносно блоку

По горизонталі

LeftText | 0 | Зліва

CenterText | 2 | По центру

RightText | 3 | Справа

По вертикалі

BottomText | 0 | Вниз

CenterText | 1 | По центру

TopText | 2 | Вгору

Розміщення тексту в текстовому блоці, який повністю містить текст відносно певної точки. Це можна зробити SetTextJustify (Horiz, Vert: word);

Horiz i Vert – константи, або їх значення, які вказують на взаємне розміщення текстового блоку і точки згідно таблиці (вище наведеної).

Програма

Program MyTextStyle;

uses Graph

var Gd, Gm: integer;

begin

Gd := Detect ;

InitGraph (Gd, Gm,’’),

SetTextStyle (DefaultFont, HorizDir, 4);

OutTextXY (50, 50, ’System Font’);

SetTextStyle (Sans Serif Font, HorizDir, 4);

OutTextXY (50, 200, ‘Sans Serif Font’);

Readln;

SetTextStyle (TriplexFont, HorizDir, 4);

OutTextXY (400, 100, ‘Horizontal’);

SetTextStyle (TriplexFont, VertDir, 4);

OutTextXY (450, 150, ‘Vertical’);

Readln;

SetTextStyle (SansSerif Font, HorizDir, UsesCharSize);

SetUserCharSize (1, 2, 1, 1);

OutTextXY (100,350, ‘Short’);

SetUserCharSize (2, 1, 1, 1);

OutTextXY (100, 400, ‘wide’);

Readln;

CloseGraph;

end.