From 74b36d85249ba88ea911f351ec95c77c5d600db4 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 15 Aug 2009 18:17:49 +0000
Subject: [PATCH] Do not overwrite FCellFont after adjusting its color. Fixes
 issue #1295

---
 source/grideditlinks.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index 95206a0c..7eef9b83 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -290,9 +290,11 @@ var
   CellBounds, TextBounds: TRect;
   Ghosted: Boolean;
   ImageIndex: Integer;
+  f: TFont;
 begin
   // Return the cell's rectangle, relative to the parent form.
-  FTree.GetTextInfo(FNode, FColumn, FCellFont, TextBounds, Text);
+  f := TFont.Create;
+  FTree.GetTextInfo(FNode, FColumn, f, TextBounds, Text);
   CellBounds := FTree.GetDisplayRect(FNode, FColumn, False);
 
   Inc(CellBounds.Left, Integer(FTree.GetNodeLevel(FNode)) * (Integer(FTree.Indent)+FTree.TextMargin));