TabSheetBox.OnAfterObjectChange

Fore Syntax

Sub OnAfterObjectChange(Sender: Object;
Args: ITabObjectChangeEventArgs);

Begin

//set of operators;

End Sub OnAfterObjectChange;

Fore.NET Syntax

Private Sub OnAfterObjectChange(Sender: System.Object;
Args: Prognoz.Platform.Interop.Tab.TabObjectChangeEventArgs);

Begin

//set of operators;

End Sub;

Parameters

Sender. The component that generated an event.

Args. Parameters of the object, in which an event occurred.

Description

The OnAfterObjectChange event occurs after changing an object.

Comments

Before changing an object the OnBeforeObjectChange event occurs.

Fore Example

Executing the example requires a form containing the components:

TabSheetBox with the TabSheetBox1 identifier.
UiReport with the UiReport1 identifier that is a data source for TabSheetBox1. UiReport1 must also be active and contain a loaded regular report with shapes on an active sheet.

The specified procedure must be assigned by handler of the OnAfterObjectChange event for the TabSheetBox1 component.

Sub TabSheetBox1OnAfterObjectChange(Sender: Object; Args: ITabObjectChangeEventArgs);
Begin
    Select Case Args.Type
        Case TabObjectChangeType.Angle:
            Debug.WriteLine("Object '"+Args.Object.Id+"' is rotated");
        Case TabObjectChangeType.Rect:
            Debug.WriteLine("Object '"+Args.Object.Id+"' is moved or resized");
    End Select;
End Sub TabSheetBox1OnAfterObjectChange;

After executing the example, after the object is resized, moved or rotated, the console window displays a message with object identifier and description of the operation made on the object.

Fore.NET Example

The requirements and result of the Fore.NET Example execution match with those in the Fore Example. Use Fore.NET analogs instead of Fore components.

Private Sub tabSheetBoxNet1_OnAfterObjectChange(Sender: System.Object; Args: Prognoz.Platform.Interop.Tab.TabObjectChangeEventArgs);
Begin
    Select Case Args.Type
        Case TabObjectChangeType.toctAngle:
            System.Diagnostics.Debug.WriteLine("Object '"+Args.Object.Id+"' is rotated");
        Case TabObjectChangeType.toctRect:
            System.Diagnostics.Debug.WriteLine("Object '"+Args.Object.Id+"' is moved or resized");
    End Select;
End Sub;