From 367cb4cc400fdbaacb6126fb21409a3ac95ee82e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 5 Dec 2007 00:12:49 +0000
Subject: [PATCH] Fix a minor graphical glitch when a focus rectangle is
 displayed in a gridcell (broken in rev 1156)

---
 source/childwin.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/childwin.pas b/source/childwin.pas
index b13a1226..b9d7294f 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -4921,6 +4921,8 @@ begin
   begin
     Grid.Canvas.Font.Color := COLOR_NULLVALUE;
     Grid.Canvas.TextOut(Rect.Left+2, Rect.Top+2, '(NULL)');
+    // Reset font color, so the focus rectangle in this cell displays as dotted rectangle 
+    Grid.Canvas.Font.Color := clWindowText;
   end;
 end;