Вывод текста

Модуль GRAPH имеет 5 процедур и функций для вывода текста различными шрифтами, в горизонтальном или вертикальном направлении, с изменением раз­меров выводимых символов и т. д. С их помощью можно вывести любые тексты, в том числе на русском языке. Для использования русского шрифта из модуля GRAPH нужен либо в файле autoexec.bat путь к файлу загрузки русского шриф­та, например vgaga.exe, и его запуск во время загрузки системы, либо предва­рительный запуск этого файла из среды DOS.

Рассмотрим некоторые из процедур для вывода текста.

Процедура OutText выводит текст начиная с текущего положения указателя. Обращение к процедуре OutText: OutText (текст);

где текст - выражение типа String, определяющее выводимый текст.

Текст выводится в соответствии с установленным стилем. Например:

OutText(' Русский шрифт '};

Процедура OutTextXY выводит текст начиная с заданного места на экране. Обращение к процедуре OutTextXY: OutTextXY (X,Y,текст);

где X, Y — выражения типа Integer, определяющие координаты точки начала вывода в пикселях; текст — выражение типа String.

Процедура SetTextStyle устанавливает стиль вывода текста на графический экран. Обращение к процедуре:

SetTextStyle (шрифт, направление, размер);

где шрифт, направление и размер - выражения типа Word.

Для указания шрифта можно использовать следующие предварительно опре­деленные константы:

CONST DefaultFont = 0; {стандартный шрифт 8 x 8}

TriplexFont = 1; {шрифт типа триплекс}

SmallFont = 2; {уменьшенный шрифт}

SansSerifFont = 3; {прямой шрифт}

GothicFont = 4; {готический шрифт}

Для задания направления выдачи текста используют константы:

CONST HorizDir = 0; { слева направо, горизонтально }

VertDir =1; { снизу вверх, вертикально }

Для каждого шрифта можно изменять его размеры; параметр размера может быть от 1 до 10, а для стандартного шрифта — от 0 до 31. Примеры вывода тек­ста приведены в листингах 4.23, 4.24 и 4.25. В листинге 4.23 приведен пример программы для вывода текста русским шрифтом при работе в графическом ре­жиме. Для вывода русского шрифта можно использовать только шрифт 0, гори­зонтальное и вертикальное направление вывода и размеры шрифта от 0 до 31.

Вывод текста русским шрифтом во время работы в графическом режиме.

program RUSKOD;

Uses Graph, Crt;

var Driver, Regim, Error: integer;

begin

Driver:= Detect; InitGraph(Driver, Regim, 'D:\BP\BGI');

Error:= GraphResult; if Error <> grOk then

begin write (GraphErrorMsg (Error)); Exit

end;

SetTextStyle { 0, 0, 5); OutText С Русский шрифт');

SetTextStyle (0, 1, 2); { вертикальный вывод текста }

OutTextXY (200, 115, 'Для продолжения работы");

SetTextStyle (0, 0, 2); { - горизонтальный вывод текста }

OutTextXY (210, 95, 'нажмите клавишу Enter ');

Readln; CloseGraph { - завершение работы в графическом режиме }

end.

Процедура SetTextJustify предназначена для выравнивания текста по гори­зонтали и вертикали. Обращение к процедуре:

SetTextJustify (Horiz, Vert: Word);

где Horiz, Vert - параметры выравнивания текста по горизонтали и вертикали. Значениями параметров могут быть константы выравнивания:

Lef tText = 0 — влево — по горизонтали;

CenterText = 1 - по центру - по горизонтали;

RightText = 2 - вправо - по горизонтали;

BottomText = 3 - вниз - по вертикали;

TopText = 4 - вверх - по вертикали.

Дата добавления: 2014-01-06