From cebbb30307ddcf00b8380f4c590103625ca02edb Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 27 Mar 2014 12:36:50 +0000
Subject: [PATCH] RxDBGrid: workaround for fix navigation problem on calc
 footer rows

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

diff --git a/components/rx/trunk/rxdbgrid.pas b/components/rx/trunk/rxdbgrid.pas
index ceeb63698..b905f6adb 100644
--- a/components/rx/trunk/rxdbgrid.pas
+++ b/components/rx/trunk/rxdbgrid.pas
@@ -4044,7 +4044,7 @@ end;
 
 procedure TRxDBGrid.CalcStatTotals;
 var
-  //P: TBookmark;
+  P: TBookmark;
   //DS: TDataSet;
   i, cnt: integer;
   APresent: boolean;
@@ -4130,6 +4130,9 @@ begin
 
   DHL:=THackDataLink(Datalink);
   DHS:=THackDataSet(DataSource.DataSet);
+
+  P := DHS.GetBookMark;
+
   SaveState:=DHS.SetTempState(dsBrowse);
 
   SaveAfterScroll:=DHS.AfterScroll;
@@ -4177,6 +4180,9 @@ begin
   DHS.AfterScroll  := SaveAfterScroll;
   DHS.BeforeScroll := SaveBeforeScroll;
 
+  if DHS.CompareBookmarks(DHS.Bookmark, P)<>0 then
+    DHS.Bookmark:=P; //workaround for fix navigation problem
+
   Dec(FInProcessCalc);
   if FInProcessCalc < 0 then
     FInProcessCalc := 0;