From b1dfb45d3a33448cdf3c424ca55868bef80909ef Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 9 Feb 2018 10:50:38 +0000
Subject: [PATCH] fpspreadsheet: Remove code which repaints the entire
 worksheet grid if the mouse is moved into anohter cell.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6191 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpspreadsheet/source/visual/fpspreadsheetgrid.pas     | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index 52029a249..00c18e25a 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -5022,23 +5022,31 @@ end;
   grid instead.
 -------------------------------------------------------------------------------}
 procedure TsCustomWorksheetGrid.MouseMove(Shift: TShiftState; X, Y: Integer);
+{
+  --- wp: removed this for testing: why does the entire grid be repainted when the
+          mouse moved to another cell?
 var
   prevMouseCell: TPoint;
+}
 begin
   if Worksheet = nil then
     exit;
 
+{  --- wp
   prevMouseCell := GCache.MouseCell;
+}
 
   inherited;
 
   if MouseOnHeader(X,Y) then
     exit;
 
+{ --- wp
   if FTextOverflow and
      ((prevMouseCell.X <> GCache.MouseCell.X) or (prevMouseCell.Y <> GCache.MouseCell.Y))
   then
     InvalidateGrid;
+}
 
   if Assigned(Dragmanager) and DragManager.IsDragging then
   begin;