ReportObjectMovingEventArgs.Create

Синтаксис

Create(Report: IReportBox; Sheet: IPrxSheet; Object: ITabObject; Rect: IGxRectF; [Cancel: Boolean]);

Create(Report: Prognoz.Platform.Interop.Report.IReportBox; Sheet: Prognoz.Platform.Interop.Report.IPrxSheet; Object: ; Rect: ; Cancel: boolean);

Параметры

Report. Компонент, для которого генерируется событие;

Sheet. Страница отчета, для которой генерируется событие;

Object. Объект, для которого генерируется событие;

Rect. Координаты прямоугольной области, занимаемой объектом;

Cancel. Признак отмены перемещения объекта.

Описание

Конструктор Create создает аргумент события, происходящего при перемещении объекта.

Пример

Для выполнения примера предполагается наличие формы, содержащей компоненты ReportBox с наименованием ReportBox1 и UiReport с наименованием UiReport1, являющийся источником данных для ReportBox1. В свойстве Active компонента UiReport1 установите значение True. UiReport1 должен содержать загруженный регламентный отчет с фигурами на активном листе.

В примере будет создан и вызван пользовательский обработчик для события OnObjectMoving в компоненте ReportBox1.

Вместо компонентов Fore используйте их Fore.NET аналоги.

Добавьте ссылки на системные сборки: Drawing, Report, Tab, Ui.

// Создаем пользовательский обработчик события OnObjectMoving
Sub UserOnObjectMoving(Sender: Object; Args: IReportObjectMovingEventArgs);
Begin
    Args.Cancel := Not WinApplication.ConfirmationBox("Переместить объект: " + Args.Object.Id);
End Sub UserOnObjectMoving;
// Вызываем пользовательский обработчик события OnObjectMoving
Public Sub UserProc;
Var
    Report: IPrxReport;
    Sheet: IPrxSheet;
    Tab: ITabSheet;
    rObject: ITabObject;
    Rect: IGxRectF;
    Argument: IReportObjectMovingEventArgs;
Begin
    Report := ReportBox1.Report.Report;
    Sheet := Report.Sheets.Item(0);
    Tab := (Sheet As IPrxTable).TabSheet;
    rObject := Tab.Objects.Object("PrxShape1") As ITabObject;
    Argument := New ReportObjectMovingEventArgs.Create(ReportBox1, Sheet, rObject, Rect, False);
    UserOnObjectMoving(ReportBox1, Argument);
End Sub UserProc;

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Ui;
…
// Создаем пользовательский обработчик события OnObjectMoving
Sub UserOnObjectMoving(Sender: Object; Args: IReportObjectMovingEventArgs);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    Args.Cancel := Not WinAppCls.ConfirmationBox("Переместить объект: " + Args.Object.Id, New IWin32WindowForeAdapter(Self));
End Sub UserOnObjectMoving;
// Назначаем событию OnObjectMoving пользовательский обработчик UserOnObjectMoving
Private Sub ReportOnObjectMovingEventArgs_Create_FormForm_Shown(sender: System.Object; e: System.EventArgs);
Begin
    ReportBoxNet1.OnObjectMoving += New Prognoz.Platform.Forms.Net.ReportBoxNet.OnObjectMovingEventHandler(UserOnObjectMoving);
End Sub;
// Вызываем пользовательский обработчик события OnObjectMoving
Public Sub UserProc();
Var
    Report: IPrxReport;
    Sheet: IPrxSheet;
    Tab: ITabSheet;
    rObject: ITabObject;
    Rect: GxRectFClass = New GxRectFClass.Create();
    Argument: ReportObjectMovingEventArgsClass = New ReportObjectMovingEventArgsClass.Create();
Begin
    Report := ReportBoxNet1.Source.Report;
    Sheet := Report.Sheets.Item[0];
    Tab := (Sheet As IPrxTable).TabSheet;
    rObject := Tab.Objects.Object["PrxShape1"] As ITabObject;
    Argument.Create(ReportBoxNet1.CtrlBox As ReportBox, Sheet, rObject, Rect, False);
    UserOnObjectMoving(ReportBoxNet1, Argument);
End Sub UserProc;

В результате выполнения процедура UserProc вызовет пользовательский обработчик UserOnObjectMoving.

См. также:

ReportObjectMovingEventArgs