+ fix for bug #7007 by Martin Schreiber

git-svn-id: trunk@3896 -
2025-08-19 15:29:13 +02:00 · 2006-06-19 19:13:57 +00:00 · 2006-06-19 19:13:57 +00:00 · eb9b7e5dc1
commit eb9b7e5dc1
parent 0dba7730b4
1 changed files with 1 additions and 0 deletions
--- a/fcl/db/datasource.inc
+++ b/fcl/db/datasource.inc
@ -112,6 +112,7 @@ begin
        RecordChanged(TField(Info));
    deDataSetChange: begin
      SetActive(DataSource.DataSet.Active);
+      CalcRange;
      CalcFirstRecord(Info);
      DatasetChanged;
    end;