Функция

Function GetColor:Word

возвращает код текущего цвета, а функция

Function GetMaxColor:Word

возвращает максимально доступный код цвета, который можно использовать для обращения к функции SetColor.

Процедура

Procedure SetBkColor (Color:Word)

устанавливает цвет фона, а функция

Function GetBkColor:Word

возвращает значение, соответствующее текущему цвету фона.

Процедура

Procedure ClearDevice;

заполняет экран цветом фона, а графический указатель устанавливает в левой верхний угол экрана.

Линии и точки.

Процедура

Procedure PutPixel (X,Y: Integer): Word

Выводит точку с координатами X, y цветом Color.

Функция

Procedure GetPixel (X,Y: Integer): Word

возвращает значение, соответствующее цвету пиксела с координатами (X,Y).

Процедура

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

вычерчивает линию с координатами начала (X1,Y1) и конца (X2,Y2). Линия вычерчиваетcя текущим стилем (смотри далее) и текущим цветом

Процедура

Procedure LineTo(X,Y: Integer);

вычерчивает линию от текущего положения указателя до положения, заданного его новыми координатами (X,Y). Aналогичным образом,

Процедура

Procedure LineRel(dX,dY: Integer);

вычерчивает линию от текущего положения указателя до положения, заданного приращения его новыми координатами. В процедурах LineTo и LineRel линия вычерчивается текущим стилем и текущим цветом.

Процедура

Procedure SetLineStyle (Type, Pattern, Thick:Word);

устанавливает новый стиль вычерчивания линий. Тип линии Type может быть задан с помощью одной из следующих констант:

Const

Solidln = 0; {Сплошная линия}

Dottedln = 1; {Точечная линия}

Centerln = 2; {Штрих-пунктирная линия}

Dashedln = 3; {Пунктирная линия}

UserBittn = 4; {Узор линии определяется пользователем}

Параметр Pattern учитывается только для линий, вид которых определяется пользователем (т.е. Type=UserBitln).

Толщина линий Thick может быть задана одним из двух значений:

Const

NormWidth = 1; {Толщина в один пиксел}

ThickWidth = 3; {Толщина в три пиксел}

Примечание: Установленный процедурой SetLineStyle стиль линий используется также при построении прямоугольников, и других фигур.

Многоугольники.

Процедура

Procedure Rectаngle( X1,Y1,X2,Y2: Integer );

вычерчивает прямоугольник с координатами левого верхнего угла (X1,Y1) и правого нижнего угла (X2,Y2).Прямоугольник вычерчивается с использованием текущего цвета и текущего стиля линий.

Процедура

Procedure DrawPoly(N:Word;var Points);

вычерчивает произвольную ломанную линию, заданную координатами точек излома. Здесь:

N – количество точек излома, включая обе крайние точки,

Points – одномерный массив из элементов типа PointType, описанного в модуле Graph следующим образом:

Type

PointType = Record

x,y:Word;

end;

При вычерчивании используется текущий цвет и текущий стиль линии.

Дуги, окружности, эллипсы.

Процедура

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

вычерчивает окружность с центром в точке (X,Y) и радиусом R. Окружность выводится текущим цветом. Толщина линии устанавливается текущим стилем, вид линии всегда SolidLine (сплошная).

Процедура

Procedure Arc (X,Y: Integer; BegA, EndA, RX, RY:Word);

Черчит дугу окружности. Здесь X,Y – координаты центра; BegA, EndA – соответственно начальный и конечный углы дуги; R- радиус. Углы отсчитываются против часовой стрелкии указываются в градусах. Нулевой угол соответствует горизонтальному направлению вектора слева направо. На рис.2 изображены дуги с углами 0 и 90, а также 270 и 540 градусов.

0-90

270-540

Рис. 2.

Процедура

Procedure Ellipse (X,Y: Integer; BegA, EndA, RX, RY:Word);

вычерчивает эллипсную дугу. Здесь X,Y – координаты центра; BegA, EndA – соответственно начальный и конечный углы дуги; RX,RY – горизонтальный и вертикальный радиусы эллипса в пикселах. При вычерчивании дуги эллипса используются те же соглашения относительно линий, что и в процедуре Circle, и те же соглашения относительно углов, что и в процедуре Arc.

Заполнения.