TextVisual: IVZTextVisual;
Свойство TextVisual определяет визуализатор текста.
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXPRES». В экспресс-отчете должно быть настроено отображение визуализатора «Пузырьковое дерево», для которого должна быть выбрана метрика «Цвет». Модуль, в котором размещается пример, должен иметь ссылки на системные сборки Dimension, Express, Metabase и Visualizators. Указанная процедура должна вызываться из точки входа Main.
Далее будем первую букву входящих строк изменять на заглавную:
// Определим собственный преобразователь
Class MyAdapter: object, IVZDataAdapter
// Будем первую букву всех строк делать заглавной
Function GetData(Value: Variant): Variant;
Var
str: String;
chr: Char;
Begin
str := Value As String;
// Получим первый символ строки
chr := str.Chars(0);
// Сделаем данный символ заглавным
chr := Char.ToUpper(chr);
// Получим строку с большой буквой
str := chr + str.SubString(1, str.Length -1);
Return str;
End Function GetData;
End Class MyAdapter;
Sub UserProc;
Var
Metabase: IMetabase; // Метабаза
EaxAnalyzer: IEaxAnalyzer; // Экспресс-отчёт
EaxBubbleTree: IEaxBubbleTree; //Пузырьковое дерево
TextVisual: IVZTextVisual; // Визуализатор текста
DataSourceMapping: IVZDataSourceMapping; // Настройки сопоставления данных
DataTransformer: IVZDataAdapter; // Преобразователь данных
Begin
// Получим объект метабазы
Metabase := MetabaseClass.Active;
// Получим объект экспресс-отчёта
EaxAnalyzer := Metabase.ItemById("EXPRES").Edit As IEaxAnalyzer;
EaxBubbleTree := EaxAnalyzer.BubbleTree;
//Устанавливаем отметку для метрики "Значение"
EaxBubbleTree.IndicatorSelection(EaxBubbleTreeIndicators.Color).CopyTo(EaxBubbleTree.IndicatorSelection(EaxBubbleTreeIndicators.Value), True);
// Получим визуализатор текста
TextVisual := EaxBubbleTree.BubbleTree.TextVisual;
// Получим настройки сопоставления данных
DataSourceMapping := TextVisual.TextMapping;
// Установим тип сопоставления "Преобразователь данных"
DataSourceMapping.MappingType := VisualizatorDataMappingType.DataMappingTransformer;
// Создадим и установим собственный преобразователь данных
DataTransformer := New MyAdapter.Create;
DataSourceMapping.DataTransformer := DataTransformer;
Debug.WriteLine("Преобразование строк:");
Debug.IndentLevel := 1;
Debug.WriteLine("Вход: ""прогноз"", выход: " +
(DataTransformer.GetData("прогноз") As String ));
Debug.WriteLine("Вход: ""пузырьковое дерево"", выход: " +
(DataTransformer.GetData("пузырьковое дерево") As String ));
End Sub UserProc;
В результате выполнения примера был создан собственный преобразователь, изменяющий первую букву входящих строк на заглавную:
Преобразование строк:
Вход: "прогноз", выход: Прогноз
Вход: "пузырьковое дерево", выход: Пузырьковое дерево
См. также: