From f44d56a051a3043d02629a0697485bc4c303116d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 19 Oct 2008 13:06:36 +0000
Subject: [PATCH] Usability enhancement: Colorize any unfocused cell in a
 focused row with clInfoBk (mostly light yellow). Helps with identifying the
 focused row.

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

diff --git a/source/childwin.pas b/source/childwin.pas
index 87c19ed7..9b9a485d 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -6424,6 +6424,9 @@ begin
   if prefEnableNullBG and gr.Rows[Node.Index].Cells[Column].IsNull then begin
     TargetCanvas.Brush.Color := prefNullBG;
     TargetCanvas.FillRect(CellRect);
+  end else if (vsSelected in Node.States) and (Column <> Sender.FocusedColumn) then begin
+    TargetCanvas.Brush.Color := clInfoBk;
+    TargetCanvas.FillRect(CellRect);
   end;
 end;