* first fix to cleanroom TDataSet.DataEvent only 6 tests fail now :)

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/cleanroom@10547 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 7 insertions, 7 deletions

diff --git a/packages/fcl-db/src/base/dataset.inc b/packages/fcl-db/src/base/dataset.inc
index 7ed4c382de..5f8831ab38 100644
--- a/packages/fcl-db/src/base/dataset.inc
+++ b/packages/fcl-db/src/base/dataset.inc
@@ -239,24 +239,24 @@ Procedure TDataset.DataEvent(Event: TDataEvent; Info: Ptrint);
   end;
   
   procedure HandleScrollOrChange;
-  var
-    i: Integer;
   begin
     if State <> dsInsert then
       UpdateCursorPos;
-
-    if not ControlsDisabled then begin
-      for i := 0 to FDataSources.Count - 1 do
-        TDataSource(FDataSources[i]).ProcessEvent(Event, Info);
-    end;
   end;
 
+var
+  i: Integer;
 begin
   case Event of
     deFieldChange   : HandleFieldChange(TField(Info));
     deDataSetChange,
     deDataSetScroll : HandleScrollOrChange;
   end;
+
+  if not ControlsDisabled then begin
+    for i := 0 to FDataSources.Count - 1 do
+      TDataSource(FDataSources[i]).ProcessEvent(Event, Info);
+  end;
 end;
 
 Procedure TDataset.DestroyFields;