Метод Polygon вычерчивает
многоугольник. В качестве параметра метод получает массив типа TPoint. Каждый
элемент массива представляет собой запись, поля (х,у) которой содержат координаты
одной вершины многоугольника. Метод Polygon вычерчивает многоугольник, последовательно
соединяя прямыми линиями точки, координаты которых находятся в массиве: первую
со второй, вторую с третьей, третью с четвертой и т. д. Затем соединяются последняя
и первая точки.
Цвет и стиль границы
многоугольника определяются значениями свойства Реп, а цвет и стиль заливки
области, ограниченной линией границы, — значениями свойства 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;
Знаете ли Вы, что в 1974 - 1980 годах профессор Стефан Маринов из г. Грац, Австрия, проделал серию экспериментов, в которых показал, что Земля движется по отношению к некоторой космической системе отсчета со скоростью 360±30 км/с, которая явно имеет какой-то абсолютный статус. Естественно, ему не давали нигде выступать и он вынужден был начать выпуск своего научного журнала "Deutsche Physik", где объяснял открытое им явление. Подробнее читайте в FAQ по эфирной физике.
