Процедура |
Формат |
Действие |
SetColor |
SetColor(a: word); |
Устанавливает цвет, которым будет
осуществляться рисование |
SetBkColor |
SetBkColor(a: word); |
Устанавливает цвет фона |
SetFillStyle |
SetFillStyle(a, b: word);
a -
стиль закраски,
b -
цвет |
Устанавливает стиль и цвет
закраски |
SetLineStyle |
SetLineStyle(a, b, c: word);
а - стиль линии, b- образец построения линии (может
устанавливаться пользователем), с-толщина линии |
Устанавливает стиль и толщину
линии |
SetTextStyle |
SetTextStyle(a, b, c: word); |
Устанавливает шрифт, стиль и
размер текста |
SetFillPattern |
SetFillPattern(Pattern:
FillpatternType; Color: word); Pattern -
маска |
Выбирает шаблон заполнения,
определенный пользователем |
ClearDivice |
ClearDivice; |
Очищает экран и устанавливает
текущий указатель в начало |
SetViewPort |
SetViewPort(x1, y1, x2, y2:
integer, Clip: boolean); |
Устанавливает текущее окно для
графического вывода |
ClearViewPort |
ClearViewPort |
Очищает окно |
PutPixel |
PutPixel(a, b, c: integer); |
Рисует точку цветом с в (x,y) |
Line |
Line(x1, y1, x2, y2: integer); |
Рисует линию от (x1, y1) к
(x2,y2) |
Rectangle |
Rectangle(x1, y1, x2, y2:
integer); |
Рисует прямоугольник с диагональю
от (x1, y1) к (x2, y2) |
Bar |
Bar(x1, y1, x2, y2: integer); |
Рисует закрашенный прямоугольник |
Bar3D |
Bar3D(x1, y1, x2, y2, d: integer;
a: boolean); |
Рисует трехмерную полосу (параллелепипед) |
Circle |
Circle(x, y, r: word); |
Рисует окружность радиуса r с
центром в точке (x, y) |
Arc |
Arc(x, y, a, b, R: integer);
a, b- начальный и конечный углы в градусах |
Рисует дугу из начального угла к
конечному, используя (x,y) как центр |
Ellipse |
Ellipse(x, y, a, b, Rx, Ry:
integer);
a, b - начальный и конечный углы в градусах |
Рисует эллиптическую дугу от
начального угла к конечному, используя (x, y)
как центр |
FillEllipse |
FillEllipse(x, y, Rx, Ry:
integer);
Rx, Ry - вертикальная и горизонтальная оси |
Рисует закрашенный эллипс |
MoveTo |
MoveTo(x, y: integer); |
Передвигает текущий указатель в
(x, y) |
MoveRel |
MoveRel(x, y: integer); |
Передвигает текущий указатель на
заданное расстояние от текущей позиции на x по
горизонтали и на y по вертикали |
OutText |
OutText(text: string); |
Выводит текст от текущего
указателя |
OutTextxy |
OutTextxy(x, y: integer; text:
string); |
Выводит текст из (x, y) |
Sector |
Sector(x, y, a, b, Rx, Ry:
integer);
a, b - начальный и конечный углы в градусах |
Рисует и заполняет сектор эллипса |