Commit f6495489 authored by Martin Schreiber's avatar Martin Schreiber

* TDataset.first(), last(), insert(), append() canceled by aborted post().

parent 1b73fd4d
......@@ -4350,6 +4350,9 @@ Procedure TDataset.DoInsertAppend(DoAppend : Boolean);
begin
CheckBrowseMode;
if fstate <> dsbrowse then begin
exit; //posting canceled
end;
If Not CanModify then
DatabaseError(SDatasetReadOnly,Self);
DoBeforeInsert;
......@@ -4480,6 +4483,9 @@ Procedure TDataset.First;
begin
CheckBrowseMode;
if fstate <> dsbrowse then begin
exit; //posting canceled
end;
DoBeforeScroll;
if not FIsUniDirectional then
ClearBuffers
......@@ -4608,6 +4614,9 @@ Procedure TDataset.Last;
begin
CheckBiDirectional;
CheckBrowseMode;
if fstate <> dsbrowse then begin
exit; //posting canceled
end;
DoBeforeScroll;
ClearBuffers;
try
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment