paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 18:19:45 +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
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;