Assign(StyleFrom: IWxStyle);
StyleFrom - the style to be inherited.
The Assign method is used to inherit all properties of another style.
Executing the example requires an existing ws object of the IWxWorkspace type.
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;
After executing the example the Shape1 object inherits all formatting of the Shape object.
See also: