From eb9b7e5dc1186e5b44be618145de46c55ee5448d Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Mon, 19 Jun 2006 19:13:57 +0000
Subject: [PATCH]  + fix for bug #7007 by Martin Schreiber

git-svn-id: trunk@3896 -
---
 fcl/db/datasource.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/fcl/db/datasource.inc b/fcl/db/datasource.inc
index f138c00964..4be5b2b112 100644
--- 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;