Merged revisions 2036 via svnmerge from

svn+ssh://www.freepascal.org/FPC/svn/fpc/trunk

........
r2036 | joost | 2005-12-23 15:54:26 +0100 (Fri, 23 Dec 2005) | 1 line

 + do not call BeforeScroll while in ApplyUpdates
........

git-svn-id: branches/fixes_2_0@2180 -

fcl/db/bufdataset.inc

@@ -605,7 +605,10 @@ begin
       if FUpdateBuffer[r].UpdateKind = ukDelete then
         InternalGotoBookmark(@(FUpdateBuffer[r].RecordNo))
       else
-        SetRecNo(FUpdateBuffer[r].RecordNo);
+        begin
+        InternalGotoBookMark(@FUpdateBuffer[r].RecordNo);
+        Resync([rmExact,rmCenter]);
+        end;
       if ApplyRecUpdate(FUpdateBuffer[r].UpdateKind) then
         begin
         buffer := FBBuffers[FUpdateBuffer[r].RecordNo];
@@ -638,7 +641,11 @@ begin
     end;
   Refresh;
   if not GetDeleted(pbyte(FBBuffers[savebookmark])) then
-    SetRecNo(SaveBookMark);
+    begin
+    InternalGotoBookMark(@SaveBookMark);
+    Resync([rmExact,rmCenter]);
+    end;
+
 end;
 
 procedure TBufDataset.InternalPost;