paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:06:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix missing data event for field change

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-08 08:57:56 +02:00
parent 326073512d
commit f84c2ed56b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/json/fpjsondataset.pp
View File

@ -1300,6 +1300,8 @@ begin
FFieldMapper.SetJSONDataForField(Field,FRows[FCurrentIndex[FCurrent]],F) FFieldMapper.SetJSONDataForField(Field,FRows[FCurrentIndex[FCurrent]],F)
else else
FFieldMapper.SetJSONDataForField(Field,FEditRow,F); FFieldMapper.SetJSONDataForField(Field,FEditRow,F);
if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, PtrInt(Field));
end; end;
procedure TBaseJSONDataSet.SetBookmarkFlag(Buffer: TRecordBuffer; procedure TBaseJSONDataSet.SetBookmarkFlag(Buffer: TRecordBuffer;