47673 (Модуль Graph в программе Turbo Pascal), страница 4
Описание файла
Документ из архива "Модуль Graph в программе Turbo Pascal", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "47673"
Текст 4 страницы из документа "47673"
Размер каждого символа устанавливается параметром CharSize, диапазон изменения которого составляет от 1 до 10. Стандартное значение CharSize для матричного шрифта 8x8 равно единице, а для штриховых шрифтов - четырем.
При каждом вызове процедурой SetTextStyle какого-либо шрифта он читается с диска и загружается в память.
Чтобы определить результат чтения файла шрифта с диска и загрузки его в память, можно проверить значение функции CraphResult. Перечень значений, возвращаемых ею в этом случае, приведен в таблице.
GraphResult | Смысл значения |
0 | Успешное выполнение операции |
-8 | Файл CHR не найден |
-9 | Не хватает памяти для загрузки выбранногошрифта |
-11 | Ошибка графики |
-12 | Ошибка ввода-вывода графики |
-13 | Неправильное содержимое файла шрифта |
-14 | Неправильный номер шрифта |
{Демонстрация шрифтов}
Program SetStDem;
Uses Graph;
const
text : array[1..4] of string[14]=
('TripLexFont','SmallFont','SansSerifFont','GothicFont');
s4=', size 4';
s5=' and 5';
Var
d,r,e,i:integer;
Begin
d:=Detect;
InitGraph(d,r,'');
e:=GraphResult;
if e<>grOk then
writeln(GraphErrorMsg(e))
else
begin
SetTextStyle(DefaultFont,HorizDir,1);
OutText('DefaultFont, size 1');
SetTextStyle(0,0,2);
OutText(' and 2');
for i:=1 to 4 do begin
SetTextStyle(i,0,4);
Moveto(10,i*40);
OutText(text[i]+s4);
SetTextStyle(i,0,5);
Outtext(s5);
end;
for i:=1 to 4 do begin
SetTextStyle(i,1,4);
Moveto(GetMaxX div 2+i*40-20,0);
OutText(text[i]);
end;
readln;
CloseGraph;
end
End.
Непосредственный вывод строк
Для вывода текста есть две процедуры. Первая —OutText (TextString: String) выводит на графический экран строку TextString, ориентированную относительно позиции текущего указателя, а вторая OutTextXY (X, Y: Integer; TextString: String} выводит строку, ориентированную относительно координат (X,Y). Шрифт предварительно может быть установлен вызовом SetTextStyle (по умолчанию принимается DefaultFont). Рассмотрим ориентировку строки относительно стартовой точки. Существует несколько вариантов ориентировки. Они задаются процедурой SetTextJustify (Horizontal, Vertical: Word), параметры которой могут принимать одно из трех объявленных в модуле Graph значений:
CONST
{ — Для горизонтального ориентирования (Horizontal) —} | ||
LeftText | =0; | {координата X задает левый край строки} |
Center-Text | = 1; | {координата X задает середину строки} |
RightText | = 2; | {координата X задает правый край строки} |
{ — Для вертикального ориентирования (Vertical): —} | ||
BottomText | = 0; | {координата Y задает нижний край строки} |
CenterText | = 1; | {координата Y задает середину строки} |
TopText | = 2; | {координата Y задает верхний край} |
Эта процедура позволяет ориентировать выводимую строку относительно стартовой координаты по установленной схеме. По умолчанию параметры ориентировки соответствуют LeftText, TopText.