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

Putpixel(getmaxx div 2,getmaxy div 2,red)

Прямоугольник: Rectangle(x1,y1,x2,y2:integer);

Закрашенный прямоугольник:

Bar(x1,y1,x2,y2:integer);

Цвет и тип закраски устанавливается процедурой:

SetFillStyle(Pattern:word; Color:word);

Pattern – маска:

0 – цветом фона;

1 – сплошное заполнение текущим цветом;

2 – пунктир;

3 - //

8 – крест накрест;

Окружность: Circle (x,y,r:word);

Для создания псевдо объемных фигур используются дуги:

Arc(x, y:integer; StAngle, EndAngle,R: word);

StAngle, EndAngle – нач. и кон. угол в градусах.

Закрашенный эллипс:

Ellipse(x, y:integer; StAngle, EndAngle,XR,YR: word);

Построение отрезка прямой:

Процедура Line(x1,y1,x2,y2:integer);

Из отрезков строят графики. Можно управлять цветом и стилем линий.

Процедура SetLineStyle(Lstyle,Pattern,Thickness: word); определяет тип линии и ее толщину.

Lstyle:

SolidLn=0 – непрерывная линия

DottedLn=1 – линия из точек

CetnterLn=2 – линия из тире и точек

DashedLn=3 – штриховая линия

UserBitLn=4 – стиль, устанавливаемый пользователем

Если используются стандартные стили, то Patterт = 0.

Patterт=4, если пользователь хочет активизировать собственный стиль.

Thickness:

Normwidth = 1 – нормальная толщина 1 пиксел;

Thickwidth =3 -; жирная линия 3 пиксела;

В графическом режиме процедура write не работает. Вывод осуществляется при помощи 2 – х процедур:

OutText(S:string); - выводит текст начиная с текущего положения курсора.

OutTextXY(X, Y:integer; S:string); - выводит текст с позиции X, Y.

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

По умолчанию текст выводится растровым шрифтом 8х8 DefaultFont размером 1 пункт. В TP есть файлы штриховых шрифтов с расширением.chr

При увеличении растровых шрифтов качество изображения ухудшается, при штриховых нет.

Для использования штриховых шрифтов их надо перекопировать к себе в папку(туда, где находятся графические драйверы.bgi).

Установка шрифта:

SetTextStyle(Font, Dir, CharSize:word);

Font – шрифт

4 – готический; 1 – штриховой; 0 – 8х8(Default Font)

Direction – направление вывода(0 – гориз. 1 – вертикальное снизу вверх)

Charsize – размер символов. Устанавливается: 1 – символ строится в матрице 8х8; 2 – 16х16 до десятикратного увеличения.

Для вывода числовых значений в Graph нет специальных процедур. Можно воспользоваться процедурой Str, которая преобразовывает числовое значение в строку.

Str(<переменная>,<строка>)

X:=1.2

Str(x:3:1,sx)

Outtextxy(200,50,’x=’+sx)

Выравнивание текста.

SetTextJustify(Horiz,Vert:word)

Параметры горизонтального выравнивания:

0-LeftText – смещение вправо относительно указанных координат по левому краю текста.

Дата добавления: 2014-01-07