NumberOfSides: Integer;
Свойство NumberOfSides определяет количество сторон многоугольника.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Reg : IWxRegulargon;
Begin
Reg := ws.Shapes.FindById("Shape 3") As IWxRegulargon;
Reg.NumberOfSides := 5;
End Sub UserProc;
После выполнения примера многоугольник будет преобразован в пятиугольник.
См. также: