IWxStyle.Assign

Синтаксис

Assign(StyleFrom: IWxStyle);

Параметры

StyleFrom  - стиль, который необходимо унаследовать.

Описание

Метод Assign позволяет унаследовать все свойства другого стиля.

Пример

В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.

Sub UseProc;

Var

ws: IWxWorkspace;

Shape, Shape1 : IWxShape;

FormStyle: IWxStyle;

Begin

ws.BeginUpdate;

Shape := ws.Shapes.Item(0);

Shape1 := ws.Shapes.Item(1);

FormStyle := Shape.Style;

Shape1.Style.Assign(FormStyle);

ws.EndUpdate;

End Sub UseProc;

После выполнения примера объект Shape1 унаследует все оформление объекта Shape.

См. также:

IWxStyle