IVZMapChartVisualElement.ToolTipStyle

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

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Map: IVZMapChart;
    Layer: IVZMapChartLayer;
    Pie: IVZMapChartVisualElement;
    ToolTip: IVZTooltipStyle;
    Color: IGxColor;
    Brush: IGxBrush;
Begin
    // Получим текущий репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим карту
    Map := Express.MapChart.MapChart;
    // Получим слой карты
    Layer := Map.RootLayer.SubLayers.Item(0);
    // Получим круговой показатель
    Pie := Layer.Pies.Item(0) As IVZMapChartVisualElement;
    // Получим, изменим фон всплывающей подсказки и применим её к круговому показателю
    ToolTip := Layer.ItemsToolTipStyle;
    Color := New GxColor.CreateRGB(120, 0, 120);
    Brush := New GxSolidBrush.Create(Color);
    ToolTip.Background := Brush;
    Pie.ToolTipStyle := ToolTip;
    // Обновим и сохраним отчёт
    Express.RefreshAll;
    (Express As IMetabaseObject).Save;
End Sub UserProc;