From fff0dd470fae5455f47064544890ee18386f2949 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 31 Mar 2014 11:08:07 +0000
Subject: [PATCH] RxDBGrid - fix compile with fpc 2.6.2

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2926 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdbgrid.pas | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/components/rx/trunk/rxdbgrid.pas b/components/rx/trunk/rxdbgrid.pas
index b905f6adb..35ae7e09a 100644
--- a/components/rx/trunk/rxdbgrid.pas
+++ b/components/rx/trunk/rxdbgrid.pas
@@ -4131,7 +4131,11 @@ begin
   DHL:=THackDataLink(Datalink);
   DHS:=THackDataSet(DataSource.DataSet);
 
-  P := DHS.GetBookMark;
+  {$IFDEF NoAutomatedBookmark}
+  P:=DataSource.DataSet.GetBookmark;
+  {$ELSE}
+  P := DHS.Bookmark;
+  {$ENDIF}
 
   SaveState:=DHS.SetTempState(dsBrowse);
 
@@ -4181,7 +4185,17 @@ begin
   DHS.BeforeScroll := SaveBeforeScroll;
 
   if DHS.CompareBookmarks(DHS.Bookmark, P)<>0 then
+  begin
+    {$IFDEF NoAutomatedBookmark}
+    DHS.GotoBookmark(P); //workaround for fix navigation problem
+    {$ELSE}
     DHS.Bookmark:=P; //workaround for fix navigation problem
+    {$ENDIF}
+  end;
+
+  {$IFDEF NoAutomatedBookmark}
+  DHS.FreeBookmark(P);
+  {$ENDIF}
 
   Dec(FInProcessCalc);
   if FInProcessCalc < 0 then