HighlightBrush: IGxBrush;
HighlightBrush: Prognoz.Platform.Interop.Drawing.IGxBrush;
The HighlightBrush property determines settings of the brush for highlighting territory info elements.
To determine the maximum number of info elements, use IVZTerritoryTranscript.MaxItemsCount.
Executing the example requires that the repository contains an express report with the EXPRESS identifier containing a map.
Add links to the Drawing, Express, Metabase, Visualizators system assemblies.
Sub UserProc;
Var
MB: IMetabase;
Express: IEaxAnalyzer;
MC: IVZMapChart;
TT: IVZTerritoryTranscript;
Begin
// Get repository
MB := MetabaseClass.Active;
// Get express report
Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
// Get map
MC := Express.MapChart.MapChart;
// Get territory info
TT := MC.TerritoryTranscript;
// Enable territory info
TT.Visible := True;
// Determine highlighting color for territory info elements
TT.HighlightBrush := New GxSolidBrush.Create(GxColor.FromName("Red"));
// Save changes
(Express As IMetabaseObject).Save;
End Sub UserProc;
After executing the example on hovering over the required area the corresponding info element is highlighted with red.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Express: IEaxAnalyzer;
MC: IVZMapChart;
TT: IVZTerritoryTranscript;
Brush: GxSolidBrush = New GxSolidBrushClass();
ColorClass: GxColorClass = New GxColorClassClass();
Color: GxColor;
Begin
// Get repository
MB := Params.Metabase;
// Get express report
Express := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
// Get map
MC := Express.MapChart.MapChart;
// Get territory info
TT := MC.TerritoryTranscript;
// Enable territory info
TT.Visible := True;
// Determine highlighting color for territory info elements
Color := ColorClass.FromName("Red");
Brush.Create(Color);
TT.HighlightBrush := Brush;
// Save changes
(Express As IMetabaseObject).Save();
End Sub;
See also: