Вывод текста (надписей) в графическом режиме

В графическом режиме предоставляется значительно больше (по сравнению с текстовым режимом) возможностей для вывода текста. Можно выбрать шрифт, его размер, ориентацию символов, способ выравнивания текста и т.п. К сожалению, кириллица допустима не во всех стандартно поставляемых шрифтах.

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

1) SetTextStyle(Шрифт, Направление:Word; Размер:1..10);

- задает шрифт и размер букв.

Шрифт задается либо предопределенной константой, либо ее значением:

Направлениезадается следующим образом:

HorizDir = 0 – вывод текста слева направо (горизонтальная надпись),

VertDir = 1 – вывод текста снизу вверх (вертикальная надпись).

Размеропределяет коэффициент увеличения символа. Для шрифта DefaultFontразмер, равный 1,определяет исходную матрицу для представления символов (8х8 точек). Размер 2приведет к выводу на экран образа символа, созданного на матрице 8х8, в область размером 16х16 точек и т.д. При больших размерах символы шрифта DefaultFontсильно искажаются, а качество векторных шрифтов остается приемлемым.

Пример.SetTextStyle (1,0,1); Установлен шрифт TriplexFont с размером символов 8х8 точек и горизонтальным направлением вывода.

2) OutТext(строка); – процедура; осуществляет вывод строки от текущего положения курсора выбранным процедурой SetTextStyleшрифтом.

3) OutTextXY(X,Y,строка); – процедура; осуществляет вывод строки от точки с координатами (X,Y) шрифтом, заданным процедурой SetTextStyle.

Пример.SetTextStyle (1,0,1);

OutTextXY(GetmaxX Div 2, GetmaxY div 2, ’Graphic’);

В результате выполнения этих процедур будет выведено слово Graphic в середине экрана.

Для вывода чисел в графическом режиме (например, максимального значения координаты х – Xmax) необходимо преобразовать их в строку с помощью процедуры

Str(Число, Строка);

в которой входной параметр Числоявляется выражением целого или вещественного типа, а выходной параметр Строка– его строковым представлением. Например, следующий фрагмент программы обеспечивает вывод на экран, начиная от точки с координатами (80,50), значения Xmax.

Xmax := GetmaxX;

Str(Xmax,StrX);

OutTextXY(80,50,’Xmax=’+StrX);

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