IVZDataScale.ConstructScaleElements

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

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    Scale: IVZDataScale;
    DataSource: IVZMultiplyDataSource;
    Values: IVZDataArray;
Begin
    // Получим текущий репозиторий
    Metabase := MetabaseClass.Active;
    // Получим экспресс-отчёт
    EaxAnalyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Получим шкалу цветов пузырькового дерева
    Scale := BubbleTree.ColorVisual.ColorMapping.Scale;
    // Разрешим автоматическое вычисление шкалы
    Scale.AutoCalculable := True;      
    // Включим использование в шкале элементов «равно»
    Scale.EnableEquality := True;  
    // Определим режим расчёта шкалы визуализатора
    Scale.Mode := VisualizatorScaleMode.ScaleLogarithmic;
    // Определим основание для логарифмической шкалы
    Scale.LogarithmBase := 4;
    // Получаем источник данных
    DataSource := BubbleTree.ColorVisual.ColorMapping.DataSource;
    // Получаем массив данных, на основе которых будет рассчитана шкала
    Values := New VZDataArray.Create;
    Values := DataSource.GetAllLevelDataEx("color",-1);
    // Перерассчитаем шкалу, если данные были получены 
    If Values <> Null Then
        Scale.ConstructScaleElements(Values);
    Else 
        Debug.WriteLine("Данных нет, расчет шкалы не выполнен");
    End If;
    // Сохраним изменения, сделанные в экспресс-отчёте 
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;