Browse Source

* Merging revisions 44004 from trunk:
------------------------------------------------------------------------
r44004 | michael | 2020-01-20 19:23:58 +0100 (Mon, 20 Jan 2020) | 1 line

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

git-svn-id: branches/fixes_3_2@44158 -

michael 5 years ago
parent
commit
3088728222
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-report/test/tcreportgenerator.pas

+ 1 - 0
packages/fcl-report/test/tcreportgenerator.pas

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