IVZBaseDataVisualizer.Background

Background: IGxBrush;

Background: Prognoz.Platform.Interop.Visualizators.IGxBrush;

Sub UserProc;
Var
    Metabase: IMetabase;
    Analyzer: IEaxAnalyzer;
    BubbleTree: IVZBaseDataVisualizer;
    Formatter: IVZBaseFormatter;
    Color: IGxColor;
    Brush: IGxBrush;
    Bitmap: IGxBitmap;
    Image: IGxImage;
    Graphics: IGxGraphics;
    Rect: IGxRectF;
    UnRed: IUndoRedo;
Begin
    // Получим репозиторий
    Metabase := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Analyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := Analyzer.BubbleTree.BubbleTree As IVZBaseDataVisualizer;
    // Изменим настройки кисти фона визуализатора
    Color := GxColor.FromName("Yellow");
    Brush := New GxSolidBrush.Create(Color);
    BubbleTree.Background := Brush;
    // Получим процентное выражение числа 0.425 с помощью инструмента для форматирования данных
    Formatter := BubbleTree.Formatter;
    Formatter.FormatByParam("{0}", 0.425, "0.00%");
    Debug.WriteLine("Число 0.425, выраженное в процентах: " + Formatter.FormatByParam("{0}", 0.425, "0.00%"));
    // Включим анимацию визуализатора
    If Not BubbleTree.EnableAnimating Then
        BubbleTree.EnableAnimating := True;
    End If;
    // Выключим режим печати визуализатора
    If BubbleTree.IsPrintMode Then
        BubbleTree.IsPrintMode := False;
    End If;
    // Изменения в визуализаторе отсутствуют
    If BubbleTree.IsDirty Then
        BubbleTree.IsDirty := False;
    End If;
    // Получим стек изменений настроек визуализатора
    UnRed := BubbleTree.UndoRedo;
    // Зададим доступность и количество изменений стека
    UnRed.Enabled:= True;
    UnRed.Limit:= 5;
    // Сохраним изображение визуализатора в файл
    Bitmap := BubbleTree.GetBitmap(1795, 1205, 300);
    Bitmap.SaveToFile("C:\Image.jpg");
    // Отрисуем визуализатор на графический объект
    Image := New GxImage.CreateFromFile("C:\Graph.jpg");
    Graphics := GxGraphicsClass.FromImage(Image);
    Rect := New GxRectF.Create(100, 100, 100, 100);
    BubbleTree.Draw(Graphics, Rect, 300, True);
    // Обновим отчет и сохраним изменения
    Analyzer.RefreshAll;
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
    Metabase: IMetabase;
    Analyzer: IEaxAnalyzer;
    BubbleTree: IVZBaseDataVisualizer;
    Formatter: IVZBaseFormatter;
    Color: GxColorClass = New GxColorClassClass();
    Brush: IGxBrush = New GxSolidBrushClass();
    Bitmap: IGxBitmap;
    Image: GxImage = New GxImageClass_2();
    Graphics: GxGraphicsClass = New GxGraphicsClassClass();
    Gr: GxGraphics;
    Rect: GxRectF = New GxRectFClass();
    UnRed: IUndoRedo;
Begin
    // Получим репозиторий
    Metabase := Params.Metabase;
    // Получим экспресс-отчёт
    Analyzer := Metabase.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := Analyzer.BubbleTree.BubbleTree As IVZBaseDataVisualizer;
    // Изменим настройки кисти фона визуализатора
    Color.FromName("Yellow");
    BubbleTree.Background := Brush;
    // Получим процентное выражение числа 0.425 с помощью инструмента для форматирования данных
    Formatter := BubbleTree.Formatter;
    Formatter.FormatByParam("{0}", 0.425, "0.00%");
    System.Diagnostics.Debug.WriteLine
    ("Число 0.425, выраженное в процентах: " + Formatter.FormatByParam("{0}", 0.425, "0.00%"));
    // Включим анимацию визуализатора
    If Not BubbleTree.EnableAnimating Then
        BubbleTree.EnableAnimating := True;
    End If;
    // Выключим режим печати визуализатора
    If BubbleTree.IsPrintMode Then
        BubbleTree.IsPrintMode := False;
    End If;
    // Изменения в визуализаторе отсутствуют
    If BubbleTree.IsDirty Then
        BubbleTree.IsDirty := False;
    End If;
    // Получим стек изменений настроек визуализатора
    UnRed := BubbleTree.UndoRedo;
    // Зададим доступность и количество изменений стека
    UnRed.Enabled:= True;
    UnRed.Limit:= 5;
    // Сохраним изображение визуализатора в файл
    Bitmap := BubbleTree.GetBitmap(1795, 1205, 300);
    Bitmap.SaveToFile("C:\Image.jpg");
    // Отрисуем визуализатор на графический объект
    Image.CreateFromFile("C:\Graph.jpg");
    Gr := Graphics.FromImage(Image);
    Rect.Create(100, 100, 100, 100);
    BubbleTree.Draw(Gr, Rect, 300, False);
    // Обновим отчет и сохраним изменения
    Analyzer.RefreshAll();
    (Analyzer As IMetabaseObject).Save();
End Sub;