Графические примитивы
procedure
SetPixel(x,y,color: integer);
Закрашивает один пиксел с координатами (x,y) цветом color.
function
GetPixel(x,y): integer;
Возвращает текущее значение цвета для пиксела с координатами (x,y).
procedure MoveTo(x,y: integer);
Передвигает невидимое перо к точке с координатами (x,y); эта функция
работает в паре с функцией LineTo(x,y).
procedure LineTo(x,y: integer);
Рисует отрезок от текущего положения пера до точки (x,y); координаты пера
при этом также становятся равными (x,y).
procedure Line(x1,y1,x2,y2: integer);
Рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).
procedure Circle(x,y,r: integer);
Рисует окружность с центром в точке (x,y) и радиусом r.
procedure Ellipse(x1,y1,x2,y2:
integer);
Рисует эллипс, заданный своим описанным прямоугольником с координатами
противоположных вершин (x1,y1) и (x2,y2).
procedure Rectangle(x1,y1,x2,y2:
integer);
Рисует прямоугольник, заданный координатами противоположных вершин (x1,y1)
и (x2,y2).
procedure RoundRect(x1,y1,x2,y2,w,h:
integer);
Рисует прямоугольник со скругленными краями; (x1,y1) и (x2,y2) задают пару
противоположных вершин, а w и h – ширину и высоту эллипса, используемого для
скругления краев.
procedure Arc(x,y,r,a1,a2: integer);
Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной
между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные,
задаются в градусах и отсчитываются против часовой стрелки).
procedure Pie(x,y,r,a1,a2: integer);
Рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот
же смысл, что и в процедуре Arc).
procedure Chord(x,y,r,a1,a2: integer);
Рисует фигуру, ограниченную дугой окружности и отрезком, соединяющим ее
концы (параметры процедуры имеют тот же смысл, что и в процедуре Arc).
procedure TextOut(x,y: integer; s: string);
Выводит строку s в позицию (x,y) (точка (x,y) задает верхний левый угол
прямоугольника, который будет содержать текст из строки s).
procedure FloodFill(x,y,color:
integer);
Заливает область одного цвета цветом color, начиная с точки (x,y).
procedure FillRect(x1,y1,x2,y2:
integer);
Заливает прямоугольник, заданный координатами противоположных вершин
(x1,y1) и (x2,y2), цветом текущей кисти.
procedure Polygon(var a; n: integer);
Строит ломаную по n точкам, координаты которых заданы в массиве a элементов
типа Point.
procedure Polyline(var a; n: integer);
Строит замкнутую ломаную по n точкам, координаты которых заданы в массиве a
элементов типа Point.
|