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