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