RoundingOffset: Double;
Свойство RoundingOffset определяет смещение скругления углов прямоугольника. Возможные значения берутся из диапазона [0,15].
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
RR : IWxRoundedRectangle;
Begin
RR := ws.Shapes.FindById("Shape 6") As IWxRoundedRectangle;
RR.RoundingOffset := 8;
End Sub UserProc;
После выполнения примера будет изменено скругление углов прямоугольника.
См. также: