DeglueConnectionPoints(Shape1: IWxShape; Index1: Integer; Shape2:IWxShape; Index2: Integer;);
Shape1. Фигура;
Index1. Индекс точки соединения фигуры Shape1;
Shape2. Фигура, которая является связью. В качестве такой фигуры могут быть использованы: линии (IWxLink), фигурные стрелки (IWxArrow), фигурные двойные стрелки (IWxDoubleArrow);
Index2. Индекс точки соединения фигуры Shape2 .
Метод DeglueConnectionPoints разъединяет точки двух объектов.
Если связь была задана с использованием соединительных линии (IWxStraightLink) - для разъединения следует использовать метод DeglueShapes.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
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;
После выполнения примера точки соединения линии будут отсоединены от точек соединения фигур.
См. также: