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