IPrxFlash.ExportCondition

Syntax

ExportCondition: PrxFlashExportCondition;

Description

The ExportCondition property determines a condition of exporting Flash objects.

Fore Example

Executing the example requires that the repository contains a regular report with the REGULAR_REPORT identifier. The active sheet of the report contains only a Flash object. Add links to the Metabase, Report, Tab system assemblies.

Sub Main;
Var
    MB: IMetabase;
    Rep: IPrxReport;
    SheetT: IPrxTable;
    Tab: ITabSheet;
    Fl: IPrxFlash;
    exp: IPrxReportExporter;
    Param: Array Of Variant;
Begin
    MB := MetabaseClass.Active;
    Rep := MB.ItemById("REGULAR_REPORT").Bind As IPrxReport;
    SheetT := Rep.Sheets.Item(0) As IPrxTable;
    Tab := SheetT.TabSheet;
    exp := New PrxReportExporter.Create;

    exp.ExportFlashsAsImages := True;
    exp.Report := Rep;
    exp.Sheet := Rep.ActiveSheet;
    Fl := Tab.Objects.Item(0).Extension As IPrxFlash;
    Fl.ExportCondition := PrxFlashExportCondition.Frame;
    Param := New Variant[2];
    Param[0] := 0;
    Param[1] := -1;
    Fl.ExportConditionParams := Param;
    Exp.ExportToFile("C:\Report.rtf", "rtf");
End Sub Main;

After executing the example the active sheet of the regular report is exported to the C:\Report.rtf file. The Flash object on the active sheet of the report is exported as an image, which is the first frame of the Flash object.

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.Tab;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Rep: IPrxReport;
    SheetT: IPrxTable;
    Tab: ITabSheet;
    Fl: IPrxFlash;
    Param: Array Of object;
    exp: IPrxReportExporter = New PrxReportExporterClass();
Begin
    MB := Params.Metabase;
    Rep := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    SheetT := Rep.Sheets.Item[0] As IPrxTable;
    Tab := SheetT.TabSheet;
    exp.Report := Rep;
    exp.ExportFlashsAsImages := True;
    exp.Report := Rep;
    exp.Sheet := Rep.ActiveSheet;
    Fl := Tab.Objects.Item[0].Extension As IPrxFlash;
    Fl.ExportCondition := PrxFlashExportCondition.pfecFrame;
    Param := New object[2];
    Param[0] := 0;
    Param[1] := -1;
    Fl.ExportConditionParams := Param;
    (Rep As IMetabaseObject).Save();
    exp.ExportToFile("C:\Report.rtf", "rtf");
End Sub;