diff --git a/components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas b/components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas index 4d26afcbd7..659aa3330b 100644 --- a/components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas +++ b/components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas @@ -372,7 +372,9 @@ end; begin if gTTFontCache.Count = 0 then begin + {$IF (FPC_FULLVERSION >= 30101)} gTTFontCache.BuildFontCacheIgnoresErrors:=true; + {$ENDIF} CreateFontDirList; gTTFontCache.BuildFontCache; end; @@ -749,11 +751,13 @@ end; procedure TlrPdfExportFilter.WriteURL(X, Y, W, H: TPDFFloat; AUrlText: string); begin + {$IF (FPC_FULLVERSION >= 30101)} X := ConvetUnits(X); Y := ConvetUnits(Y); W := ConvetUnits(W); H := ConvetUnits(H); FCurPage.AddExternalLink(X, Y + H, W, H, AUrlText, false); + {$ENDIF} end; procedure TlrPdfExportFilter.DrawLine(X1, Y1, X2, Y2: TPDFFloat; diff --git a/components/lazreport/source/addons/lrFclPDFExport/lrpdfexport.pas b/components/lazreport/source/addons/lrFclPDFExport/lrpdfexport.pas index 7c17394e4a..0043766bef 100644 --- a/components/lazreport/source/addons/lrFclPDFExport/lrpdfexport.pas +++ b/components/lazreport/source/addons/lrFclPDFExport/lrpdfexport.pas @@ -32,7 +32,7 @@ Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. } -{$IF (FPC_FULLVERSION < 30101)} +{$IF (FPC_FULLVERSION < 30002)} !!! This component compiled only FPC 3.1.1 or hight {$ENDIF}