АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Работа с текстом в графическом режиме

Читайте также:
  1. V. САМОСТОЯТЕЛЬНАЯ РАБОТА
  2. Window - работа с окнами.
  3. Анализ работы усилительного каскада в режиме покоя
  4. Аналитическая работа при выборе и обосновании стратегии развития предприятии
  5. Б) работа врачей поликлиники (амбулатории), диспансера, консультации
  6. Биполярные транзисторы с пониженным накоплением заряда в режиме насыщения
  7. В 72-х дневном цикле подвиг длится 8 суток, из которых 2 суток – голод, а 6 – очистительные процедуры и работа над собой. В 12-ти летнем цикле подвиг длится 1 год.
  8. В работах В. Джеймса
  9. В) профилактическая работа
  10. Вероятные неисправности МБВ в режиме горизонтирования ступеней.
  11. Вероятные неисправности МБВ в режиме укладки комплекта колен
  12. Виртуальная работа силы. Идеальные связи

 

 

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

 
 


OutText(S); - вывод строки S (типа string) в текущей позиции курсора.

 
 


OutTextXY(x,y,S); - вывод строки S в позиции с координатами (x, y).

 

Строку S можно определять явно в виде символов, заключенных в апострофы, например, OutText('Sample 1');, или как переменную (константу) типа string. Если требуется вывести значение переменной числового типа, то необходимо приме-нить процедуру ее преобразования в строковый тип. Например: Str(x:10:5,S); - определяем переменную "S" (типа string), полученную преобразованием переменной "x" (вещественного типа) по указанному формату.

Перечислять несколько переменных через запятые (подобно параметрам функций write и writeln) в графических функциях вывода текста не допускается. При выводе нескольких строковых переменных они соединяются знаком "+", например: OutText('x='+ S);

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

 
 


SetTextStyle(F, D, Z);

 

где F - номер шрифта, D - направление вывода надписи, Z - увеличение размера относительно базового варианта. Параметры F, D, Z - типа Word.

Шрифт в графическом режиме может создаваться двумя методами. В первом типе шрифта - матричном, берется стандартный шрифтовой набор BIOS ПК, где каждому символу соответствует матрица 8*8 пикселов. Матричный шрифт используется по умолчанию. Изменение размера матричного шрифта производится увеличением исходной матрицы в N-раз: 8N*8N пикселов. При увеличении размера явно проявляется "грубость" матричного шрифта.

Второй тип шрифтов - векторный (штриховой). При этом буквы рисуются как совокупность отрезков, соединяющих узловые точки букв. Качество в этом случае от размера не зависит. Однако вывод текста векторными шрифтами более медленный, чем матричным.

В стандартном наборе BGI определено:

 

F = 0 (DefaultFont) - 8х8 пикселов - матричный шрифт,

векторные шрифты:

F = 1 (TriplexFont) - триплекс (полужирный),

F = 2 (SmallFont) - уменьшенный,

F = 3 (SansSerifFont) - прямой (книжный),

F = 4 (GothicFont) - готический.

Направление шрифта: D= 0 - по горизонтали слева направо,

D= 1 - по вертикали снизу вверх, символы повернуты на 900.

Увеличение размера Z варьируется от 1 до 31 для матричного шрифта и от 1 до 10 для векторных шрифтов. Причем базовый размер соответствует для матричного шрифта Z= 1, для векторного шрифта Z= 4. При Z= 0 базовый размер устанавливается по умолчанию.

 

Для векторного шрифта, можно изменить его пропорции относительно базового размера процедурой

SetUserCharSize(XN, X, YN, Y);

 

При этом (XN/X) - множитель для изменения ширины символов, (YN/Y) - множитель для изменения высоты символов. Параметры XN, X, YN, Y - типа Word.

Текст можно выравнивать относительно позиции его вывода с помощью процедуры

(0,2) (1,2) (2,2)

SetTextJustify(H, V); * * *

(0,1)*_ЦЕНТРИРУЕМЫЙ ТЕКСТ*(2,1)

* * *

Выравнивание по горизонтали: (0,0) (1,0) (2,0)

H = 0 - текст справа от позиции вывода, В скобках указаны значения H, V.

H = 1 - центрирование текста,

H = 2 - текст слева от позиции вывода.

 

Выравнивание по вертикали:

V = 0 - текст выше позиции вывода,

V = 1 - центрирование текста,

V = 2 - текст ниже позиции вывода.

По умолчанию установлено H= 0, V= 2.

 

Длину строки S (в пикселах) можно определить функцией TextWidth(S);

Высота строки S определяется функцией TextHeight(S);

Если строка не помещается в области экрана, то в случае матричного шрифта эта строка не выводится, а для векторных шрифтов часть строки отсекается.

Цвет текста в графике устанавливается процедурой SetColor(N); где N-номер цвета.

{ -------- Пример программы, демонстрирующей различные шрифты: --------- }

uses Graph;

var Gd, Gm, k, X, Y, Size: integer; S: string;

Begin

Gd:= Detect; InitGraph(Gd, Gm, 'c:\tp7\bgi');

X:= 0; Y:= 0; { начальные координаты вывода текста }

for Size:= 1 to 10 do begin k:= 0; { перебор размеров шрифта }

SetTextStyle(k,0,Size); Str(Size,S); { пишем матричным шрифтом }

OutTextXY(X, Y, 'Size=' + S);

Y:= Y + TextHeight('S') + 1 { смещение по "Y" на высоту буквы "S" }

end;

Readln; ClearDevice;

SetTextJustify(1,2); { выравнивание по центру }

for k:= 1 to 4 do begin { пишем векторными шрифтами }

Y:= 0; SetColor(k+8);

for Size:=1 to 10 do begin { перебор размеров шрифта }

SetTextStyle(k, 0, Size); Str(Size, S);

OutTextXY(GetmaxX div 2, Y, 'Size='+S);

Y:= Y + TextHeight('S') + 1;

end;


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.005 сек.)