IVZTreeMap.HeightVisual

Синтаксис

Описание

Свойство HeightVisual определяет визуализатор для определения высоты дочерних элементов плоского дерева.

Пример

Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXP». Модуль, в котором размещается пример, должен иметь ссылки на системные сборки Express, Metabase и Visualizators. Указанная процедура должна вызываться из точки входа Main.

Преобразуем набор чисел с помощью собственного преобразователя, увеличивающего значение на входе в 5 раз:

// Определим собственный преобразователь
Class MyAdapter: object, IVZDataAdapter
    // Значение на входе будем увеличивать в 5 раз
    Function GetData(Value: Variant): Variant;
        Begin
        Return Value * 5
    End Function GetData;
End Class MyAdapter;

Sub UserProc;
Var
    Metabase: IMetabase; // Метабаза
    EaxAnalyzer: IEaxAnalyzer; // Экспресс-отчёт
    TreeMap: IVZTreeMap; // Плоское дерево
    HeightVisual: IVZNumericVisual; // Визуализатор высоты элементов диаграммы
    DataSourceMapping: IVZDataSourceMapping; // Настройки сопоставления данных
    DataTransformer: IVZDataAdapter; // Преобразователь данных
Begin
    // Получим объект метабазы
    Metabase := MetabaseClass.Active;
    // Получим объект экспресс-отчёта
    EaxAnalyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
    // Получим плоское дерево
    TreeMap := EaxAnalyzer.TreeMap.TreeMap;
    // Создадим новый объект визуализатора
    HeightVisual := New VZNumericVisual.Create;
    // Получим настройки сопоставления данных
    DataSourceMapping := HeightVisual.NumericMapping;
    // Установим тип сопоставления "Преобразователь данных"
    DataSourceMapping.MappingType := VisualizatorDataMappingType.DataMappingTransformer;
    // Создадим и установим собственный преобразователь данных
    DataTransformer := New MyAdapter.Create;
    DataSourceMapping.DataTransformer := DataTransformer;
    Debug.WriteLine("Преобразование данных:");
    Debug.IndentLevel := 1;
    Debug.WriteLine("Вход: 1, выход: " +
        ((DataTransformer.GetData(1)) As Double).ToString);
    Debug.WriteLine("Вход: 5, выход: " +
        ((DataTransformer.GetData(5)) As Double).ToString);
    Debug.WriteLine("Вход: 30, выход: " +
            ((DataTransformer.GetData(30)) As Double).ToString);
    // Установим визуализатор для определения высоты элементов дерева
    TreeMap.HeightVisual := HeightVisual;
End Sub UserProc;

В результате выполнения примера был создан собственный преобразователь, увеличивающий значение на входе в 5 раз, а в консоли среды разработки были выведены результаты преобразования чисел 1, 5 и 30:

Преобразование данных:

Вход: 1, выход: 5

Вход: 5, выход: 25

Вход: 30, выход: 150

См. также:

IVZTreeMap