From bdfc17f284c12180d42166dded5d7e722616959f Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 28 Aug 2011 18:23:49 +0000
Subject: [PATCH] fix error create RXDBDateEdit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1852 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/dbdateedit.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/rx/dbdateedit.pas b/components/rx/dbdateedit.pas
index f9969adae..a23779163 100644
--- a/components/rx/dbdateedit.pas
+++ b/components/rx/dbdateedit.pas
@@ -208,7 +208,8 @@ end;
 
 procedure TDBDateEdit.Change;
 begin
-  FDataLink.Modified;
+  if Assigned(FDataLink) then
+    FDataLink.Modified;
   inherited Change;
 end;
 
@@ -294,7 +295,7 @@ begin
   FDataLink.OnDataChange:=@DataChange;
   FDataLink.OnUpdateData:=@UpdateData;
   Text:='';
-  UpdateMask;
+  //UpdateMask;
 end;
 
 destructor TDBDateEdit.Destroy;