From a7ea210cb7fad3c2e7fb1ba8546e5e7ab0a88189 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Thu, 6 Oct 2022 01:57:46 +0300
Subject: [PATCH] LCL: Use built-in TPoint operator <>.

---
 lcl/grids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 860a7ba014..f845ed7220 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -6244,7 +6244,7 @@ begin
     Inc(FTopLeft.X, Dir.X);
   if ((Dir.Y < 0) and (FTopLeft.Y > FFixedRows)) or ((Dir.Y > 0) and (FGCache.FullVisibleGrid.Bottom + FixedRows < RowCount)) then
     Inc(FTopLeft.Y, Dir.Y);
-  if not PointsEqual(FTopleft, OldTopLeft) then begin
+  if FTopleft <> OldTopLeft then begin
     FMoveLast := Point(-1, -1);
     doTopleftChange(False);
   end;