paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ do not call BeforeScroll while in ApplyUpdates

Browse Source 
git-svn-id: trunk@2036 -
This commit is contained in:
joost 2005-12-23 14:54:26 +00:00
parent 710ea0edf0
commit 3bf8536c97
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/db/bufdataset.inc
View File

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