SaveStyleToXml: String;
Метод SaveStyleToXml сохраняет параметры стиля визуализатора в XML-формате.
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXP». Модуль, в котором размещается пример, должен иметь ссылки на системные сборки Express, Metabase, Drawing и Visualizators. Указанная процедура должна вызываться из точки входа Main.
До выполнения примера пузырьковое дерево выглядит так, как показано на странице описания интерфейса IVZBubbleTree. Получим параметры стиля данного дерева в формате XML и изменим цвет орбит, установим измененные параметры стиля из XML:
Sub UserProc;
Var
Metabase: IMetabase; // Метабаза
EaxAnalyzer: IEaxAnalyzer; // Экспресс-отчёт
BubbleTree: IVZBubbleTree; // Пузырьковое дерево
BubbleTreeStyleXML: String; // Настройки стиля пузырькового дерева в формате XML
Begin
// Получим объект метабазы
Metabase := MetabaseClass.Active;
// Получим объект экспресс-отчёта
EaxAnalyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
// Получим пузырьковое дерево
BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
// Получим параметры стиля пузырькового дерева в формате XML и изменим цвет орбит
BubbleTreeStyleXML := String.Replace(BubbleTree.SaveStyleToXml,
"OrbitsPen Style=""solid"" Color=""#ffe0e0e0""",
"OrbitsPen Style=""solid"" Color=""#ff000000""");
// Установим новые значения параметров стиля пузырькового дерева из XML
BubbleTree.LoadStyleFromXml(BubbleTreeStyleXML);
// Сохраним экспресс-отчет
(EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера был изменен цвет орбит:
См. также: