ReportBox.OnBeforeObjectChange

Синтаксис

OnBeforeObjectChange (Sender: Object; Args: IReportObjectChangeEventArgs);

OnBeforeObjectChange (Sender: object; Args: Prognoz.Platform.Interop.Report.ReportObjectChangeEventArgs);

Параметры

Sender. Компонент, сгенерировавший событие;

Args. Параметры объекта, в котором произошло событие.

Описание

Событие OnBeforeObjectChange наступает перед изменением объекта.

Комментарии

Параметры объекта можно привести к различным интерфейсам в зависимости от типа изменения, которое произошло с объектом. Для этого используйте значение свойства IReportObjectChangeEventArgs.Type, возвращаемое параметром Args:

После изменения объекта наступает событие OnAfterObjectChange.

Пример

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

Указанная процедура должна быть назначена обработчиком события OnBeforeObjectChange для компонента ReportBox1.

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

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

Sub ReportBox1OnBeforeObjectChange(Sender: Object; Args: IReportObjectChangeEventArgs);
Var
    Rect: IReportBeforeObjectRectChangeEventArgs;
    Angle: IReportBeforeObjectAngleChangeEventArgs;
    RectPos: IGxRectF;
Begin
    Select Case Args.Type
        // Если объект повернули более, чем на 90 градусов, то отменяем вращение
        Case TabObjectChangeType.Angle:
            Angle := Args As IReportBeforeObjectAngleChangeEventArgs;
            If Angle.NewValue > 90 Then
                Angle.Cancel := True;
            End If;
        // Если нижняя граница объекта переместилась ниже 100 пикселей, то отменяем перемещение
        Case TabObjectChangeType.Rect:
            Rect := Args As IReportBeforeObjectRectChangeEventArgs;
            RectPos := Rect.NewValue;
            If RectPos.Bottom > 100 Then
                Rect.Cancel := True;
            End If;
    End Select;
End Sub ReportBox1OnBeforeObjectChange;

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Sub ReportBoxNet1OnBeforeObjectChange(Sender: object; Args: Prognoz.Platform.Interop.Report.ReportObjectChangeEventArgs);
Var
    Rect: IReportBeforeObjectRectChangeEventArgs;
    Angle: IReportBeforeObjectAngleChangeEventArgs;
    RectPos: IGxRectF;
Begin
    Select Case Args.Type
        // Если объект повернули более, чем на 90 градусов, то отменяем вращение
        Case TabObjectChangeType.toctAngle:
            Angle := Args As IReportBeforeObjectAngleChangeEventArgs;
            If Angle.NewValue > 90 Then
                Angle.Cancel := True;
            End If;
        // Если нижняя граница объекта переместилась ниже 100 пикселей, то отменяем перемещение
        Case TabObjectChangeType.toctRect:
            Rect := Args As IReportBeforeObjectRectChangeEventArgs;
            RectPos := Rect.NewValue;
            If RectPos.Bottom > 100 Then
                Rect.Cancel := True;
            End If;
    End Select;
End Sub ReportBoxNet1OnBeforeObjectChange;

В результате выполнения примера для всех фигур на листе будет отменяться вращение более, чем на 90 градусов и перемещение нижней границы ниже 100 пикселей.

См. также:

ReportBox