From 20f111934d9b049de56d048b80a7f17ccb2325c5 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Tue, 24 Nov 2009 14:50:17 +0000
Subject: [PATCH] LCL, fix grids AutoSizeColumns ignoring column fonts, issue
 #15162

git-svn-id: trunk@22751 -
---
 lcl/grids.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 2b5afd9259..392e474f6e 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -8587,7 +8587,6 @@ begin
     Exit;
 
   tmpCanvas := GetWorkingCanvas(Canvas);
-  tmpCanvas.Font := Font;
 
   C := ColumnFromGridColumn(aCol);
 
@@ -8595,6 +8594,18 @@ begin
     W:=0;
     for i := 0 to RowCount-1 do begin
 
+      if C<>nil then begin
+        if i<FixedRows then
+          tmpCanvas.Font := C.Title.Font
+        else
+          tmpCanvas.Font := C.Font;
+      end else begin
+        if i<FixedRows then
+          tmpCanvas.Font := TitleFont
+        else
+          tmpCanvas.Font := Font;
+      end;
+
       if (i=0) and (FixedRows>0) and (C<>nil) then
         Ts := TmpCanvas.TextExtent(C.Title.Caption)
       else