Sfoglia il codice sorgente

* 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 anni fa
parent
commit
ec13803b5c
1 ha cambiato i file con 2 aggiunte e 0 eliminazioni
  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);