EqualFormat: Variant;
EqualFormat: object;
The EqualFormat property determines format of record for intervals including borders in the legend with intervals.
This property is relevant:
If the IVZDataScale.EnableEquality property is set to True.
If the IVZIntervalsLegend.IncludeEquals property is set to True.
Executing the example requires that the repository contains an express report with the EXPRESS_IVZINTERVALSLEGEND identifier. The report contains a bubble tree.
Add links to the Express, Metabase, Visualizators system assemblies.
Sub Userproc;
Var
Metabase: IMetabase;
Analyzer: IEaxAnalyzer;
BubbleTree: IVZBubbleTree;
Intervals: IVZIntervalsLegend;
Scale: IVZDataScale;
Begin
// Get repository
Metabase := MetabaseClass.Active;
// Get express report
Analyzer := Metabase.ItemById("EXPRESS_IVZINTERVALSLEGEND").Edit As IEaxAnalyzer;
// Get bubble tree
BubbleTree := Analyzer.BubbleTree.BubbleTree;
// Get legend with intervals
Intervals := BubbleTree.Legends.Item(0) As IVZIntervalsLegend;
// Get legend size scale
Scale := Intervals.Scale;
// Display only intervals that have borders
Intervals.Mode := VisualizatorLegendMode.BetweenOnly;
// Enable displaying of format of the "Equal" label on the legend scale
Scale.EnableEquality := True;
Intervals.IncludeEquals := True;
// Change label format
Intervals.EqualFormat := "{0:#,###0.000}";
// Save changes
(Analyzer As IMetabaseObject).Save;
End Sub Userproc;
After executing the example, the format of intervals that include both borders is reduced up to three fecimal characters.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Public Shared Sub Main(Params: StartParams);
Var
Metabase: IMetabase;
Analyzer: IEaxAnalyzer;
BubbleTree: IVZBubbleTree;
Intervals: IVZIntervalsLegend;
Scale: IVZDataScale;
Begin
// Get repository
Metabase := Params.Metabase;
// Get express report
Analyzer := Metabase.ItemById["EXPRESS_IVZINTERVALSLEGEND"].Edit() As IEaxAnalyzer;
// Get bubble tree
BubbleTree := Analyzer.BubbleTree.BubbleTree;
// Get legend with intervals
Intervals := BubbleTree.Legends.Item[0] As IVZIntervalsLegend;
// Get legend size scale
Scale := Intervals.Scale;
// Display only intervals that have borders
Intervals.Mode := VisualizatorLegendMode.vlmBetweenOnly;
// Enable displaying of format of the "Equal" label on the legend scale
Scale.EnableEquality := True;
Intervals.IncludeEquals := True;
// Change label format
Intervals.EqualFormat := "{0:#,###0.000}";
// Save changes
(Analyzer As IMetabaseObject).Save();
End Sub;
See also: