ToolTipStyle: IVZToolTipStyle;
ToolTipStyle: Prognoz.Platform.Interop.Visualizators.VZToolTipStyle;
Свойство ToolTipStyle определяет стиль всплывающих подсказок дополнительного визуального элемента на карте.
К дополнительным визуальным элементам на карте относятся:
Для выполнения примера в репозитории предполагается наличие экспресс-отчета с идентификатором «EXPRESS», содержащего карту с круговыми показателями.
Добавьте ссылки на системные сборки: Drawing, Express, Metabase, Visualizators.
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;
После выполнения примера изменится фон всплывающих подсказок круговых показателей.
Необходимые требования и результат выполнения примера Fore.NET совпадает с примером Fore.
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Express: IEaxAnalyzer;
Map: IVZMapChart;
Layer: IVZMapChartLayer;
Pie: IVZMapChartVisualElement;
ToolTip: VZTooltipStyle;
Color: GxColor = New GxColor();
Brush: GxSolidBrush = New GxSolidBrushClass();
Begin
// Получим репозиторий
MB := Params.Metabase;
// Получим экспресс-отчет
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.CreateRGB(120, 0, 120);
Brush.Create(Color);
ToolTip.Background := Brush;
Pie.ToolTipStyle := ToolTip;
// Обновим и сохраним отчет
Express.RefreshAll();
(Express As IMetabaseObject).Save();
End Sub;
См. также: