IVZDataSourceMapping.DataTransformer

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

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

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    SizeVisual: IVZNumericVisual;
    DataSourceMapping: IVZDataSourceMapping;
    DataTransformer: IVZDataAdapter;
Begin       
    // Получим текущий репозиторий
    Metabase := MetabaseClass.Active;
    // Получим экспресс-отчёт
    EaxAnalyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Получим визуализатор для определения размеров пузырьков дерева
    SizeVisual := BubbleTree.SizeVisual;
    // Получим настройки сопоставления данных
    DataSourceMapping := SizeVisual.NumericMapping;
    // Установим тип сопоставления «Преобразователь данных»
    DataSourceMapping.MappingType := VisualizatorDataMappingType.DataMappingTransformer;
    // Создадим и установим собственный преобразователь данных
    DataTransformer := New MyAdapter.Create;
    DataSourceMapping.DataTransformer := DataTransformer;
    Debug.WriteLine("Преобразование данных:");
    Debug.IndentLevel := 1;
    Debug.WriteLine("Вход: -0.05, выход: " + 
        ((DataTransformer.GetData(-0.05)) As Double).ToString);
    Debug.WriteLine("Вход: 0, выход: " + 
        ((DataTransformer.GetData(0)) As Double).ToString);
    Debug.WriteLine("Вход: 0.05, выход: " + 
        ((DataTransformer.GetData(0.05)) As Double).ToString);
    Debug.WriteLine("Вход: 5, выход: " + 
        ((DataTransformer.GetData(5)) As Double).ToString);
    Debug.WriteLine("Вход: 1000, выход: " + 
        ((DataTransformer.GetData(1000)) As Double).ToString);
    // Установим визуализатор для определения размеров пузырьков дерева
    BubbleTree.SizeVisual := SizeVisual;
End Sub UserProc;