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

* Fix from Pascal Riekenberg for bug ID #37309 (font search failure)

Browse Source 
git-svn-id: trunk@45744 -
This commit is contained in:
michael 2020-07-09 07:25:03 +00:00
parent 792eafadef
commit 1c70372cc3
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,14 +124,11 @@ begin
else else
begin begin
fnt := gTTFontCache.Find(AFontName); // we are doing a PostScript Name lookup (it contains Bold, Italic info) fnt := gTTFontCache.Find(AFontName); // we are doing a PostScript Name lookup (it contains Bold, Italic info)
if Assigned(fnt) then if not Assigned(fnt) then
Result := Document.AddFont(fnt.FileName, AFontName)
else
begin
fnt:=gTTFontCache.FindFont(AFontName); fnt:=gTTFontCache.FindFont(AFontName);
if fnt=Nil then if fnt=Nil then
raise Exception.CreateFmt('fpreport: Could not find the font <%s> in the font cache.', [AFontName]); raise Exception.CreateFmt('fpreport: Could not find the font <%s> in the font cache.', [AFontName]);
end; Result := Document.AddFont(fnt.FileName, AFontName)
end; end;
end; end;
end; end;