Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.4
от 09/04/2024,
© ООО «ФОРСАЙТ»,
Вывод стандартного диалога настройки параметров легенды, создаваемой для диаграмм регламентного отчета.
Параметры команды передаются в свойстве Data. Для работы команды в данном свойстве необходимо указать массив типа Variant, элементы которого содержат следующие значения:
| Тип значения | Описание |
| Элемент 1: IPrxReport | Регламентный отчет, на странице которого создана легенда для диаграмм. |
| Элемент 2: IPrxChartLegend | Диаграмма, для которой необходимо отобразить диалог настройки параметров. |
Команда может применяться только для регламентных отчетов. Результатом выполнения команды будет значение True, если в диалоге была нажата кнопка «ОК», и False, если была нажата кнопка «Отмена».
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1", компонента ReportBox и компонента UiReport с наименованием «UiReport1», являющегося источником данных для ReportBox. На активном листе регламентного отчета, подключенного к компоненту «UiReport1», имеется легенда для диаграмм.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Report: IPrxReport;
Objs: ITabObjects;
Obj: ITabObject;
Target: IUiCommandTarget;
Context: IUiCommandExecutionContext;
Data: Array;
i: Integer;
Begin
Report := UiReport1.Report;
Objs := (Report.ActiveSheet As IPrxTable).TabSheet.Objects;
//Поиск легенды на странице регламентного отчета
For i := 0 To Objs.Count - 1 Do
If Objs.Item(i).ClassId = "PrxChartLegend" Then
Obj := Objs.Item(i);
Break
End If;
End For;
If Obj <> Null Then
Target := WinApplication.Instance.GetPluginTarget("Report");
Context := Target.CreateExecutionContext;
Data := New Variant[2];
Data[0] := Report;
Data[1] := Obj As IPrxChartLegend;
Context.Data := Data;
Target.Execute("ChartExternLegendSetup", Context)
End If;
End Sub Button1OnClick;
При нажатии на кнопку будет выведен стандартный диалог настройки параметров легенды, найденной на активном листе регламентного отчета, подключенного в компоненте «UiReport1».
См. также: