ItemsToolTipStyle: IVZToolTipStyle;
ItemsToolTipStyle: Prognoz.Platform.Interop.Visualizators.VZToolTipStyle;
Свойство ItemsToolTipStyle определяет стиль всплывающих подсказок листьев плоского дерева.
Всплывающая подсказка листа плоского дерева может выглядеть следующим образом:
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXP». Модуль, в котором размещается пример, должен иметь ссылки на системные сборки Express, Metabase и Visualizators. Указанная процедура должна вызываться из точки входа Main.
Изменим текст, отображаемый при отсутствии данных, установим режим отображения всплывающих подсказок элементов плоского дерева по клику:
Sub UserProc;
Var
Metabase: IMetabase; // Метабаза
EaxAnalyzer: IEaxAnalyzer; // Экспресс-отчёт
TreeMap: IVZTreeMap; // Плоское дерево
ItemsToolTipStyle: IVZToolTipStyle; // Стиль текстовых меток
Begin
// Получим объект метабазы
Metabase := MetabaseClass.Active;
// Получим объект экспресс-отчёта
EaxAnalyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
// Получим плоское дерево
TreeMap := EaxAnalyzer.TreeMap.TreeMap;
// Получим объект стиля текстовых меток
ItemsToolTipStyle := TreeMap.ItemsToolTipStyle;
// Установим текст, отображаемый при отсутствии данных
ItemsToolTipStyle.NoDataText := "Данные отсутствуют";
// Установим режим отображения всплывающих подсказок
ItemsToolTipStyle.HoverMode := VisualizatorHoverMode.Click;
// Сохраним экспресс-отчет
(EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера был изменен текст всплывающей подсказки, отображаемый при отсутствии данных. Всплывающая подсказка теперь отображается по клику левой кнопки мыши по элементу плоского дерева:
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «EXP». Указанная процедура является точкой входа Main в модуле Program .NET-сборки. В данный модуль должны быть импортированы сборки Express, Metabase и Visualizators из системной сборки Prognoz.Platform.Interop.
Изменим текст, отображаемый при отсутствии данных, установим режим отображения всплывающих подсказок элементов плоского дерева по клику:
Public Shared Sub Main(Params: StartParams);
Var
Metabase: IMetabase; // Метабаза
EaxAnalyzer: IEaxAnalyzer; // Экспресс-отчёт
TreeMap: IVZTreeMap; // Плоское дерево
ItemsToolTipStyle: IVZToolTipStyle; // Стиль текстовых меток
Begin
// Получим объект метабазы
Metabase := Params.Metabase;
// Получим объект экспресс-отчёта
EaxAnalyzer := Metabase.ItemById["EXP"].Edit() As IEaxAnalyzer;
// Получим плоское дерево
TreeMap := EaxAnalyzer.TreeMap.TreeMap;
// Получим объект стиля текстовых меток
ItemsToolTipStyle := TreeMap.ItemsToolTipStyle;
// Установим текст, отображаемый при отсутствии данных
ItemsToolTipStyle.NoDataText := "Данные отсутствуют";
// Установим режим отображения всплывающих подсказок
ItemsToolTipStyle.HoverMode := VisualizatorHoverMode.vhmClick;
// Сохраним экспресс-отчет
(EaxAnalyzer As IMetabaseObject).Save();
End Sub;
Результат выполнения примера аналогичен результату, полученному после выполнения примера для языка Fore.
См. также: