Метод 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;
Знаете ли Вы, что, когда некоторые исследователи, пытающиеся примирить релятивизм и эфирную физику, говорят, например, о том, что космос состоит на 70% из "физического вакуума", а на 30% - из вещества и поля, то они впадают в фундаментальное логическое противоречие. Это противоречие заключается в следующем.
Вещество и поле не есть что-то отдельное от эфира, также как и человеческое тело не есть что-то отдельное от атомов и молекул его составляющих. Оно и есть эти атомы и молекулы, собранные в определенном порядке. Также и вещество не есть что-то отдельное от элементарных частиц, а оно состоит из них как базовой материи. Также и элементарные частицы состоят из частиц эфира как базовой материи нижнего уровня. Таким образом, всё, что есть во вселенной - это есть эфир. Эфира 100%. Из него состоят элементарные частицы, а из них всё остальное. Подробнее читайте в FAQ по эфирной физике.
