diff options
Diffstat (limited to 'typenunit.pas')
| -rw-r--r-- | typenunit.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/typenunit.pas b/typenunit.pas index d73f9a8..4680c3d 100644 --- a/typenunit.pas +++ b/typenunit.pas @@ -1689,13 +1689,19 @@ end; // tFontRenderer *************************************************************** constructor tFontRenderer.create(schriftgroesze: longint); +var + fontFile: string; begin inherited create; gibAus('FontRenderer erzeugen (Schriftgröße '+intToStr(schriftgroesze)+') ...',1); + if not findeRekursiv('/usr/share/fonts','DejaVuSans.ttf',fontFile) then + if not findeRekursiv('/usr/share/fonts','*.ttf',fontFile) then + raise exception.create('Kann keine Schriftart finden.'); + New(agg, Construct); - agg^.font('/usr/share/fonts/TTF/DejaVuSans.ttf',schriftgroesze,false,false,RasterFontCache,0.0); + agg^.font(char_ptr(fontFile),schriftgroesze,false,false,RasterFontCache,0.0); gibAus('... fertig',1); end; |