Browse Source

* Patch from Luiz Américo
- deDataFieldChange is now called when data is changed, fixing a issue with LCL.TDBGrid

git-svn-id: trunk@1602 -

michael 20 years ago
parent
commit
ec13803b5c
1 changed files with 2 additions and 0 deletions
  1. 2 0
      fcl/db/sqlite/customsqliteds.pas

+ 2 - 0
fcl/db/sqlite/customsqliteds.pas

@@ -837,6 +837,8 @@ begin
   end//if
   end//if
   else
   else
     ActiveItem^.Row[Pred(Field.FieldNo)]:=nil;        
     ActiveItem^.Row[Pred(Field.FieldNo)]:=nil;        
+  if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
+    DataEvent(deFieldChange, Ptrint(Field));  
 end;
 end;
 
 
 procedure TCustomSqliteDataset.SetRecNo(Value: Integer);
 procedure TCustomSqliteDataset.SetRecNo(Value: Integer);