Text: String;
The Text property determines arrow label text.
The module is connected to the regular report, which sheet contains the map.
Add links to the Drawing, Map, Report, Tab system assemblies.
Sub Arrow;
Var
Sheets: IPrxSheets;
SheetT : IPrxTable;
Map: IMap;
Layer: IMapLayer;
Arrows: IMapLayerArrows;
Arrow: IMapArrow;
Begin
Sheets := PrxReport.ActiveReport.Sheets;
SheetT := Sheets.Item(0) As IPrxTable;
Map := SheetT.TabSheet.Objects.Item(0).Extension As IMap;
Layer := Map.Layers.FindByName("Regions");
Arrows := Layer.Arrows;
Arrows.CreateByIDs(98, 46);
Arrow := Arrows.Item(0);
// Set arrow label text
Arrow.Text := "Stream";
// Set label background color
Arrow.TextBackgroundColor := GxColor.FromName("Grey");
// Set label orientation
Arrow.TextDirection := MapArrowTextDirection.Rotated;
// Set arrow label color
Arrow.TextForegroundColor := GxColor.FromName("Red");
Map.Refresh;
End Sub Arrow;
After executing the example an arrow is created and its label text with the corresponding orientation, background and label color are determined:
See also: