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

Gtk fix: cell-based fonts are monospace (font-dialog did diagnostic them as proportional)

Browse Source 
git-svn-id: trunk@18539 -
This commit is contained in:
martin 2009-02-02 23:16:12 +00:00
parent 0b4a2d7e77
commit 79727cbfff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/font.inc
View File

@ -392,7 +392,7 @@ begin
else if AnsiCompareText(Item,'P')=0 then
Result.lfPitchAndFamily:=VARIABLE_PITCH
else if AnsiCompareText(Item,'C')=0 then
Result.lfPitchAndFamily:=VARIABLE_PITCH;
Result.lfPitchAndFamily:=FIXED_PITCH;
GetNextItem; // 13. read AverageWidth
AverageWidth := StrToIntDef(Item,0);