8.1.5. Виведення тексту в графічному режимі

Для виведення тексту використовуються дві процедури:

Procedure OutText(TextString: String);

виводить на екран послідовність символів, починаючи з поточної позиції. Поточний колір тексту задається процедурою SetColor. Параметри шрифту – процедурами SetTextStyle та SetTextJustify. Ширину та висоту рядка визначають за допомогою функцій TextWidth, TextHight.

Procedure OutTextXY(X, Y: Integer; TextString: String);

виводить на екран послідовність символів, починаючи з заданих координатою (X, Y). Параметри тексту задаються так само, як і для процедури OutText.

Текст виводиться стилем, що задається процедурою:

Procedure SetTextStyle(Font: Word: Direction: Word; CharSize: Word);

встановлюється поточний тип шрифта, напрямку тексту і розмір символів.

В модулі Graph визначені такі константи для параметру Font:

DefaultFont = 0 – матричний шрифт.

TriplexFont =1 – жирний шрифт.

SmallFont = 2 – тонкий шрифт.

SansSerifFont = 3 – прямий шрифт.

GothicFont = 4 – готичний шрифт.

Для всіх видів шрифтів, крім першого, є відповідні файли Trip.chr, Litt.chr, Sans.chr, Goth.chr. Матричний (або стандартний) шрифт входить до складу модуля Graph, тобто завжди доступний.

Виводити можна коди ASCII від 32 до 127. Для того, щоб використовувати символи з кодами від 128 до 255 треба мати додаткову програму їх підтримки.

Параметр Direct приймає одне із двох значень:

Horizdir = 0 – визначає напрямок виведення тексту зліва направо.

VertDir = 1 – визначає вертикальний напрям виведення тексту.

Останній параметр CharSize регулює розмір відображуваний символів. Це своєрідний коефіцієнт збільшення розміру символу по ширині та висоті. Якщо він рівний 1, символ має розміри 8х8 пікселів, якщо 2 – 16х16 пікселів і т.п. Найбільше значення коефіцієнту – 10.

Спосіб вирівнювання тексту при виведенні його з використанням процедур OutText та OutTextXY задається процедурою:

Procedure SetTextJustify(Horiz, Vert: Word);

Тут Horiz, Vert – параметри вирівнювання по горизонталі і вертикалі, що можуть приймати значення:

LeftText = 0 – ліве вирівнювання.

CenterText = 1 – вирівнювання по центру.

RightText = 2 – праве вирівнювання.

BottomText =3 – нижнє вирівнювання.

TopText = 4 – верхнє вирівнювання.

8.1. 6. Процедури для рисування фігур

Для рисування фігур в модулі Graph використовуються такі процедури:

Procedure PutPixel(X, Y: Integer; Pixel: Word);

Рисує на екрані точку p з координатами (X, Y) кольором Pixel.

Procedure Line(X1, Y1, X2, Y2: Integer);

Рисує на екрані відрізок прямої від точки (X1, Y1) до точки (X2, Y2).

Procedure Rectangle(X1, Y1, X2, Y2: Integer);

Рисує на екрані прямокутник с верхнім лівим кутом в точці (X1, Y1) і нижнім правим кутом в точці (X2, Y2).

Procedure Bar(X1, Y1, X2, Y2: Integer);

Рисує на екрані залитий прямокутник з верхнім лівим кутом в точці (X1, Y1) і нижнім правим кутом в точці (X2, Y2). Стиль і колір заливки задаються процедурою SetFillStyle.

Procedure Bar3D(X1, Y1, X2, Y2: Integer; Depth: Word; Top: Boolean);

Рисує на екрані паралелепіпед с залитою передньою гранню. Глибина фігуры – Depth. Якщо Top рівне TopOn, то паралелепіпед рисується з верхньою гранню, якщо TopOff – то без верхньої грані. Стиль і колір заливки передньої грані зада-ються процедурою SetFillStyle.

Procedure Circle(X, Y: Integer; Radius: Word);

Рисує на екрані коло з центром в точці (X, Y) радіусом Radius.

Procedure Ellipse(X, Y: Integer; StAngle, EndAngle: Word; XRadius, YRadius: Word);

Рисує на екрані еліптичну дугу з центром в точце (X, Y), радіусами XRadius, YRadius. StAngle, EndAngle – початкові і кінцеві кути.

Procedure Arc(X, Y: Integer; StAngle, EndAngle: Word; Radius: Word);

Рисує на екрані дугу кола з центром в точце (X,Y), радіусом Radius. StAngle, EndAngle – початковий і кінцевий кути.

Procedure FillEllipse(X, Y: Integer; XRadius,YRadius: Word);

Рисує на екране залитий еліпс з центром в точці (X, Y), радіусами XRadius, YRadius. Стиль і колір заливки задаються процедурой SetFillStyle.

Procedure Sector(X, Y: Integer; StAngle, EndAngle: Word; XRadius, YRadius: Word);

Рисує на екрані замальований сектор еліпса з центром в точці (X, Y), радіусами XRadius, YRadius. StAngle, EndAngle – початковий і кінцевий кути. Стиль і колір заливки задаються процедурою SetFillStyle.

Procedure PieSlice(X, Y: Integer; StAngle, EndAngle: Word; Radius: Word);

Рисує на екрані замальований сектор круга з центром в точці (X, Y), радіусом Radius. StAngle, EndAngle – початковий і кінцевий кути. Стиль і колір заливки задаються процедурою SetFillStyle.