Введение в модуль GraphABC

GraphABC

GraphABC - модуль для рисования в PascalABC.Net. В нем созданы специальные типы, отличные от стандартных. Например, тип Color - тип цвета.

Процедуры и функции для рисования примитивов

В GraphABC существует множество процедур и функций для рисования линий, прямоугольников, ломаных и текста. Но перед рисованием Вам следует уяснить то, что изначально все примитивы будут рисоваться черным цветом - изначальным цветом кисти.

Процедура или функция	Описание
procedure PutPixel(x, y: integer; c: color)	Заливает пиксель с координатами (x, y) цветом c.
procedure Line(x, y, x1, y1: integer)	Рисует линию от точки с координатами (x, y) до точки с координатами (x1, y1) текущим цветом кисти.
procedure Line(x, y, x1, y1: integer; c: color)	Рисует линию от точки с координатами (x, y) до точки с координатами (x1, y1) цветом c.
procedure FillCircle(x, y, r: integer)	Заполняет окружность с координатами центра (x, y) и радиусом r текущим цветом кисти.
procedure DrawCircle(x, y, r: integer)	Рисует контур окружности с координатами центра (x, y) и радиусом r текущим цветом кисти.
procedure FillEllipse(x, y, x1, y1: integer)	Заполняет эллипс, который ограничен прямоугольником с координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти.
procedure DrawEllipse(x, y, x1, y1: integer)	Рисует контур эллипса, который ограничен прямоугольником с координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти.
procedure FillRectangle(x, y, x1, y1: integer)	Заполняет прямоугольник, который задан координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти.
procedure DrawRectangle(x, y, x1, y1: integer)	Рисует контур прямоугольника, который задан координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти.
procedure FillRoundRect(x, y, x1, y1, w, h: integer)	Заполняет скругленный прямоугольник, который задан координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти. А w и h - ширина и высота эллипсов, которые отвечают за скругления краев прямоугольника.
procedure DrawRoundRect(x, y, x1, y1, w, h: integer)	Рисует контур скругленного прямоугольника, который задан координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти. А w и h - ширина и высота эллипсов, которые отвечают за скругления краев прямоугольника.
procedure Arc(x, y, r, c1, c2: integer)	Рисует дугу окружности с координатами центра (x, y) и радиусом r, ограниченную двумя лучами, угол поворота которых определен c1 и c2 против часовой стрелки.
procedure DrawPie(x, y, r, c1, c2: integer)	Рисует контур сектора окружности с координатами центра (x, y) и радиусом r, ограниченную двумя лучами, угол поворота которых определен c1 и c2 против часовой стрелки.
procedure FillPie(x, y, r, c1, c2: integer)	Заполняет сектор окружности с координатами центра (x, y) и радиусом r, ограниченную двумя лучами, угол поворота которых определен c1 и c2 против часовой стрелки.
procedure TextOut(x, y: integer; t: string)	Выводит текст t в прямоугольник, у которого верхняя левая точка имеет координаты (x, y).
procedure DrawTextCentered(x, y: integer; t: string)	Выводит отцентрированный в прямоугольнике (у которого верхняя левая точка имеет координаты (x, y)) текст t.
procedure FloodFill(x, y: integer; c: color)	Заполняет область одного цвета (цвета точки с координатами (x, y), начиная с нее).
procedure LineTo(x, y: integer)	Рисует прямую от текущей позиции кисти до точки с координатами (x, y) текущим цветом кисти.
procedure LineTo(x, y: integer; c: color)	Рисует прямую от текущей позиции кисти до точки с координатами (x, y) цветом c.
procedure MoveTo(x, y: integer)	Устанавливает позицию кисти в точку с координатами (x, y).
function GetPixel(x, y: integer): color	Возвращает цвет пикселя с координатами (x, y).