paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix lef/right arrow keys while editing dates

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1967 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo 2011-09-17 10:23:14 +00:00
parent d47fca3e56
commit cdd864f4d3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/jujiboutils/examples/testmemdataset/jdbgridutils.pas
View File

@ -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;