From 0bb3877d599ee445d94e7ba51aa4f6254c09e002 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Tue, 25 Jan 2011 19:49:33 +0000
Subject: [PATCH] LCL, fix grid cursor disappearing on scrolling up/left when
 toprow/leftcol>=fixedRow/fixedcolcol, issue #18243

git-svn-id: trunk@29202 -
---
 lcl/grids.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index e8e3dfafd2..9278b9b0cb 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -3119,7 +3119,7 @@ begin
     RNew.Right := FlipX(RNew.Right);
 
     Xinc := 0;
-    if RNew.Right <= FGCache.FixedWidth then
+    if RNew.Right <= FGCache.FixedWidth+GetBorderWidth then
       Xinc := -1              // hidden at the left of fixedwidth line
     else
     if RNew.Left >= CWidth then
@@ -3132,7 +3132,7 @@ begin
     end;
 
     Yinc := 0;
-    if RNew.Bottom <= FGCache.FixedHeight then
+    if RNew.Bottom <= FGCache.FixedHeight+GetBorderWidth then
       Yinc := -1              // hidden at the top of fixedheight line
     else
     if (RNew.Top >= CHeight) then