1unit regreports;
2
3{$mode objfpc}{$H+}
4
5{$i demos.inc}
6
7interface
8
9uses
10  rptsimplelist,
11  rptexpressions,
12  rptgrouping,
13  rptgrouping2,
14  rptframes,
15  rptimages,
16  rptttf,
17  rptshapes,
18  rptdataset,
19  rptcolumns,
20  rptmasterdetail,
21{$IFDEF USEFIREBIRD}
22  rptmasterdetaildataset,
23{$ENDIF}
24  rptjson,
25  rptcontnr,
26  rptnestedgroups,
27  rptBarcode,
28  rptQRcode,
29  udapp
30  ;
31
32Procedure RegisterReports;
33
34implementation
35
36procedure RegisterReports;
37
38  Procedure R(AName : String; AClass : TReportDemoAppClass);
39
40  begin
41    TReportDemoApplication.RegisterReport(aName,AClass);
42  end;
43
44
45begin
46  R('simplelist',TSimpleListDemo);
47  R('expressions',TExpressionsDemo);
48  R('grouping',TGroupingDemo);
49  R('grouping2',TGrouping2Demo);
50  R('frames',TFramesDemo);
51  R('Images',TImagesDemo);
52  R('shapes',TShapesDemo);
53  R('truetypefonts',TTTFDemo);
54  R('dataset',TDatasetDemo);
55  R('columns',TColumnsDemo);
56  R('masterdetail',TMasterDetailDemo);
57  {$IFDEF USEFIREBIRD}
58  R('masterdetaildataset',TMasterDetailDatasetDemo);
59  {$ENDIF}
60  R('jsondata',TJSONDemo);
61  R('collectiondata',TCollectionDemo);
62  R('objectlistdata',TObjectListDemo);
63  R('nestedgroups',TNestedGroupsDemo);
64  R('barcode',TBarcodeDemo);
65  R('QRCode',TQRcodeDemo);
66end;
67
68initialization
69  RegisterReports;
70end.
71
72