diff options
author | Almindor <Almindor@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-24 09:57:28 +0000 |
---|---|---|
committer | Almindor <Almindor@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-24 09:57:28 +0000 |
commit | 2d296396ab33e20cb8ac18ba8538ca1d4e701443 (patch) | |
tree | e11b9b81bc049bc5cf6df82ba6b1759455ce7f2c | |
parent | f907cb1cb6b56b6774dafa3418b44768e91bb836 (diff) | |
download | fpc-2d296396ab33e20cb8ac18ba8538ca1d4e701443.tar.gz |
* 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
-rw-r--r-- | packages/fcl-db/src/base/dataset.inc | 14 |
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; |