Browse Source

* Fix compilation.

Michaël Van Canneyt 2 years ago
parent
commit
e776368ac8
2 changed files with 8 additions and 6 deletions
  1. 6 5
      packages/fcl-report/demos/webdemo.lpi
  2. 2 1
      packages/fcl-report/demos/wmreports.pp

+ 6 - 5
packages/fcl-report/demos/webdemo.lpi

@@ -1,13 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="12"/>
     <General>
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
+        <CompatibilityMode Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="webdemo"/>
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
@@ -19,9 +19,10 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="1">
       <Item1>

+ 2 - 1
packages/fcl-report/demos/wmreports.pp

@@ -83,6 +83,7 @@ uses
   fpreportpdfexport,
   {$ENDIF}
   fpjson,
+  fpjsonreport,
   fpmimetypes;
 
 Type
@@ -477,7 +478,7 @@ begin
   FRunner:=TReportRunner.Create(Self);
   FRunner.Location:=ExtractFilePath(ParamStr(0));;
   FRunner.ReportApp:=TReportDemoApplication.GetReportClass(D).Create(Self);
-  FRunner.ReportApp.rpt:=TFPReport.Create(FRunner.ReportApp);
+  FRunner.ReportApp.rpt:=TFPJSONReport.Create(FRunner.ReportApp);
   FRunner.Format:=Fmt ;
   FRunner.location:=ExtractFilePath(ParamStr(0));
   RC:=TReportDemoApplication.GetRenderClass(Fmt);