IVZTreeMap.HeightVisual

Copy example

// Determine custom data transformer
Class MyAdapter: object, IVZDataAdapter
    // Input value is to be increased as much as five times
    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
    // Get the current repository
    Metabase := MetabaseClass.Active;
    // Get express report
    EaxAnalyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
    // Get tree map
    TreeMap := EaxAnalyzer.TreeMap.TreeMap;
    // Create new visualizer object
    HeightVisual := New VZNumericVisual.Create;
    // Get settings of data mapping
    DataSourceMapping := HeightVisual.NumericMapping;
    // Set the Data Transformer mapping type
    DataSourceMapping.MappingType := VisualizatorDataMappingType.DataMappingTransformer;
    // Create and set custom data transformer
    DataTransformer := New MyAdapter.Create;
    DataSourceMapping.DataTransformer := DataTransformer;
    Debug.WriteLine("Data transformation:");
    Debug.IndentLevel := 1;
    Debug.WriteLine("Input: 1, output: " + 
        ((DataTransformer.GetData(1)) As Double).ToString);
    Debug.WriteLine("Input: 5, output: " + 
        ((DataTransformer.GetData(5)) As Double).ToString);
    Debug.WriteLine("Input: 30, output: " + 
        ((DataTransformer.GetData(30)) As Double).ToString);
    // Set visualizer used to determine tree elements height
    TreeMap.HeightVisual := HeightVisual;
End Sub UserProc;