paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:06:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Search with Postscript font name and humanreadable font name

Browse Source 
git-svn-id: trunk@43806 -
This commit is contained in:
michael 2019-12-28 21:21:13 +00:00
parent 9bd7401ce9
commit f01495668e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-report/src/fpreportpdfexport.pp
View File

@ -127,9 +127,13 @@ begin
if Assigned(fnt) then
Result := Document.AddFont(fnt.FileName, AFontName)
else
begin
fnt:=gTTFontCache.FindFont(AFontName);
if fnt=Nil then
raise Exception.CreateFmt('fpreport: Could not find the font <%s> in the font cache.', [AFontName]);
end;
end;
end;
end;
procedure TFPReportExportPDF.SetupPDFDocument;