16.4.9. Процедура DrawPoly
procedure DrawPoly(NumPoints: Word; var PolyPoints);
Строит контур многоугольника линией с заданными параметрами и цветом. Текущий цвет задается процедурой SetColor, текущие параметры линии - процедурой SetLineStyle, а режим построения линии - процедурой SetWriteMode.
NumPoints - число вершин многоугольника;
PolyPoints - переменная без типа, содержащая NumPoint+1 пар координат вершин многоугольника (координаты должны быть целого типа, перечисляться в той же последовательности, как они идут по контуру, причем первая вершина должна быть повторена и в конце перечисления).
Применяется только в графическом режиме.
|