From 00d168199d3e81db31bfad87d14a43e5bef3fbb7 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Tue, 17 Apr 2018 18:35:26 +0000
Subject: [PATCH] LCL: Paint the focus rectangle white when
 UseXORFeatures=true, issue #33042

git-svn-id: trunk@57661 -
---
 lcl/grids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 1e8d0b28f4..83d6e22cd1 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -10398,7 +10398,7 @@ begin
     if FUseXORFeatures then begin
       Canvas.SaveHandleState;
       OldFocusColor := FFocusColor;
-      FFocusColor:= clBlack;//White not visible on White background
+      FFocusColor:= clWhite;
       OldPenMode:=Canvas.Pen.Mode;
       Canvas.Pen.Mode := pmXOR;
     end;