Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Вывод текста

 

Модуль 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; Просмотров: 437; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.009 сек.