Sfoglia il codice sorgente

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

git-svn-id: trunk@44004 -
michael 5 anni fa
parent
commit
dad9126d45
1 ha cambiato i file con 1 aggiunte e 0 eliminazioni
  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
      Fail('Could not create directory for rendered JSON');
   gTTFontCache.Clear;
+  gTTFontCache.SearchPath.Clear;
   gTTFontCache.SearchPath.Add(FFilePath+'fonts/');
   gTTFontCache.SearchPath.Add(FFilePath+'../demos/fonts/');
 {$IFDEF UNIX}