IWxShape.ConnectedCPs

Синтаксис

ConnectedCPs(ConnectionPointIndex: Integer; ConnectedCPShapeIndex: Integer): Integer;

Параметры

ConnectionPointIndex. Индекс точки соединения исходного объекта (на изображении данная точка отображена красным цветом);

ConnectedCPShapeIndex. Индекс фигуры, соединенной с объектом в точке ConnectionPointIndex (на изображении таких фигур две : A и B).

Описание

Свойство ConnectedCP возвращает индекс точки соединения фигуры, соединенной с исходным объектом в заданной точке.

ConnectionPointIndex (точка соединения) отображена красным цветом. Фигуры, соединенные с объектом в данной точке две: А и B. Для обоих фигур свойство вернет индекс «0».

Индексы точек соединения исходного объекта изображены черным цветом.

Индексы точек соединения фигур, соединенных с объектом в точке ConnectionPointIndex, изображены синим и зеленым цветом.

Пример

В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.

Sub UserProc;

Var

ws: IWxWorkspace;

Shape: IWxShape;

i, j, ISh : Integer;

Begin

Shape := ws.Shapes.Item(0);

For i := 0 To Shape.ConnectionPointsCount-1 Do

If Shape.ConnectedCpShapesCount(i) > 0 Then

For j := 0 To Shape.ConnectedCpShapesCount(i)- 1 Do

ISh := Shape.ConnectedCPs(i,j);

winapplication.InformationBox("Индекс точки соединения " + ISh.ToString + " для объекта с ConnectedCPShapeIndex =" + j.ToString);

End For;

End If;

End For;

End Sub UserProc;

В процессе выполнения примера будут поэтапно выдаваться сообщения, содержащие индекс точки соединения фигуры, соединенной с исходным объектом в точке ConnectionPointIndex.

См. также:

IWxShape