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;