IVZIntervalsLegend.EqualFormat

Копировать пример

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;