[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