From f1bc81b3e8c3554d761981f677893a37c6c58e49 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Tue, 17 May 2016 07:38:52 +0000
Subject: [PATCH] lcl: grids: fix backwards compatibility after r52316
 #19ab80027c. Issue #30150

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

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 08f9ee8551..da0ba95bf8 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -846,7 +846,7 @@ type
     procedure ResetHotCell;
     procedure ResetPushedCell(ResetColRow: boolean=True);
     procedure SaveColumns(cfg: TXMLConfig; Version: integer);
-    function  ScrollToCell(const aCol,aRow: Integer; ForceFullyVisible: Boolean): Boolean;
+    function  ScrollToCell(const aCol,aRow: Integer; const ForceFullyVisible: Boolean = True): Boolean;
     function  ScrollGrid(Relative:Boolean; DCol,DRow: Integer): TPoint;
     procedure SetCol(AValue: Integer);
     procedure SetColWidths(Acol: Integer; Avalue: Integer);
@@ -3312,7 +3312,7 @@ end;
 
 { Scroll the grid until cell[aCol,aRow] is shown }
 function TCustomGrid.ScrollToCell(const aCol, aRow: Integer;
-  ForceFullyVisible: Boolean): Boolean;
+  const ForceFullyVisible: Boolean): Boolean;
 var
   RNew: TRect;
   OldTopLeft:TPoint;