From 5b2322946be1ea93a9718c1512f50c7cf0c9ca84 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sat, 18 Mar 2017 13:51:19 +0000
Subject: [PATCH] lcl: dbgrids: workaround for FPC 3 issue #31532 (comment)

git-svn-id: trunk@54445 -
---
 lcl/dbgrids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index d467fba882..84e8ea65c4 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -3625,7 +3625,7 @@ begin
       else
       begin
         aPos := FDataLink.DataSet.RecNo - 1; // RecNo is 1 based
-        FDataLink.DataSet.UpdateCursorPos;
+        FDataLink.DataSet.UpdateCursorPos; // FPC 3 bug #31532 workaround
       end;
       if aPos<0 then aPos:=0;
       if aRange=0 then aRange:=1; // there's always 1 (new) row