paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 05:08:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-06-29 13:45:17 +02:00
parent adf843196a
commit e776368ac8
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-report/demos/webdemo.lpi
View File

@ -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>

3
packages/fcl-report/demos/wmreports.pp
View File

@ -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);