IVZBubbleTree.ItemsToolTipStyle

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

Sub UserProc;
Var
    mb: IMetabase;
    analyzer: IEaxAnalyzer;
    bt: IEaxBubbleTree;
    BubbleTree: IVZBubbleTree;
    ItemsTooltipStyle: IVZToolTipStyle;
    color: GxColor;
Begin
    // Получим текущий репозиторий
    mb := MetabaseClass.Active;
    // Получим экспресс-отчёт
    analyzer := mb.ItemById("EXPRESS_IVZBUBBLETREE").Edit As IEaxAnalyzer;
    // Получим пузырьковое дерево
    bt := analyzer.BubbleTree;
    // Получим пузырьковое дерево в качестве визуализатора
    BubbleTree := bt.BubbleTree;
    // Получим стиль всплывающей подсказки
    ItemsTooltipStyle := bubbletree.ItemsToolTipStyle;
    // Отключим стандартный цвет шрифта подсказки
    BubbleTree.LabelAutoColor := False;
    // Создадим новый цвет
    color := New GxColor.CreateRGB(120, 0, 120);
    // Зададим новый цвет шрифта подсказки
    ItemsTooltipStyle.FontColor := color;
    // Сохраним изменения
    (analyzer As IMetabaseObject).Save;
End Sub UserProc;