paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-17 14:08:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Another minor change to TTF debug log

Browse Source 
git-svn-id: trunk@36262 -
This commit is contained in:
sekelsenmat 2012-03-23 10:30:43 +00:00
parent 735bfa64bd
commit 9295d6a2a5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/customdrawn/customdrawnwinapi_x11.inc
View File

@ -687,8 +687,6 @@ begin
// Debug info before the TTF scanning starts to get results before exceptions // Debug info before the TTF scanning starts to get results before exceptions
{$ifdef CD_Debug_TTF} {$ifdef CD_Debug_TTF}
AFontPaths.SaveToFile('/tmp/lxfontpaths.txt'); AFontPaths.SaveToFile('/tmp/lxfontpaths.txt');
AFontList.Sort;
AFontList.SaveToFile('/tmp/lxfontlist.txt');
{$endif} {$endif}
// We have populated FontPaths, now we may build the font list // We have populated FontPaths, now we may build the font list
@ -703,6 +701,11 @@ begin
// default for older distros // default for older distros
if AFontList.Values['Luxi Sans Regular'] <> '' then LuxiFont:= True if AFontList.Values['Luxi Sans Regular'] <> '' then LuxiFont:= True
else LuxiFont:= False; else LuxiFont:= False;
{$ifdef CD_Debug_TTF}
AFontList.Sort;
AFontList.SaveToFile('/tmp/lxfontlist.txt');
{$endif}
end; end;
function TCDWidgetSet.BackendGetFontPath(const LogFont: TLogFont; const LongFontName: string): string; function TCDWidgetSet.BackendGetFontPath(const LogFont: TLogFont; const LongFontName: string): string;