paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Use built-in TPoint operator <>.

Browse Source
This commit is contained in:
Juha 2022-10-06 01:57:46 +03:00
parent e7e7e8c0c0
commit a7ea210cb7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -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;