* MultiFile function

git-svn-id: trunk@37152 -

packages/fcl-report/src/fpreport.pp

@@ -251,6 +251,7 @@ type
     // DefaultExtension should return non-empty if output is file based.
     // Must contain .
     Class Function DefaultExtension : String; virtual;
+    Class Function MultiFile : Boolean; virtual;
     Function ShowConfig : Boolean;
   Published
     Property AutoRun : Boolean Read FAutoRun Write FAutoRun;
@@ -8807,6 +8808,11 @@ begin
   Result:='';
 end;
 
+class function TFPReportExporter.MultiFile: Boolean;
+begin
+  Result:=False;
+end;
+
 function TFPReportExporter.ShowConfig: Boolean;
 begin
   Result:=ReportExportManager.ConfigExporter(Self);

packages/fcl-report/src/fpreportfpimageexport.pp

@@ -124,6 +124,7 @@ type
     Class Function Name : String; override;
     Class Function Description : String; override;
     Class Function DefaultExtension: String; override;
+    Class Function MultiFile: Boolean; override;
     Procedure GenerateHTML(ImageFiles : TStrings);
     Procedure SetFileName(const aFileName: String); override;
     function GetFont(const AFontName: String): TFPCustomFont;
@@ -565,6 +566,11 @@ begin
   Result:='.png';
 end;
 
+class function TFPReportExportfpImage.MultiFile: Boolean;
+begin
+  Result:=True
+end;
+
 function TFPReportExportfpImage.SetupHTMLPageRender(const APage: TFPReportPage): THTMLElement;
 
 Var

packages/fcl-report/src/fpreporthtmlexport.pp

@@ -188,6 +188,7 @@ Type
     Class Function Name : String; override;
     Class Function Description : String; override;
     Class Function DefaultExtension: String; override;
+    Class Function MultiFile: Boolean; override;
     Procedure SetFileName(const aFileName: String); override;
     // Helper for color strings
     // Current element DIV
@@ -304,6 +305,11 @@ begin
   Result:='.html';
 end;
 
+class function TFPReportExportHTML.MultiFile: Boolean;
+begin
+  Result:=True;
+end;
+
 procedure TFPReportExportHTML.SetFileName(const aFileName: String);
 begin
   BaseFileName:=aFileName;