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

* Clear search path (fix from Pascal Riekenberg, bug ID #36609)

Browse Source 
git-svn-id: trunk@44004 -
This commit is contained in:
michael 2020-01-20 18:23:58 +00:00
parent 392fc0b637
commit dad9126d45
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-report/test/tcreportgenerator.pas
View File

@ -94,6 +94,7 @@ begin
if not ForceDirectories(FFilePath+'rendered') then if not ForceDirectories(FFilePath+'rendered') then
Fail('Could not create directory for rendered JSON'); Fail('Could not create directory for rendered JSON');
gTTFontCache.Clear; gTTFontCache.Clear;
gTTFontCache.SearchPath.Clear;
gTTFontCache.SearchPath.Add(FFilePath+'fonts/'); gTTFontCache.SearchPath.Add(FFilePath+'fonts/');
gTTFontCache.SearchPath.Add(FFilePath+'../demos/fonts/'); gTTFontCache.SearchPath.Add(FFilePath+'../demos/fonts/');
{$IFDEF UNIX} {$IFDEF UNIX}