EqualFormat: Variant;
EqualFormat: object;
Свойство EqualFormat определяет формат подписи интервалов, включающих в себя границы, в легенде с интервалами.
Данное свойство актуально:
если свойство IVZDataScale.EnableEquality принимает значение True;
если свойство IVZIntervalsLegend.IncludeEquals принимает значение True.
Для выполнения примера в репозитории необходимо наличие экспресс-отчета с идентификатором «EXPRESS_IVZINTERVALSLEGEND». Отчет содержит пузырьковое дерево.
Добавьте ссылки на системные сборки: Express, Metabase, Visualizators.
Sub Userproc;
Var
Metabase: IMetabase;
Analyzer: IEaxAnalyzer;
BubbleTree: IVZBubbleTree;
Intervals: IVZIntervalsLegend;
Scale: IVZDataScale;
Begin
// Получим репозиторий
Metabase := MetabaseClass.Active;
// Получим экспресс-отчёт
Analyzer := Metabase.ItemById("EXPRESS_IVZINTERVALSLEGEND").Edit As IEaxAnalyzer;
// Получим пузырьковое дерево
BubbleTree := Analyzer.BubbleTree.BubbleTree;
// Получим легенду с интервалами
Intervals := BubbleTree.Legends.Item(0) As IVZIntervalsLegend;
// Получим размерную шкалу легенды
Scale := Intervals.Scale;
// Отобразим интервалы, имеющие границу
Intervals.Mode := VisualizatorLegendMode.BetweenOnly;
// Включим отображение формата подписи "Равно" на шкале легенды
Scale.EnableEquality := True;
Intervals.IncludeEquals := True;
// Изменим формат подписи
Intervals.EqualFormat := "{0:#,###0.000}";
// Сохраним изменения
(Analyzer As IMetabaseObject).Save;
End Sub Userproc;
После выполнения примера формат записи интервалов, включающих в себя границы, изменится до трёх знаков после запятой.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Public Shared Sub Main(Params: StartParams);
Var
Metabase: IMetabase;
Analyzer: IEaxAnalyzer;
BubbleTree: IVZBubbleTree;
Intervals: IVZIntervalsLegend;
Scale: IVZDataScale;
Begin
// Получим репозиторий
Metabase := Params.Metabase;
// Получим экспресс-отчёт
Analyzer := Metabase.ItemById["EXPRESS_IVZINTERVALSLEGEND"].Edit() As IEaxAnalyzer;
// Получим пузырьковое дерево
BubbleTree := Analyzer.BubbleTree.BubbleTree;
// Получим легенду с интервалами
Intervals := BubbleTree.Legends.Item[0] As IVZIntervalsLegend;
// Получим размерную шкалу легенды
Scale := Intervals.Scale;
// Отобразим интервалы, имеющие границу
Intervals.Mode := VisualizatorLegendMode.vlmBetweenOnly;
// Включим отображение формата подписи "Равно" на шкале легенды
Scale.EnableEquality := True;
Intervals.IncludeEquals := True;
// Изменим формат подписи
Intervals.EqualFormat := "{0:#,###0.000}";
// Сохраним изменения
(Analyzer As IMetabaseObject).Save();
End Sub;
См. также: