Процедура SetTextGustify

Задает выравнивание выводимого по отношению к текущему положению указателя или к заданным координатам.

Заголовок:

SetTextGustify (Horiz, Vert: Word)

Здесь, Horiz –горизонтальное, Vert –вертикальное выравнивание.

Выравнивание определяет, как будет размещаться текст: левее или правее указанного места, выше, ниже или по центру. Здесь можно использовать следующие константы:

const

LeftText= 0; {указатель слева от текста}

CenterText= 1; {симметрично слева и справа, сверху и снизу}

RightText= 2; {указатель справа от текста}

BottomText= 0; {указатель снизу от текста}

TopText= 2; {указатель сверху от текста}

Следующая программа иллюстрирует различные способы выравнивания относительно центра графического экрана.

Program DemoViravniv;

Uses Graph;

Var

GrDriver, GrMode: integer;

Begin

GrDriver:= Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp|BGI');

OutTextXY(150,10,'демонстрация выравнивания шрифтов');

line (0,250,500,250);

Line (250,50,250,450);

SetTextStyle (1,0,1);

SetTextJustify (0,0);

OutTextXY(250,250,'LeftText,BottomText ');

SetTextJustify (2,0);

OutTextXY(250,250,'RightText,BottomText');

SetTextJustify (0,1);

OutTextXY(250,250,'LeftText,TopText');

SetTextJustify (2,1);

OutTextXY(250,250,'RightText,TopText');

Readln;

ClearDevice;

line (0,250,500,250);

Line (250,50,250,450);

SetTextJustify (1,0);

OutTextXY(250,250,'CenterText,BottomText');

Readln;

ClearDevice;

line (0,250,500,250);

Line (250,50,250,450);

SetTextJustify (1,1);

OutTextXY(250,250,'CenterText,TopText');

Readln;

End.