GlueConnectionPoints(Shape1: IWxShape; Index1: Integer; Shape2:IWxShape; Index2: Integer;);
Shape1. Shape.
Index1. Index of the Shape1 connection point.
Shape2. A shape used as a link. This shape can be lines (IWxLink), connecting lines (IWxStraightLink), figured arrows (IWxArrow), figured two-headed arrows (IWxDoubleArrow).
Index2. Index of the Shape2 connection point.
The GlueConnectionPoints method joins points of two objects.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
StrLink : IWxStraightLink;
Shapes : IWxShapes;
Begin
StrLink := ws.CreateStraightLink;
Shapes := ws.Shapes;
ws.GlueConnectionPoints(Shapes.Item(0),2,StrLink,0);
ws.GlueConnectionPoints(Shapes.Item(1),3,StrLink,1);
End Sub UserProc;
After executing the example the defined objects are connected with a connecting line.
See also: