IVZDataVisualizer.LoadFromXml

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

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    BubbleTreeXML: String;
    XMLDoc: IXMLDOMDocument;
    Loaded: Boolean; 
    Nodes: IXmlDomNodeList;
    Node, NodeAttr: IXmlDomNode;
Begin
    // Получим текущий репозиторий
    Metabase := MetabaseClass.Active;
    // Получим экспресс-отчёт
    EaxAnalyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Получим параметры пузырькового дерева в формате XML
    BubbleTreeXML := BubbleTree.SaveToXml;
    // Создадим структуру для изменения XML
    XMLDoc := New DOMDocument.Create;
    Loaded := XMLDoc.loadXML(BubbleTreeXML);
    If Loaded Then
        // Получим узел Font
        Nodes := XMLDOc.getElementsByTagName("Font");
        Node := Nodes.item(1);
        // Найдём атрибут Color
        NodeAttr := Node.attributes.getNamedItem("Color");
        // Установим другой цвет
        NodeAttr.nodeValue := "#FF404EED";
        // Получим изменённую XML
        BubbleTreeXML := XMLDoc.xml;
    End If;
    // Установим новые значения параметров стиля пузырькового дерева из XML
    BubbleTree.LoadFromXml(BubbleTreeXML);
    // Сохраним экспресс-отчёт
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;