Графічні процедури й функції

Перелік основних процедур i функцій бібліотеки Graph (табл. 5.1). Для зручності всі підпрограми згруповані за функціональним призначенням.

Таблиця 5.1. Графiчнi процедури й функції

Призначення	Формат	параметри
Керування курсором
Поточні координати курсору	function GetX: integer; function GetY: integer;	Відсутні
Максимальні координати курсору	function GetMaxX: integer; function GetMaxY: integer;	Відсутні
Зсув курсору	procedure MoveTo(x,y:integer);	х, у— координати точки
Графічні примітиви
Дугакола	procedure Arc(x,y :integer; StAngle, EndAngle, Radius: word);	х, у - координати центру кола, StAngle, EndAngle - початковий та кінцевий кути, Radius - радіус
Заштрихований прямокутник	procedure Bar(x1,y1,x2,y2 : integer);	x1,y1,x2,y2 – координати лівого верхнього та правого нижнього кутів
Коло	procedure Circle(x,y: integer; Radius: Word);	x,y – координати центра; Radius – радіус кола
Многокутник	procedure DrawPoly(NumPoints :word; var PolyPoints);	NumPoints – кількість кутів, PolyPoints-масив координат вершин
Еліпс	procedure Fillellipse(x,y : integer; XRadius, YRadius : word);	x,y – координати центра; XRadius, YRadius – радіуси по осях x та y
Вiдрiзок	procedure Line(x1,y1,x2,y2 : integer);	x1,y1,x2,y2 – координати двох кінців відрізка
Прямокутник	procedure Rectangle(x1,y1,x2,y2: integer);	x1,y1,x2,y2 – координати лівого верхнього та правого нижнього кутів
Точка	procedure PutPixel(x,y: integer ; Pixel : word);	x,y – координати точки, Pixel – колір точки
Керування кольором i стилями
Колір фона	function GetBkColor : word;	Відсутні
Колір ліній	function GetColor : word;	Відсутні
Заповнення фігури кольором	procedure FloodFill(x,y :integer; Color : TcolorRef);	x,y – координати точки в середині фігури; Color – колір, що обмежує фігуру.
Встановлення кольору фону	procedure SetBkColor(Color : TcolorRef);	Color – колір фону
Встановлення кольору ліній	procedure SetColor(Color : TcolorRef);	Color – колір контуру фігури
Встановлення стилю заповнення	procedure SetFillStyle(: word; Color : word);	Patten – тип заповнення, Color – колір заповнення
Обробка тексту
Встановлення стиля тексту	procedure SetTextStyle(Font, Direction: word; CharSize : word);	Font – шрифт, Direction – напрям тексту, CharSize – розмір літер
Висота тексту	function TextHeight(TextString : string):word;	TextString – рядок тексту
Ширина тексту	function TextWidth(TextString : string):word;	TextString – рядок тексту
Виведення тексту на екран	procedure OutText(TextString : string);	TextString – рядок тексту
Виведення тексту на екран у заданих координатах	procedure OutTextXY(x,y : integer; TextString : string);	x,y – координати зображення рядка, TextString - рядок тексту