Update(Value: Boolean);
Update(Value: boolean);
Value. Значение, определяющее, будет ли перерисован визуализатор.
Метод Update определяет, будет ли перерисован визуализатор.
Возможные значения, определяемые параметром:
True. Визуализатор будет перерисован;
False. Визуализатор не будет перерисован.
Для определения типа визуализатора в регламентном отчете используйте IPrxVisualizer.EaxVisualizer.
Для выполнения примера в репозитории необходимо наличие регламентного отчета. Отчет содержит карту в качестве визуализатора. В любой ячейке содержится гиперссылка, при щелчке по которой выполняется процедура/функция «SetColor» в модуле с наименованием «SetColor». Реализация процедуры представлена ниже.
Добавьте ссылки на системные сборки: Drawing, Express, Report, Tab, Visualizators.
Public Sub SetColor;
Var
ActiveSheet: IPrxTable;
TabObj: ITabObject;
RepVis: IPrxVisualizer;
MapChart: IEaxMapChart;
VisMapChart: IVZMapChart;
Begin
ActiveSheet := PrxReport.ActiveReport.ActiveSheet As IPrxTable;
TabObj := ActiveSheet.TabSheet.Objects.Item(0);
RepVis := TabObj.Extension As IPrxVisualizer;
MapChart := RepVis.EaxVisualizer As IEaxMapChart;
VisMapChart := MapChart.MapChart;
VisMapChart.Background := New GxSolidBrush.Create(GxColor.FromName("Red"));
RepVis.Update(True);
End Sub setColor;
После выполнения примера при нажатии по гиперссылке изменится цвет фона визуализатора на красный.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
PrxReport: PrxReportClass = New PrxReportClass();
ActiveReport: IPrxReport;
TabSheet: IPrxTable;
TabObj: ITabObject;
RepVis: IPrxVisualizer;
MapChart: IEaxMapChart;
VisMapChart: IVZMapChart;
SolBr: GxSolidBrushClass = New GxSolidBrushClass();
Color: GxColorClass = New GxColorClass();
Begin
ActiveReport := PrxReport.ActiveReport[Null];
TabSheet := ActiveReport.ActiveSheet As IPrxTable;
TabObj := TabSheet.TabSheet.Objects.Item[0];
RepVis := TabObj.Extension As IPrxVisualizer;
MapChart := RepVis.EaxVisualizer As IEaxMapChart;
VisMapChart := MapChart.MapChart;
SolBr.Create(Color.FromName("Red"));
VisMapChart.Background := SolBr;
RepVis.Update(True);
End Sub;
См. также: