From 952313ae97a7f8351a3e7d8adfde776b9cedc613 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 25 Oct 2016 06:27:37 +0000
Subject: [PATCH] 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
---
 components/rx/trunk/rxdbdateedit.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/rx/trunk/rxdbdateedit.pas b/components/rx/trunk/rxdbdateedit.pas
index bd3a99d21..a8fee0607 100644
--- 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