Browse Source

* Fix from Wagner Landgraf to fix missing data events

michael 6 years ago
parent
commit
69f85aaa96
1 changed files with 4 additions and 0 deletions
  1. 4 0
      packages/fcl-db/jsondataset.pas

+ 4 - 0
packages/fcl-db/jsondataset.pas

@@ -807,6 +807,10 @@ begin
   else
   else
     R:=FEditRow;
     R:=FEditRow;
   FFieldMapper.SetJSONDataForField(Field,R,AValue);
   FFieldMapper.SetJSONDataForField(Field,R,AValue);
+  
+  if not(State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then
+    DataEvent(deFieldChange, Field);
+
   SetModified(True);
   SetModified(True);
 //  FFieldMapper.SetJSONDataForField(Field,Buffer.Data,AValue);
 //  FFieldMapper.SetJSONDataForField(Field,Buffer.Data,AValue);
 end;
 end;