paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 03:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix compiling of fcl-pdf export with fpc fixes and 3.0.2

Browse Source 
git-svn-id: trunk@54544 -
This commit is contained in:
jesus 2017-04-06 15:54:20 +00:00
parent fb52726722
commit 8eda400e32
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas
View File

@ -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;

2
components/lazreport/source/addons/lrFclPDFExport/lrpdfexport.pas
View File

@ -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}