[Lazarus] fpReport -> Lazarus reportdsg.lpr

Michael Van Canneyt michael at freepascal.org
Mon Aug 21 14:03:03 CEST 2017



On Mon, 21 Aug 2017, Andreas Frieß via Lazarus wrote:

> Is is not better to call the standard fonts of the system in 
> TFPReportDesignerForm.FormCreate(Sender: TObject); ?
>
>   if gTTFontCache.SearchPath.Count=0 then
>     begin
> gTTFontCache.SearchPath.Add(ExtractFilePath(ParamStr(0))+'../demos/fonts/');
>     gTTFontCache.SearchPath.Add(GetUserDir + '.fonts/');
>     {$IFDEF UNIX}
> gTTFontCache.SearchPath.Add('/usr/share/fonts/truetype/ubuntu-font-family/');
> gTTFontCache.SearchPath.Add('/usr/share/fonts/truetype/dejavu/');
>     {$ENDIF}
>     end;
>   if (gTTFontCache.Count=0) then
>     gTTFontCache.BuildFontCache;
>   if (gTTFontCache.Count=0) then                // <-------
>     gTTFontCache.ReadStandardFonts;        // <-------
>
> Because the standardfonts are not read in the designer.

Yes. 
A patch for this was already provided by Pascal Riekenberg. It has been applied.

Michael.


More information about the Lazarus mailing list