DeglueConnectionPoints(Shape1: IWxShape; Index1: Integer; Shape2:IWxShape; Index2: Integer;);
Shape1. Shape.
Index1. Index of the Shape1 connection point.
Shape2. Shape used as a link. The following can be used as this shape: lines (IWxLink), figured arrows (IWxArrow), figured two-headed arrows (IWxDoubleArrow).
Index2. Index of the Shape2 connection point.
The DeglueConnectionPoints method separates points of two objects.
If connection was set by using connecting lines (IWxStraightLink), to separate use the DeglueShapes method.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Shapes : IWxShapes;
Link : IWxLink;
Begin
Shapes := ws.Shapes;
Link := Shapes.Item(4) As IWxLink;
ws.DeglueConnectionPoints(Shapes.Item(0),2,Link,0);
ws.DeglueConnectionPoints(Shapes.Item(1),3,Link,1);
End Sub UserProc;
After executing the example line connection points are separated from shape connection points.
See also: