From 4b9ae7f263bb460e389ce83c8450ae583bd7cd87 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Wed, 5 May 2021 16:00:16 +0000
Subject: [PATCH] Grids: use out parameters in MouseToCell and OffsetToColRow.
 Issue #0038847.

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

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 95041d18a9..f8c805eec3 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -1130,7 +1130,7 @@ type
     function  MoveNextSelectable(Relative:Boolean; DCol, DRow: Integer): Boolean; virtual;
     procedure MoveSelection; virtual;
     function  OffsetToColRow(IsCol,Fisical:Boolean; Offset:Integer;
-                             var Index,Rest:Integer): boolean;
+                             out Index,Rest:Integer): boolean;
     procedure Paint; override;
     procedure PickListItemSelected(Sender: TObject);
     procedure PrepareCanvas(aCol,aRow: Integer; aState:TGridDrawState); virtual;
@@ -1333,7 +1333,7 @@ type
     procedure LoadFromStream(AStream: TStream); virtual;
     function  MouseCoord(X,Y: Integer): TGridCoord;
     function  MouseToCell(const Mouse: TPoint): TPoint; overload;
-    procedure MouseToCell(X,Y: Integer; var ACol,ARow: Longint); overload;
+    procedure MouseToCell(X,Y: Integer; out ACol,ARow: Longint); overload;
     function  MouseToLogcell(Mouse: TPoint): TPoint;
     function  MouseToGridZone(X,Y: Integer): TGridZone;
     procedure SaveToFile(FileName: string); virtual;
@@ -6179,7 +6179,7 @@ end;
 
 
 function TCustomGrid.OffsetToColRow(IsCol, Fisical: Boolean; Offset: Integer;
-  var Index, Rest: Integer): boolean;
+  out Index, Rest: Integer): boolean;
 begin
   Index:=0;
   Rest:=0;
@@ -7681,7 +7681,7 @@ begin
   MouseToCell(Mouse.X, Mouse.Y, Result.X, Result.Y);
 end;
 
-procedure TCustomGrid.MouseToCell(X, Y: Integer; var ACol, ARow: Longint);
+procedure TCustomGrid.MouseToCell(X, Y: Integer; out ACol, ARow: Longint);
 var
   dummy: Integer;
 begin