paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Laco to fix tests after changes in event behaviour introduced in 34980

Browse Source 
git-svn-id: trunk@39022 -
This commit is contained in:
michael 2018-05-18 10:56:29 +00:00
parent d64664dedc
commit 8384dc7c07
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/base/datasource.inc
View File

@ -654,7 +654,7 @@ Const
Var
NeedDataChange : Boolean;
FLastState : TdataSetState;
FLastState : TDataSetState;
begin
// Special UpdateState handling.
@ -672,17 +672,18 @@ begin
end
else
NeedDataChange:=True;
if (Event<>deUpdateState) and (FState=dsInactive) then
Exit;
DistributeEvent(Event,Info);
// Extra handlers
If Not (csDestroying in ComponentState) then
begin
If (Event=deUpdateState) then
DoStateChange;
If (Event in OnDataChangeEvents) and
NeedDataChange Then
If (Event in OnDataChangeEvents) and NeedDataChange Then
DoDataChange(Nil);
If (Event = deFieldChange) Then
DoDataCHange(Pointer(Info));
DoDataChange(Pointer(Info));
If (Event=deUpdateRecord) then
DoUpdateData;
end;