mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 12:47:55 +02:00
72 lines
1.2 KiB
ObjectPascal
72 lines
1.2 KiB
ObjectPascal
unit regreports;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
{$i demos.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
rptsimplelist,
|
|
rptexpressions,
|
|
rptgrouping,
|
|
rptgrouping2,
|
|
rptframes,
|
|
rptimages,
|
|
rptttf,
|
|
rptshapes,
|
|
rptdataset,
|
|
rptcolumns,
|
|
rptmasterdetail,
|
|
{$IFDEF USEFIREBIRD}
|
|
rptmasterdetaildataset,
|
|
{$ENDIF}
|
|
rptjson,
|
|
rptcontnr,
|
|
rptnestedgroups,
|
|
rptBarcode,
|
|
rptQRcode,
|
|
udapp
|
|
;
|
|
|
|
Procedure RegisterReports;
|
|
|
|
implementation
|
|
|
|
procedure RegisterReports;
|
|
|
|
Procedure R(AName : String; AClass : TReportDemoAppClass);
|
|
|
|
begin
|
|
TReportDemoApplication.RegisterReport(aName,AClass);
|
|
end;
|
|
|
|
|
|
begin
|
|
R('simplelist',TSimpleListDemo);
|
|
R('expressions',TExpressionsDemo);
|
|
R('grouping',TGroupingDemo);
|
|
R('grouping2',TGrouping2Demo);
|
|
R('frames',TFramesDemo);
|
|
R('Images',TImagesDemo);
|
|
R('shapes',TShapesDemo);
|
|
R('truetypefonts',TTTFDemo);
|
|
R('dataset',TDatasetDemo);
|
|
R('columns',TColumnsDemo);
|
|
R('masterdetail',TMasterDetailDemo);
|
|
{$IFDEF USEFIREBIRD}
|
|
R('masterdetaildataset',TMasterDetailDatasetDemo);
|
|
{$ENDIF}
|
|
R('jsondata',TJSONDemo);
|
|
R('collectiondata',TCollectionDemo);
|
|
R('objectlistdata',TObjectListDemo);
|
|
R('nestedgroups',TNestedGroupsDemo);
|
|
R('barcode',TBarcodeDemo);
|
|
R('QRCode',TQRcodeDemo);
|
|
end;
|
|
|
|
initialization
|
|
RegisterReports;
|
|
end.
|
|
|