From 79727cbfffdf67b12bbd089b839e34bc857396d3 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 2 Feb 2009 23:16:12 +0000
Subject: [PATCH] Gtk fix: cell-based fonts are monospace (font-dialog did
 diagnostic them as proportional)

git-svn-id: trunk@18539 -
---
 lcl/include/font.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/font.inc b/lcl/include/font.inc
index 757bf0e21b..35d9e63d41 100644
--- a/lcl/include/font.inc
+++ b/lcl/include/font.inc
@@ -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);