paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 09:00:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* LCL Demo for reports

Browse Source 
git-svn-id: trunk@55722 -
This commit is contained in:
michael 2017-08-20 19:07:28 +00:00
parent f0ad239abd
commit db6c999453
3 changed files with 141 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -1486,6 +1486,8 @@ components/fpreport/cfgfpreportimageexport.lfm svneol=native#text/plain
components/fpreport/cfgfpreportimageexport.pp svneol=native#text/plain
components/fpreport/cfgfpreportpdfexport.lfm svneol=native#text/plain
components/fpreport/cfgfpreportpdfexport.pp svneol=native#text/plain
components/fpreport/demo/lcldemo.lpi svneol=native#text/plain
components/fpreport/demo/lcldemo.lpr svneol=native#text/plain
components/fpreport/design/bitmaps/bitmaps.lst svneol=native#text/plain
components/fpreport/design/bitmaps/tfpjsonreport.png -text svneol=unset#image/png
components/fpreport/design/bitmaps/tfpreport.png -text svneol=unset#image/png

123
components/fpreport/demo/lcldemo.lpi Normal file
View File

@ -0,0 +1,123 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="FPReport LCL Demo"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="-d simplelist"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="lclfpreport"/>
</Item1>
</RequiredPackages>
<Units Count="14">
<Unit0>
<Filename Value="lcldemo.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="regreports.pp"/>
<IsPartOfProject Value="True"/>
</Unit1>
<Unit2>
<Filename Value="rptsimplelist.pp"/>
<IsPartOfProject Value="True"/>
</Unit2>
<Unit3>
<Filename Value="rptexpressions.pp"/>
<IsPartOfProject Value="True"/>
</Unit3>
<Unit4>
<Filename Value="rptgrouping.pp"/>
<IsPartOfProject Value="True"/>
</Unit4>
<Unit5>
<Filename Value="rptframes.pp"/>
<IsPartOfProject Value="True"/>
</Unit5>
<Unit6>
<Filename Value="rptimages.pp"/>
<IsPartOfProject Value="True"/>
</Unit6>
<Unit7>
<Filename Value="rptdataset.pp"/>
<IsPartOfProject Value="True"/>
</Unit7>
<Unit8>
<Filename Value="rptshapes.pp"/>
<IsPartOfProject Value="True"/>
</Unit8>
<Unit9>
<Filename Value="rptttf.pp"/>
<IsPartOfProject Value="True"/>
</Unit9>
<Unit10>
<Filename Value="rptcolumns.pp"/>
<IsPartOfProject Value="True"/>
</Unit10>
<Unit11>
<Filename Value="rptmasterdetail.pp"/>
<IsPartOfProject Value="True"/>
</Unit11>
<Unit12>
<Filename Value="rptmasterdetaildataset.pp"/>
<IsPartOfProject Value="True"/>
</Unit12>
<Unit13>
<Filename Value="polygon/reportpolygon.pas"/>
<IsPartOfProject Value="True"/>
</Unit13>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="lcldemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="polygon"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CustomOptions Value="-dexportlcl"/>
<OtherDefines Count="1">
<Define0 Value="exportlcl"/>
</OtherDefines>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

16
components/fpreport/demo/lcldemo.lpr Normal file
View File

@ -0,0 +1,16 @@
program lcldemo;
uses
udapp, regreports, rptcolumns, rptdataset, rptexpressions, rptframes,
rptgrouping, rptimages, rptmasterdetail, rptmasterdetaildataset, rptshapes,
rptsimplelist, rptttf;
Var
Application : TReportDemoApplication;
begin
Application:=TReportDemoApplication.Create(Nil);
Application.Initialize;
Application.Run;
end.