AutoLinkShapes(Shape1: IWxShape; Shape2: IWxShape): IWxLink;
Shape1. Фигура;
Shape2. Фигура.
Метод AutoLinkShapes соединяет две фигуры с автоматическим выбором точек соединения с помощью линии.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Shapes : IWxShapes;
Link : IWxLink;
Style : IWxStyle;
Begin
Shapes := ws.Shapes;
Link := ws.AutoLinkShapes(Shapes.Item(0),Shapes.Item(1));
Style := ws.CreateStyle;
Style.LinePenColor := GxColor.FromName("Green");
Style.LinePenWidth := 0.8;
Link.Style := Style;
End Sub UserProc;
После выполнения примера между заданными фигурами будет создана связь и заданы ее параметры оформления.
См. также: