2
0
Эх сурвалжийг харах

* Dotted filenames for package fcl-report

Michaël Van Canneyt 2 жил өмнө
parent
commit
c5c40147e6
47 өөрчлөгдсөн 379 нэмэгдсэн , 11 устгасан
  1. 3 0
      packages/fcl-report/namespaced/FpReport.BarCode.pp
  2. 3 0
      packages/fcl-report/namespaced/FpReport.CanvasHelper.pp
  3. 3 0
      packages/fcl-report/namespaced/FpReport.Contnr.pp
  4. 3 0
      packages/fcl-report/namespaced/FpReport.Data.Csv.pp
  5. 3 0
      packages/fcl-report/namespaced/FpReport.Data.Db.pp
  6. 3 0
      packages/fcl-report/namespaced/FpReport.Data.Dbf.pp
  7. 3 0
      packages/fcl-report/namespaced/FpReport.Data.Json.pp
  8. 3 0
      packages/fcl-report/namespaced/FpReport.Data.Rest.pp
  9. 3 0
      packages/fcl-report/namespaced/FpReport.Data.SqlDb.pp
  10. 3 0
      packages/fcl-report/namespaced/FpReport.Data.pp
  11. 3 0
      packages/fcl-report/namespaced/FpReport.Dom.pp
  12. 3 0
      packages/fcl-report/namespaced/FpReport.Export.FpImage.pp
  13. 3 0
      packages/fcl-report/namespaced/FpReport.Export.Html.pp
  14. 3 0
      packages/fcl-report/namespaced/FpReport.Export.Pdf.pp
  15. 3 0
      packages/fcl-report/namespaced/FpReport.Expressions.pp
  16. 3 0
      packages/fcl-report/namespaced/FpReport.ExtFuncs.pp
  17. 3 0
      packages/fcl-report/namespaced/FpReport.Html.Parser.pp
  18. 3 0
      packages/fcl-report/namespaced/FpReport.Html.Utils.pp
  19. 3 0
      packages/fcl-report/namespaced/FpReport.Json.pp
  20. 3 0
      packages/fcl-report/namespaced/FpReport.Lazarus.pp
  21. 3 0
      packages/fcl-report/namespaced/FpReport.QrCode.pp
  22. 3 0
      packages/fcl-report/namespaced/FpReport.Report.pp
  23. 3 0
      packages/fcl-report/namespaced/FpReport.Streamer.pp
  24. 25 0
      packages/fcl-report/namespaces.lst
  25. 11 0
      packages/fcl-report/src/fpextfuncs.pp
  26. 7 0
      packages/fcl-report/src/fpjsonreport.pp
  27. 12 0
      packages/fcl-report/src/fplazreport.pp
  28. 11 0
      packages/fcl-report/src/fprepexprpars.pp
  29. 29 0
      packages/fcl-report/src/fpreport.pp
  30. 11 0
      packages/fcl-report/src/fpreportbarcode.pp
  31. 12 1
      packages/fcl-report/src/fpreportcanvashelper.pp
  32. 11 0
      packages/fcl-report/src/fpreportcontnr.pp
  33. 7 0
      packages/fcl-report/src/fpreportdata.pp
  34. 7 0
      packages/fcl-report/src/fpreportdatacsv.pp
  35. 7 0
      packages/fcl-report/src/fpreportdatadbf.pp
  36. 11 0
      packages/fcl-report/src/fpreportdatajson.pp
  37. 7 0
      packages/fcl-report/src/fpreportdatasqldb.pp
  38. 7 0
      packages/fcl-report/src/fpreportdb.pp
  39. 7 0
      packages/fcl-report/src/fpreportdom.pp
  40. 33 6
      packages/fcl-report/src/fpreportfpimageexport.pp
  41. 30 2
      packages/fcl-report/src/fpreporthtmlexport.pp
  42. 7 0
      packages/fcl-report/src/fpreporthtmlparser.pp
  43. 11 0
      packages/fcl-report/src/fpreporthtmlutil.pp
  44. 9 2
      packages/fcl-report/src/fpreportjson.pp
  45. 18 0
      packages/fcl-report/src/fpreportpdfexport.pp
  46. 11 0
      packages/fcl-report/src/fpreportqrcode.pp
  47. 9 0
      packages/fcl-report/src/fpreportstreamer.pp

+ 3 - 0
packages/fcl-report/namespaced/FpReport.BarCode.pp

@@ -0,0 +1,3 @@
+unit FpReport.BarCode;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportbarcode.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.CanvasHelper.pp

@@ -0,0 +1,3 @@
+unit FpReport.CanvasHelper;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportcanvashelper.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Contnr.pp

@@ -0,0 +1,3 @@
+unit FpReport.Contnr;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportcontnr.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Data.Csv.pp

@@ -0,0 +1,3 @@
+unit FpReport.Data.Csv;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportdatacsv.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Data.Db.pp

@@ -0,0 +1,3 @@
+unit FpReport.Data.Db;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportdb.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Data.Dbf.pp

@@ -0,0 +1,3 @@
+unit FpReport.Data.Dbf;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportdatadbf.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Data.Json.pp

@@ -0,0 +1,3 @@
+unit FpReport.Data.Json;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportjson.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Data.Rest.pp

@@ -0,0 +1,3 @@
+unit FpReport.Data.Rest;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportdatajson.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Data.SqlDb.pp

@@ -0,0 +1,3 @@
+unit FpReport.Data.SqlDb;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportdatasqldb.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Data.pp

@@ -0,0 +1,3 @@
+unit FpReport.Data;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportdata.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Dom.pp

@@ -0,0 +1,3 @@
+unit FpReport.Dom;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportdom.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Export.FpImage.pp

@@ -0,0 +1,3 @@
+unit FpReport.Export.FpImage;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportfpimageexport.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Export.Html.pp

@@ -0,0 +1,3 @@
+unit FpReport.Export.Html;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreporthtmlexport.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Export.Pdf.pp

@@ -0,0 +1,3 @@
+unit FpReport.Export.Pdf;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportpdfexport.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Expressions.pp

@@ -0,0 +1,3 @@
+unit FpReport.Expressions;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fprepexprpars.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.ExtFuncs.pp

@@ -0,0 +1,3 @@
+unit FpReport.ExtFuncs;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpextfuncs.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Html.Parser.pp

@@ -0,0 +1,3 @@
+unit FpReport.Html.Parser;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreporthtmlparser.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Html.Utils.pp

@@ -0,0 +1,3 @@
+unit FpReport.Html.Utils;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreporthtmlutil.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Json.pp

@@ -0,0 +1,3 @@
+unit FpReport.Json;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpjsonreport.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Lazarus.pp

@@ -0,0 +1,3 @@
+unit FpReport.Lazarus;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fplazreport.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.QrCode.pp

@@ -0,0 +1,3 @@
+unit FpReport.QrCode;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportqrcode.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Report.pp

@@ -0,0 +1,3 @@
+unit FpReport.Report;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreport.pp}

+ 3 - 0
packages/fcl-report/namespaced/FpReport.Streamer.pp

@@ -0,0 +1,3 @@
+unit FpReport.Streamer;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpreportstreamer.pp}

+ 25 - 0
packages/fcl-report/namespaces.lst

@@ -0,0 +1,25 @@
+src/fpreportdata.pp=namespaced/FpReport.Data.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/fpreportpdfexport.pp=namespaced/FpReport.Export.Pdf.pp
+src/fpreportdatajson.pp=namespaced/FpReport.Data.Rest.pp
+src/fpreporthtmlexport.pp=namespaced/FpReport.Export.Html.pp
+src/fpreportfpimageexport.pp=namespaced/FpReport.Export.FpImage.pp
+src/fpreportdb.pp=namespaced/FpReport.Data.Db.pp
+src/fpreportcanvashelper.pp=namespaced/FpReport.CanvasHelper.pp
+src/fpreportdatadbf.pp=namespaced/FpReport.Data.Dbf.pp
+src/fpreportqrcode.pp=namespaced/FpReport.QrCode.pp
+src/fpreportbarcode.pp=namespaced/FpReport.BarCode.pp
+src/fpreporthtmlutil.pp=namespaced/FpReport.Html.Utils.pp
+src/fpjsonreport.pp=namespaced/FpReport.Json.pp
+src/fpreportdatacsv.pp=namespaced/FpReport.Data.Csv.pp
+src/fpextfuncs.pp=namespaced/FpReport.ExtFuncs.pp
+src/fpreport.pp=namespaced/FpReport.Report.pp
+src/fplazreport.pp=namespaced/FpReport.Lazarus.pp
+src/fpreportstreamer.pp=namespaced/FpReport.Streamer.pp
+src/fpreportcontnr.pp=namespaced/FpReport.Contnr.pp
+src/fpreportdom.pp=namespaced/FpReport.Dom.pp
+src/fpreportdatasqldb.pp=namespaced/FpReport.Data.SqlDb.pp
+src/fpreporthtmlparser.pp=namespaced/FpReport.Html.Parser.pp
+src/fprepexprpars.pp=namespaced/FpReport.Expressions.pp
+src/fpreportjson.pp=namespaced/FpReport.Data.Json.pp

+ 11 - 0
packages/fcl-report/src/fpextfuncs.pp

@@ -13,18 +13,29 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpExtFuncs;
 unit fpExtFuncs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  System.StrUtils,
+  System.DateUtils,
+  Fcl.Expressions;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes,
   Classes,
   SysUtils,
   SysUtils,
   StrUtils,
   StrUtils,
   DateUtils,
   DateUtils,
   fpexprpars;
   fpexprpars;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 
 
 procedure RegisterExtraFunctions;
 procedure RegisterExtraFunctions;

+ 7 - 0
packages/fcl-report/src/fpjsonreport.pp

@@ -13,14 +13,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpjsonreport;
 unit fpjsonreport;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpReport.Report, FpJson.Data, FpReport.Streamer, FPReport.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, fpreport, fpjson, fpreportstreamer, fpreportdata;
   Classes, SysUtils, fpreport, fpjson, fpreportstreamer, fpreportdata;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
 
 

+ 12 - 0
packages/fcl-report/src/fplazreport.pp

@@ -13,14 +13,22 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fplazreport;
 unit fplazreport;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpReport.Report, Xml.Dom, FpImage.Canvas, FpPdf.Ttf, 
+  FpReport.Data.Db, FpReport.BarCode;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, fpreport, DOM, FPCanvas, fpTTF, fpreportdb, fpreportbarcode;
   Classes, SysUtils, fpreport, DOM, FPCanvas, fpTTF, fpreportdb, fpreportbarcode;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
   TCustomPropEvent = procedure(Sender: TObject;Data : TDOMNode) of object;
   TCustomPropEvent = procedure(Sender: TObject;Data : TDOMNode) of object;
@@ -84,7 +92,11 @@ Type
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.DateUtils, Xml.Read,FpImage.Reader.PNG,FpImage,FpImage.Reader.GIF,FpImage.Reader.JPEG,FpImage.BarCode;
+{$ELSE FPC_DOTTEDUNITS}
 uses dateutils, XMLRead,FPReadPNG,FPimage,FPReadGif,FPReadJPEG,fpbarcode;
 uses dateutils, XMLRead,FPReadPNG,FPimage,FPReadGif,FPReadJPEG,fpbarcode;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Resourcestring
 Resourcestring
   SLogUnknownClass = 'Ignoring unknown lazreport class type for object "%s": "%s".';
   SLogUnknownClass = 'Ignoring unknown lazreport class type for object "%s": "%s".';

+ 11 - 0
packages/fcl-report/src/fprepexprpars.pp

@@ -15,12 +15,19 @@
  **********************************************************************}
  **********************************************************************}
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fprepexprpars;
 unit fprepexprpars;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, System.Contnrs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, contnrs;
   Classes, SysUtils, contnrs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
   // tokens
   // tokens
@@ -826,7 +833,11 @@ function ArgToFloat(Arg: TFPExpressionResult): TExprFloat;
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.TypInfo;
+{$ELSE FPC_DOTTEDUNITS}
 uses typinfo;
 uses typinfo;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 { TFPExpressionParser }
 { TFPExpressionParser }
 
 

+ 29 - 0
packages/fcl-report/src/fpreport.pp

@@ -14,7 +14,9 @@
 
 
  **********************************************************************}
  **********************************************************************}
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreport;
 unit fpreport;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 {$inline on}
 {$inline on}
@@ -26,6 +28,23 @@ unit fpreport;
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  System.Variants,
+  System.Contnrs,
+  FpImage.Canvas,
+  FpImage,
+  FpPdf.Ttf,
+  FpReport.Streamer,
+{$IF FPC_FULLVERSION>=30101}
+  Fcl.Expressions,
+{$ELSE}
+  FpReport.Expressions,
+{$ENDIF}
+  FpReport.Html.Parser;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes,
   Classes,
   SysUtils,
   SysUtils,
@@ -41,6 +60,7 @@ uses
   fprepexprpars,
   fprepexprpars,
 {$ENDIF}
 {$ENDIF}
   fpReportHTMLParser;
   fpReportHTMLParser;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 type
 type
 
 
@@ -2368,12 +2388,21 @@ Var
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.StrUtils,
+  System.TypInfo,
+  FpImage.Reader.PNG,
+  FpImage.Writer.PNG,
+  System.Hash.Base64;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   strutils,
   strutils,
   typinfo,
   typinfo,
   FPReadPNG,
   FPReadPNG,
   FPWritePNG,
   FPWritePNG,
   base64;
   base64;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 resourcestring
 resourcestring
   cPageCountMarker = '~PC~';
   cPageCountMarker = '~PC~';

+ 11 - 0
packages/fcl-report/src/fpreportbarcode.pp

@@ -12,15 +12,22 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportbarcode;
 unit fpreportbarcode;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$H+}
 {$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, FpImage, Fcl.Expressions, FpImage.ImgBarCode, FpImage.BarCode, FpReport.Report, FpReport.Streamer;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, fpimage, fpexprpars, fpimgbarcode, fpbarcode, fpreport, fpreportstreamer;
   Classes, fpimage, fpexprpars, fpimgbarcode, fpbarcode, fpreport, fpreportstreamer;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
 
 
@@ -61,7 +68,11 @@ Procedure UnRegisterReportBarcode;
   
   
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.TypInfo, System.StrUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses typinfo, strutils;
 uses typinfo, strutils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 
 
 { TFPReportBarcode }
 { TFPReportBarcode }

+ 12 - 1
packages/fcl-report/src/fpreportcanvashelper.pp

@@ -2,7 +2,7 @@
     This file is part of the Free Component Library.
     This file is part of the Free Component Library.
     Copyright (c) 2017 Michael Van Canneyt, member of the Free Pascal development team
     Copyright (c) 2017 Michael Van Canneyt, member of the Free Pascal development team
 
 
-    Canvas helper class for fpReport. Used by HTML and FPImage exporters.[B
+    Canvas helper class for fpReport. Used by HTML and FpImage exporters.[B
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
     for details about the copyright.
@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportcanvashelper;
 unit fpreportcanvashelper;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpImage, FpReport.Report, FpImage.Canvas;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, fpimage, fpreport, fpcanvas;
   Classes, SysUtils, fpimage, fpreport, fpcanvas;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
 
 
@@ -53,7 +60,11 @@ const
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.Math;
+{$ELSE FPC_DOTTEDUNITS}
 uses math;
 uses math;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
   TReportImageFriend = class(TFPReportCustomImage);
   TReportImageFriend = class(TFPReportCustomImage);

+ 11 - 0
packages/fcl-report/src/fpreportcontnr.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportcontnr;
 unit fpreportcontnr;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpReport.Report, System.Contnrs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, fpreport, contnrs;
   Classes, SysUtils, fpreport, contnrs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
   { TFPReportObjectData }
   { TFPReportObjectData }
@@ -79,7 +86,11 @@ Type
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.TypInfo, System.Variants;
+{$ELSE FPC_DOTTEDUNITS}
 uses typinfo, variants;
 uses typinfo, variants;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 { TFPReportObjectListData }
 { TFPReportObjectListData }
 
 

+ 7 - 0
packages/fcl-report/src/fpreportdata.pp

@@ -14,13 +14,20 @@
 
 
  **********************************************************************}
  **********************************************************************}
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportdata;
 unit fpreportdata;
+{$ENDIF FPC_DOTTEDUNITS}
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, Data.Db, FpJson.Data, FpReport.Report, FpReport.Data.Db;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, DB, fpjson, fpreport, fpreportdb;
   Classes, SysUtils, DB, fpjson, fpreport, fpreportdb;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
   EReportDataError = class(EReportError);
   EReportDataError = class(EReportError);

+ 7 - 0
packages/fcl-report/src/fpreportdatacsv.pp

@@ -13,14 +13,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportdatacsv;
 unit fpreportdatacsv;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, Data.Db, Data.BufDataset, Data.CsvDataset, FpJson.Data, FpReport.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, db, bufdataset, csvdataset, fpjson, fpreportdata;
   Classes, SysUtils, db, bufdataset, csvdataset, fpjson, fpreportdata;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Const
 Const
   keyFileName = 'filename';
   keyFileName = 'filename';

+ 7 - 0
packages/fcl-report/src/fpreportdatadbf.pp

@@ -13,14 +13,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportdatadbf;
 unit fpreportdatadbf;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, Data.Db, Data.Dbf.Dbf, FpJson.Data, FpReport.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, db, dbf, fpjson, fpreportdata;
   Classes, SysUtils, db, dbf, fpjson, fpreportdata;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 
 
 Const
 Const

+ 11 - 0
packages/fcl-report/src/fpreportdatajson.pp

@@ -13,14 +13,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportdatajson;
 unit fpreportdatajson;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, Data.Db, Data.JsonDataset, FpJson.Data, FpReport.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, db, fpjsondataset, fpjson, fpreportdata;
   Classes, SysUtils, db, fpjsondataset, fpjson, fpreportdata;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 { TDBFReportDataFrame }
 { TDBFReportDataFrame }
 
 
@@ -104,7 +111,11 @@ Resourcestring
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.TypInfo, FpJson.Parser,Fcl.UriParser, FpWeb.Http.Client;
+{$ELSE FPC_DOTTEDUNITS}
 uses typinfo,jsonparser,uriparser, fphttpclient;
 uses typinfo,jsonparser,uriparser, fphttpclient;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Function FieldTypeToString(Ft : TFieldType; Strict : Boolean) : String;
 Function FieldTypeToString(Ft : TFieldType; Strict : Boolean) : String;
 
 

+ 7 - 0
packages/fcl-report/src/fpreportdatasqldb.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportdatasqldb;
 unit fpreportdatasqldb;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, System.StrUtils, Data.Sqldb, Data.Db, FpJson.Data, FpReport.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, strutils, sqldb, db, fpjson, fpreportdata;
   Classes, SysUtils, strutils, sqldb, db, fpjson, fpreportdata;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Const
 Const
   keyConnection   = 'connection';
   keyConnection   = 'connection';

+ 7 - 0
packages/fcl-report/src/fpreportdb.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportdb;
 unit fpreportdb;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpReport.Report, Data.Db;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, fpreport, db;
   Classes, SysUtils, fpreport, db;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
 
 

+ 7 - 0
packages/fcl-report/src/fpreportdom.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportdom;
 unit fpreportdom;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, Xml.Dom;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, DOM;
   Classes, SysUtils, DOM;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
   { TFPReportDOM }
   { TFPReportDOM }

+ 33 - 6
packages/fcl-report/src/fpreportfpimageexport.pp

@@ -3,7 +3,7 @@
     Copyright (c) 2016 Michael Van Canneyt,
     Copyright (c) 2016 Michael Van Canneyt,
     member of the Free Pascal development team
     member of the Free Pascal development team
 
 
-    FPReport FPImage export filter.
+    FPReport FpImage export filter.
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
     for details about the copyright.
@@ -14,19 +14,37 @@
 
 
  **********************************************************************}
  **********************************************************************}
 {
 {
-  FPImage Export filter.
+  FpImage Export filter.
 
 
-  FPImage is included as standard with FPC. This exporter uses those classes
+  FpImage is included as standard with FPC. This exporter uses those classes
   to generate image output. One image per report page, and by default as a
   to generate image output. One image per report page, and by default as a
   PNG image.
   PNG image.
 
 
 }
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportfpimageexport;
 unit fpreportfpimageexport;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  FpReport.Report,
+  FpImage,
+  FpImage.Canvas,
+  FpReport.CanvasHelper,
+  System.Contnrs,
+  Xml.Dom,
+  Html.Dom,
+  Xml.HtmWrite,
+  FpImage.Common,
+  FpImage.ImageCanvas,
+  FpReport.Html.Utils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes,
   Classes,
   SysUtils,
   SysUtils,
@@ -41,6 +59,7 @@ uses
   FPImgCmn,
   FPImgCmn,
   fpimgcanv,
   fpimgcanv,
   fpreporthtmlutil;
   fpreporthtmlutil;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 type
 type
 
 
@@ -149,11 +168,19 @@ type
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  FpImage.Ftfont,
+  FpPdf.Ttf,
+  FpPdf.Ttf.Parser,
+  FpImage.Writer.PNG;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   ftFont,
   ftFont,
   fpTTF,
   fpTTF,
   fpparsettf,
   fpparsettf,
   fpwritepng;
   fpwritepng;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 
 
 //  RGBA_Width = 4;
 //  RGBA_Width = 4;
@@ -413,7 +440,7 @@ begin
       );
       );
     end;
     end;
     Canvas.Font.FPColor := ColorToRGBTriple(txtblk.FGColor);
     Canvas.Font.FPColor := ColorToRGBTriple(txtblk.FGColor);
-    { FPImage text origin coordinate is Bottom-Left, and Report Layout is Top-Left }
+    { FpImage text origin coordinate is Bottom-Left, and Report Layout is Top-Left }
     lYPos := lYPos + txtblk.Height;
     lYPos := lYPos + txtblk.Height;
     Canvas.TextOut(
     Canvas.TextOut(
         mmToPixels(lXPos),
         mmToPixels(lXPos),
@@ -563,12 +590,12 @@ end;
 
 
 class function TFPReportExportfpImage.Name: String;
 class function TFPReportExportfpImage.Name: String;
 begin
 begin
-  Result:='FPImage';
+  Result:='FpImage';
 end;
 end;
 
 
 class function TFPReportExportfpImage.Description: String;
 class function TFPReportExportfpImage.Description: String;
 begin
 begin
-  Result:='Image file export (using FPImage)';
+  Result:='Image file export (using FpImage)';
 end;
 end;
 
 
 class function TFPReportExportfpImage.DefaultExtension: String;
 class function TFPReportExportfpImage.DefaultExtension: String;

+ 30 - 2
packages/fcl-report/src/fpreporthtmlexport.pp

@@ -3,7 +3,7 @@
     Copyright (c) 2016 Michael Van Canneyt,
     Copyright (c) 2016 Michael Van Canneyt,
     member of the Free Pascal development team
     member of the Free Pascal development team
 
 
-    FPReport FPImage export filter.
+    FPReport FpImage export filter.
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
     for details about the copyright.
@@ -16,16 +16,34 @@
 {
 {
   HTML Export filter.
   HTML Export filter.
 
 
-  FPImage is included as standard with FPC. This exporter uses those classes
+  FpImage is included as standard with FPC. This exporter uses those classes
   to generate image output. 
   to generate image output. 
 
 
 }
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreporthtmlexport;
 unit fpreporthtmlexport;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  FpReport.Report,
+  FpImage,
+  FpImage.Canvas,
+  System.Contnrs,
+  FpImage.Common,
+  Xml.Dom,
+  Html.Dom,
+  Xml.HtmWrite,
+  FpReport.CanvasHelper,
+  FpReport.Html.Utils,
+  FpImage.ImageCanvas;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes,
   Classes,
   SysUtils,
   SysUtils,
@@ -40,6 +58,7 @@ uses
   fpreportcanvashelper,
   fpreportcanvashelper,
   fpreporthtmlutil,
   fpreporthtmlutil,
   fpimgcanv;
   fpimgcanv;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 type
 type
   TStyleElement = (sePosition,seSize, seFrame, seBackGroundColor);
   TStyleElement = (sePosition,seSize, seFrame, seBackGroundColor);
@@ -226,12 +245,21 @@ Type
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  // ftFont,
+  FpPdf.Ttf,
+  FpPdf.Ttf.Parser,
+  System.Hash.Base64,
+  FpImage.Writer.PNG;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   // ftFont,
   // ftFont,
   fpTTF,
   fpTTF,
   fpparsettf,
   fpparsettf,
   base64,
   base64,
   fpwritepng;
   fpwritepng;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 //  RGBA_Width = 4;
 //  RGBA_Width = 4;
 
 

+ 7 - 0
packages/fcl-report/src/fpreporthtmlparser.pp

@@ -115,13 +115,20 @@
 
 
 // {$DEFINE DEBUGLN_ON}
 // {$DEFINE DEBUGLN_ON}
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpReportHTMLParser;
 unit fpReportHTMLParser;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   SysUtils;
   SysUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 
 
 {$IFDEF DEBUGLN_ON}
 {$IFDEF DEBUGLN_ON}

+ 11 - 0
packages/fcl-report/src/fpreporthtmlutil.pp

@@ -13,14 +13,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreporthtmlutil;
 unit fpreporthtmlutil;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpImage, FpReport.Report, Xml.Dom, Html.Dom;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, fpimage, fpreport, dom, dom_html;
   Classes, SysUtils, fpimage, fpreport, dom, dom_html;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
 
 
@@ -234,7 +241,11 @@ resourcestring
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses Xml.HtmWrite;
+{$ELSE FPC_DOTTEDUNITS}
 uses htmwrite;
 uses htmwrite;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 { Auxiliary functions }
 { Auxiliary functions }
 
 

+ 9 - 2
packages/fcl-report/src/fpreportjson.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportjson;
 unit fpreportjson;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, FpReport.Report, FpJson.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, SysUtils, fpreport, fpjson;
   Classes, SysUtils, fpreport, fpjson;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
 
 
@@ -126,7 +133,7 @@ begin
     JSON:=Nil
     JSON:=Nil
   else
   else
     begin
     begin
-    aJSON:=fpjson.GetJSON(aValue);
+    aJSON:=fpjson.{$IFDEF FPC_DOTTEDUNITS}Data.{$ENDIF}GetJSON(aValue);
     try
     try
       JSON:=aJSON;
       JSON:=aJSON;
       OwnsJSON:=True;
       OwnsJSON:=True;
@@ -274,7 +281,7 @@ Var
 
 
 begin
 begin
   try
   try
-    aJSON:=fpjson.GetJSON(S);
+    aJSON:=fpjson.{$IFDEF FPC_DOTTEDUNITS}Data.{$ENDIF}GetJSON(S);
     JSON:=aJSON;
     JSON:=aJSON;
     OwnsJSON:=True;
     OwnsJSON:=True;
   except
   except

+ 18 - 0
packages/fcl-report/src/fpreportpdfexport.pp

@@ -12,18 +12,29 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportpdfexport;
 unit fpreportpdfexport;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  FpImage,
+  FpReport.Report,
+  FpPdf.Pdf;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes,
   Classes,
   SysUtils,
   SysUtils,
   fpImage,
   fpImage,
   fpreport,
   fpreport,
   fpPDF;
   fpPDF;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$IF FPC_FULLVERSION>=30101}
 {$IF FPC_FULLVERSION>=30101}
 {$DEFINE PDF_HASISSTANDARDPDFFONT}
 {$DEFINE PDF_HASISSTANDARDPDFFONT}
@@ -77,10 +88,17 @@ type
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  FpImage.Canvas,
+  FpPdf.Ttf,
+  FpPdf.Ttf.Parser;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   FPCanvas,
   FPCanvas,
   fpTTF,
   fpTTF,
   fpparsettf;
   fpparsettf;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 
 
 { TFPReportExportPDF }
 { TFPReportExportPDF }

+ 11 - 0
packages/fcl-report/src/fpreportqrcode.pp

@@ -12,15 +12,22 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpreportqrcode;
 unit fpreportqrcode;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$MODE objfpc}
 {$MODE objfpc}
 {$H+}
 {$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, FpImage, Fcl.Expressions, FpImage.QRCode, FpImage.QRCodeGen, FpReport.Report, FPReport.Streamer;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes, fpimage, fpexprpars, fpimgqrcode, fpqrcodegen, fpreport, fpreportstreamer;
   Classes, fpimage, fpexprpars, fpimgqrcode, fpqrcodegen, fpreport, fpreportstreamer;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 Type
 Type
 
 
@@ -62,7 +69,11 @@ Procedure UnRegisterReportQRCode;
   
   
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.TypInfo, System.StrUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses typinfo, strutils;
 uses typinfo, strutils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 
 
 { TFPReportQRCode }
 { TFPReportQRCode }

+ 9 - 0
packages/fcl-report/src/fpreportstreamer.pp

@@ -14,16 +14,25 @@
 
 
  **********************************************************************}
  **********************************************************************}
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpReportStreamer;
 unit fpReportStreamer;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes,
+  System.SysUtils,
+  FpJson.Data;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Classes,
   Classes,
   SysUtils,
   SysUtils,
   fpjson;
   fpjson;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 type
 type