Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Рисование осуществляется текущим пером (линии), текущей кистью (заливка замкнутых областей) и текущим шрифтом (вывод строк).

— procedure SetPixel(x,y: integer; c: Color);
Закрашивает пиксел с координатами (x,y) цветом c

— procedure PutPixel(x,y: integer; c: Color);
Закрашивает пиксел с координатами (x,y) цветом c

— function GetPixel(x,y: integer): Color;
Возвращает цвет пиксела с координатами (x,y)

— procedure MoveTo(x,y: integer);
Устанавливает текущую позицию рисования в точку (x,y)

— procedure LineTo(x,y: integer);
Рисует отрезок от текущей позиции до точки (x,y). Текущая позиция переносится в точку (x,y)

— procedure LineTo(x,y: integer; c: Color);
Рисует отрезок от текущей позиции до точки (x,y) цветом c. Текущая позиция переносится в точку (x,y)

— procedure Line(x1,y1,x2,y2: integer);
Рисует отрезок от точки (x1,y1) до точки (x2,y2)

— procedure Line(x1,y1,x2,y2: integer; c: Color);
Рисует отрезок от точки (x1,y1) до точки (x2,y2) цветом c

— procedure FillCircle(x,y,r: integer);
Заполняет внутренность окружности с центром (x,y) и радиусом r

— procedure DrawCircle(x,y,r: integer);
Рисует окружность с центром (x,y) и радиусом r

— procedure FillEllipse(x1,y1,x2,y2: integer);
Заполняет внутренность эллипса, ограниченного прямоугольником, заданным координатами противоположных вершин (x1,y1) и (x2,y2)

— procedure DrawEllipse(x1,y1,x2,y2: integer);
Рисует границу эллипса, ограниченного прямоугольником, заданным координатами противоположных вершин (x1,y1) и (x2,y2)

— procedure FillRectangle(x1,y1,x2,y2: integer);
Заполняет внутренность прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)

— procedure FillRect(x1,y1,x2,y2: integer);
Заполняет внутренность прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)

— procedure DrawRectangle(x1,y1,x2,y2: integer);
Рисует границу прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)

— procedure FillRoundRect(x1,y1,x2,y2,w,h: integer);
Заполняет внутренность прямоугольника со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

— procedure DrawRoundRect(x1,y1,x2,y2,w,h: integer);
Рисует границу прямоугольника со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

— 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 FillPie(x,y,r,a1,a2: integer);
Заполняет внутренность сектора окружности, ограниченного дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

— procedure DrawPie(x,y,r,a1,a2: integer);
Рисует сектор окружности, ограниченный дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

— procedure Pie(x,y,r,a1,a2: integer);
Рисует заполненный сектор окружности, ограниченный дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

— procedure DrawPolygon(points: array of Point);
Рисует замкнутую ломаную по точкам, координаты которых заданы в массиве points

— procedure FillPolygon(points: array of Point);
Заполняет многоугольник, координаты вершин которого заданы в массиве points

— procedure Polygon(points: array of Point);
Рисует заполненный многоугольник, координаты вершин которого заданы в массиве points

— procedure Polyline(points: array of Point);
Рисует ломаную по точкам, координаты которых заданы в массиве points

— procedure TextOut(x,y: integer; s: string);
Выводит строку s в прямоугольник к координатами левого верхнего угла (x,y)

— procedure FloodFill(x,y: integer; c: Color);
Заливает область одного цвета цветом c, начиная с точки (x,y).

— procedure Curve(points: array of Point);
Рисует кривую по точкам, координаты которых заданы в массиве points

— procedure DrawClosedCurve(points: array of Point);
Рисует замкнутую кривую по точкам, координаты которых заданы в массиве points