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