DestID: Integer;
The DestID property determines the identifier of the territory that is the arrow end point.
The module is connected to the regular report, which sheet contains the map.
Add links to the Map, Report, Tab system assemblies.
Sub Arrow;
Var
Map : IMap;
Arrow : IMapArrow;
Sheets: IPrxSheets;
SheetT : IPrxTable;
Begin
Sheets := PrxReport.ActiveReport.Sheets;
SheetT := Sheets.Item(0) As IPrxTable;
Map := SheetT.TabSheet.Objects.Item(0).Extension As IMap;
Arrow := Map.Layers.FindByName("Regions").Arrows.Item(1);
// Get identifier of the territory that is the arrow end point
SheetT.TabSheet.CellValue(1,1) := Arrow.DestID;
// Get name of the territory that is the arrow end point
SheetT.TabSheet.CellValue(1,1) := Arrow.DestName;
End Sub Arrow;
After executing the example the identifier and name of the region being the arrow end point is written to the corresponding sheet cell.
See also: