ConnectedCPs(ConnectionPointIndex: Integer; ConnectedCPShapeIndex: Integer): Integer;
ConnectionPointIndex. Index of source object connection point (shown as a red point on the image)
ConnectedCPShapeIndex. Index of the shape connected with the object in the ConnectionPointIndex point (the figure shows two such shapes: A and B).
The ConnectedCP property returns an index for a connection point of a shape connected with the source object in the defined point.
Connection point indexes of a source object are displayed in black, connection point indexes of shapes, connected with an object in the ConnectionPointIndex point displayed in red, are displayed in blue and green:
There are two shapes, connected with the object in this point: A and B. The property will return index 0 for both shapes.
Executing the example requires that the repository contains workspace with the WSP identifier containing several connected shapes.
Add links to the Andy, Metabase system assemblies.
Sub UserProc;
Var
MB: IMetabase;
ws: IWxWorkspace;
i, j, ISh: Integer;
Shape: IWxShape;
Begin
MB := MetabaseClass.Active;
// Get workspace
ws := MB.ItemById("WSP").Edit As IWxWorkspace;
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);
Debug.WriteLine("Connection point index " + ISh.ToString + " for object with ConnectedCPShapeIndex = " + j.ToString);
End For;
End If;
End For;
// Save changes
(ws As IMetabaseObject).Save;
End Sub UserProc;
When executing the example there will be several messages returned, containing a connection point index of a shape, connected with the original object in the ConnectionPointIndex point.
See also: