From 1e92c08d23c3244f41e3a95bbf861ba4c160a1c4 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 28 Oct 2013 08:06:33 +0000
Subject: [PATCH] RXDBGrid - fix clear cell with date format  in RxDBGrid

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2810 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxdbgrid.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/rx/rxdbgrid.pas b/components/rx/rxdbgrid.pas
index ddc797b60..41b52aebf 100644
--- a/components/rx/rxdbgrid.pas
+++ b/components/rx/rxdbgrid.pas
@@ -1136,6 +1136,8 @@ end;
 { TRxDBGridDateEditor }
 
 procedure TRxDBGridDateEditor.Change;
+var
+  D:TDateTime;
 begin
   inherited Change;
   if Assigned(FGrid) and FGrid.DatalinkActive and not FGrid.EditorIsReadOnly then
@@ -1148,7 +1150,12 @@ begin
       FGrid.SelectedField.Clear;
 
     if FGrid <> nil then
-      FGrid.SetEditText(FCol, FRow, Text);
+    begin
+      if TryStrToDate(Text, D) then
+        FGrid.SetEditText(FCol, FRow, Text)
+      else
+        FGrid.SetEditText(FCol, FRow, '');
+    end;
   end;
 end;