IVZSizeLegendMarker.BigImage

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

Sub UserProc;
Var
    Metabase: IMetabase;
    Analyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    SizeLegend: IVZSizeLegend;
    LegendMarker: IVZSizeLegendMarker;
    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;
    // Получим маркеры легенды
    LegendMarker := SizeLegend.Marker;
    // Установим маркеры
    LegendMarker.BigImage := New VZResourceImage.Create;
    LegendMarker.SmallImage := New VZResourceImage.Create;
    LegendMarker.Marker := VisualizatorSizeMarkerShape.Custom;
    // Зададим пиктограмму для максимального значения
    BigImage := LegendMarker.BigImage;
    BigImage.ResourceId := VisualizersResourceId.SizeLegendArrowBig;
    // Зададим пиктограмму для минимального значения
    SmallImage := LegendMarker.SmallImage;
    SmallImage.ResourceId := VisualizersResourceId.SizeLegendCubeSmall;
    // Сохраним изменения в экспресс-отчёте
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;