From dd306fbc64dc6f56fb516c773f1fe796cffe3cf7 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 21 Oct 2008 19:07:22 +0000
Subject: [PATCH] Switch from yellow selected but unfocused cells to light blue
 background + black foreground. Hopefully fits somehow with most customized
 system colors.

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

diff --git a/source/childwin.pas b/source/childwin.pas
index 04e0ddb8..33ade0ae 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -5676,6 +5676,8 @@ begin
   // Do not apply any color on a selected, highlighted cell to keep readability
   if (Node = Sender.FocusedNode) and (Column = Sender.FocusedColumn) then
     cl := clHighlightText
+  else if vsSelected in Node.States then
+    cl := clBlack
   // Numeric field
   else if r.Columns[Column].isInt or r.Columns[Column].isFloat then
     if isNull then cl := prefNullColorNumeric else cl := prefFieldColorNumeric
@@ -6430,7 +6432,7 @@ begin
     TargetCanvas.Brush.Color := clHighlight;
     TargetCanvas.FillRect(CellRect);
   end else if vsSelected in Node.States then begin
-    TargetCanvas.Brush.Color := clInfoBk;
+    TargetCanvas.Brush.Color := clSkyBlue;
     TargetCanvas.FillRect(CellRect);
   end;
 end;