From 401f148e854c9cdcb9e01d3cc62d3d9386526a0f Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Thu, 24 Apr 2014 00:49:46 +0000
Subject: [PATCH] LCL, fix cell hot-tracking regression

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

diff --git a/lcl/grids.pas b/lcl/grids.pas
index d5b4bc64ff..81fe436a82 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -2002,8 +2002,7 @@ begin
 
     Gz := MouseToGridZone(X,Y);
     ButtonColumn := IsMouseOverCellButton(X, Y);
-    P.X:=X;
-    P.Y:=Y;
+    P := MouseToCell(Point(X, Y));
 
     if (gz<>HotGridZone) or (P.x<>HotCell.x) or (P.y<>HotCell.y) then begin
       ResetHotCell;