Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Вывод текста в графическом режиме

В графическом режиме больше (по сравнению с текстовым режимом) возможностей для вывода текста. Можно указать шрифт, размер, ориентацию символов, способ выравнивания текста и т.п. (кириллица доступна не во всех стандартных шрифтах).
SetTextStyle(Шрифт,Направление:Word;Размер:1..10) - задает шрифт и размер букв
Шрифт задается либо предопределенной константой, либо ее значением:
DefaultFont 0 - растровый, матрица 8*8
TriplexFont 1 - векторный, с засечками
SmallFont 2 - векторный, мелкий
SansSerifFont 3 - векторный, без засечек
GothicFont 4 - векторный, готический
Направление: HorizDir = 0 – вывод текста слева направо (горизонтальная надпись), VertDir = 1 – вывод текста снизу вверх (вертикальная надпись).

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

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

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

Пример.
SetTextStyle (1,0,1);
OutTextXY(GetmaxX Div 2, GetmaxY div 2, ’Graphic’);
В результате выполнения этих процедур будет выведено слово Graphic в середине экрана.

Вывод чисел в графическом режиме.

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

Пример.
Xmax := GetmaxX;
Str(Xmax,StrX);
OutTextXY(80,50,’Xmax=’+StrX);
Фрагмент программы обеспечивает вывод на экран, начиная от точки с координатами (80,50), значения Xmax.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]