IWxWorkspace.DeglueShapes

Fore Syntax

DeglueShapes(Shape1: IWxShape; Shape2: IWxShape);

Fore.NET Syntax

Prognoz.Platform.Interop.Andy.DeglueShapes(Shape1: Prognoz.Platform.Interop.IWxShape; Shape2: Prognoz.Platform.Interop.IWxShape);

Parameters

Shape1. Shape.

Shape2. Shape.

Description

The DeglueShapes method separates two shapes.

Fore Example

Executing the example requires an existing ws object of the IWxWorkspace type.

Sub UserProc;

Var

ws: IWxWorkspace;

Shapes : IWxShapes;

Begin

Shapes := ws.Shapes;

ws.DeglueShapes(Shapes.Item(0), Shapes.Item(1));

End Sub UserProc;

After executing the example shapes are separated.

Fore.NET Example

The requirements and result match with that in the Fore example.

Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Workspace;

Sub UserProc;
Var
    ws: WxWorkspace;
    Shapes : IWxShapes;
Begin
    Shapes := ws.Shapes;
    ws.DeglueShapes(Shapes.Item[0], Shapes.Item[1]);
End Sub UserProc;