mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 06:18:16 +02:00
+ do not try to applyupdates on an empty dataset
+ removed obsolete refresh from applyupdates + removed obsolete SetCurrentRecord git-svn-id: trunk@2181 -
This commit is contained in:
parent
fe71df8928
commit
5e631df4cc
@ -593,6 +593,7 @@ var SaveBookmark : Integer;
|
||||
|
||||
begin
|
||||
CheckBrowseMode;
|
||||
if IsEmpty then exit;
|
||||
SaveBookMark := GetRecNo;
|
||||
|
||||
r := 0;
|
||||
@ -639,7 +640,6 @@ begin
|
||||
end;
|
||||
inc(r);
|
||||
end;
|
||||
Refresh;
|
||||
if not GetDeleted(pbyte(FBBuffers[savebookmark])) then
|
||||
begin
|
||||
InternalGotoBookMark(@SaveBookMark);
|
||||
|
@ -1773,7 +1773,9 @@ begin
|
||||
CheckbrowseMode;
|
||||
UpdateCursorPos;
|
||||
InternalRefresh;
|
||||
SetCurrentRecord(FActiverecord);
|
||||
{ SetCurrentRecord is called by UpdateCursorPos already, so as long as
|
||||
InternalRefresh doesn't do strange things this should be ok. }
|
||||
// SetCurrentRecord(FActiverecord);
|
||||
Resync([]);
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user