Иллюстрированный самоучитель по Delphi 7 для начинающих

Многоугольник. Сектор.

Метод Polygon вычерчивает многоугольник. В качестве параметра метод получает массив типа TPoint. Каждый элемент массива представляет собой запись, поля (х,у) которой содержат координаты одной вершины многоугольника.

Метод Polygon вычерчивает многоугольник, последовательно соединяя прямыми линиями точки, координаты которых находятся в массиве: первую со второй, вторую с третьей, третью с четвертой и т. д. Затем соединяются последняя и первая точки.

Цвет и стиль границы многоугольника определяются значениями свойства Реn, а цвет и стиль заливки области, ограниченной линией границы, – значениями свойства Brush, причем область закрашивается с использованием текущего цвета и стиля кисти.

Ниже приведена процедура, которая, используя метод polygon, вычерчивает треугольник:

procedure TForm1.Button2Click(Sender: TObject);
var
pol: array[1..3] of TPoint; // координаты точек треугольника
begin
pol[1].x: = 10;
polf1].y: = 50;
pol[2].x: = 40;
pol[2].y: = 10;
pol[3].х: = 70;
pol[3].у: = 50;
Form1.Canvas.Polygon(pol);
end;

Сектор

Метод pie вычерчивает сектор эллипса или круга. Инструкция вызова метода в общем виде выглядит следующим образом:

Объект.Canvas.Pie(x1,y1,x2,y2,х3,у3,х4,у4)

Где:

• x1, y1, х2, у2 – параметры, определяющие эллипс (окружность), частью которого является сектор;
• х3, у3, х4, у4 – параметры, определяющие координаты конечных точек прямых, являющихся границами сектора.

Начальные точки прямых совпадают с центром эллипса (окружности). Сектор вырезается против часовой стрелки от прямой, заданной точкой с координатами (х3, у3), к прямой, заданной точкой с координатами (х4, у4) (рис. 10.9).

Рис. 10.9. Значения параметров метода Pie определяют сектор как часть эллипса (окружности)