IPrxReportUserEvents.EventOnAfterAddFormulaIsland

Fore Syntax

Sub EventOnAfterAddFormulaIsland(Args: IUiPrxFormulaIslandEventArgs);
Begin
//set of operators;
End Sub EventOnAfterAddFormulaIsland;

Fore.NET Syntax

Sub EventOnAfterAddFormulaIsland(Args: Prognoz.Platform.Interop.Report.UiPrxFormulaIslandEventArgs);
Begin
//set of operators;
End Sub EventOnAfterAddFormulaIsland;

Parameters

Args. The parameter that enables the user to work with event parameters.

Description

The EventOnAfterAddFormulaIsland method implements the event that occurs after adding a formula area.

Comments

To implement the event that occurs after deleting formula area, use the IPrxReportUserEvents.EventOnAfterDeleteFormulaIsland method.

Fore Example

Executing the example requires a regular report. Connect a unit to the regular report, select the connected unit an the EventsClass class as an event handler. Add links to the Metabase, Report, Ui system assemblies in the unit.

Class EventsClass: ReportEvents
Public Sub OnAfterAddFormulaIsland(FormulaIsland : IPrxFormulaIsland);
Begin
WinApplication.InformationBox("Formula area is added " + FormulaIsland.Id);
End Sub OnAfterAddFormulaIsland;
Public Sub OnAfterDeleteFormulaIsland(FormulaIsland : IPrxFormulaIsland);
Begin
WinApplication.InformationBox("Formula area is deleted " + FormulaIsland.Id);
End Sub OnAfterDeleteFormulaIsland;
End Class EventsClass;

An information message is displayed when the event occurs.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Ui;

Public Class EventsClass: PrxForeNetReportUserEventsClass
Public Override Sub OnAfterAddFormulaIsland(FormulaIsland : IPrxFormulaIsland);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Formula area is added " + FormulaIsland.Id, Null);
End Sub OnAfterAddFormulaIsland;
Public Override Sub OnAfterDeleteFormulaIsland(FormulaIsland : IPrxFormulaIsland);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Formula area is deleted " + FormulaIsland.Id, Null);
End Sub OnAfterDeleteFormulaIsland;
End Class EventsClass;