paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:40:20 +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 Var
NeedDataChange : Boolean; NeedDataChange : Boolean;
FLastState : TdataSetState; FLastState : TDataSetState;
begin begin
// Special UpdateState handling. // Special UpdateState handling.
@ -672,17 +672,18 @@ begin
end end
else else
NeedDataChange:=True; NeedDataChange:=True;
if (Event<>deUpdateState) and (FState=dsInactive) then
Exit;
DistributeEvent(Event,Info); DistributeEvent(Event,Info);
// Extra handlers // Extra handlers
If Not (csDestroying in ComponentState) then If Not (csDestroying in ComponentState) then
begin begin
If (Event=deUpdateState) then If (Event=deUpdateState) then
DoStateChange; DoStateChange;
If (Event in OnDataChangeEvents) and If (Event in OnDataChangeEvents) and NeedDataChange Then
NeedDataChange Then
DoDataChange(Nil); DoDataChange(Nil);
If (Event = deFieldChange) Then If (Event = deFieldChange) Then
DoDataCHange(Pointer(Info)); DoDataChange(Pointer(Info));
If (Event=deUpdateRecord) then If (Event=deUpdateRecord) then
DoUpdateData; DoUpdateData;
end; end;