RxFPC:RxDBCalcEdit - fix editing data - tnx. kit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5293 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2016-10-25 06:27:37 +00:00 · 2016-10-25 06:27:37 +00:00 · 952313ae97
commit 952313ae97
parent 40d7ee77b6
1 changed files with 1 additions and 1 deletions
--- a/components/rx/trunk/rxdbdateedit.pas
+++ b/components/rx/trunk/rxdbdateedit.pas
@ -372,7 +372,7 @@ end;

 procedure TRxDBCalcEdit.UpdateData(Sender: TObject);
 begin
-  if Assigned(FDataLink.Field) then
+  if Assigned(FDataLink.Field) and FDataLink.Edit then
  begin
    if Self.Text<>'' then
      FDataLink.Field.AsFloat := Self.AsFloat