IVZSizeLegendMarker.Marker

Marker: VisualizatorSizeMarkerShape;

Marker: Prognoz.Platform.Interop.Visualizators.VisualizatorSizeMarkerShape;

Sub UserProc;
Var
    Metabase: IMetabase;
    Analyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    SizeLegend: IVZSizeLegend;
    Style: IVZControlStyle;
    BigImage, SmallImage: IVZResourceImage;
Begin
    // Получим репозиторий
    Metabase := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Analyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := Analyzer.BubbleTree.BubbleTree;
    // Получим размерную легенду
    SizeLegend := BubbleTree.Legends.Item(1) As IVZSizeLegend;
    // Установим маркер в виде трапеции
    SizeLegend.Marker.Marker := VisualizatorSizeMarkerShape.Trapezoid;
    // Сохраним изменения, сделанные в экспресс-отчёте
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
    Metabase: IMetabase;
    Analyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    SizeLegend: IVZSizeLegend;
    Style: IVZControlStyle;
    BigImage, SmallImage: IVZResourceImage;
Begin
    // Получим репозиторий
    Metabase := Params.Metabase;
    // Получим экспресс-отчёт
    Analyzer := Metabase.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := Analyzer.BubbleTree.BubbleTree;
    // Получим размерную легенду
    SizeLegend := BubbleTree.Legends.Item[1] As IVZSizeLegend;
    // Установим маркер в виде трапеции
    SizeLegend.Marker.Marker := VisualizatorSizeMarkerShape.vsmsTrapezoid;
    // Сохраним изменения, сделанные в экспресс-отчёте
    (Analyzer As IMetabaseObject).Save();
End Sub;