From cdd864f4d3ba759cea39a76a7976814785752d1e Mon Sep 17 00:00:00 2001
From: jujibo <jujibo@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 17 Sep 2011 10:23:14 +0000
Subject: [PATCH] Fix lef/right arrow keys while editing dates

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1967 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../jujiboutils/examples/testmemdataset/jdbgridutils.pas       | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/jujiboutils/examples/testmemdataset/jdbgridutils.pas b/components/jujiboutils/examples/testmemdataset/jdbgridutils.pas
index b0c5ce20e..d4eece698 100644
--- a/components/jujiboutils/examples/testmemdataset/jdbgridutils.pas
+++ b/components/jujiboutils/examples/testmemdataset/jdbgridutils.pas
@@ -195,7 +195,7 @@ begin
       Key := VK_UNKNOWN;
     end
     else
-    if Key in [VK_RETURN, VK_TAB] then
+    if Key in [VK_RETURN, VK_TAB, VK_RIGHT, VK_LEFT] then
     begin
       CellEditor.Caption:= NormalizeDate(CellEditor.Caption, theValue);
       if Length(CellEditor.Caption) = 0 then
@@ -206,6 +206,7 @@ begin
         theValue := StrToDate(CellEditor.Caption);
         Field.DataSet.Edit;
         Field.AsDateTime := theValue;
+        CellEditor.SelectAll;
         updated := True;
       end;
     end;