pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix Return key for some values

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2066 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-10-07 16:13:02 +00:00
parent efbe37b5a8
commit ddc1b15861
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jujiboutils/src/jdbgridutils.pas
View File

@ -296,7 +296,7 @@ begin
if (not updated) then if (not updated) then
begin begin
theValue := StrToDateTime(CellEditor.Caption); theValue := StrToDateTime(CellEditor.Caption);
if theValue <> Field.AsDateTime then if FormatDateTime(DisplayFormat, theValue) <> FormatDateTime(DisplayFormat, Field.AsDateTime) then
begin begin
Field.DataSet.DisableControls; Field.DataSet.DisableControls;
Field.DataSet.Edit; Field.DataSet.Edit;
@ -457,7 +457,7 @@ begin
if (not updated) then if (not updated) then
begin begin
theValue := StrToTime(CellEditor.Caption); theValue := StrToTime(CellEditor.Caption);
if theValue <> Field.AsDateTime then if FormatDateTime(DisplayFormat, theValue) <> FormatDateTime(DisplayFormat, Field.AsDateTime) then
begin begin
Field.DataSet.DisableControls; Field.DataSet.DisableControls;
Field.DataSet.Edit; Field.DataSet.Edit;
@ -616,7 +616,7 @@ begin
if (not updated) then if (not updated) then
begin begin
theValue := StrToDate(CellEditor.Caption); theValue := StrToDate(CellEditor.Caption);
if theValue <> Field.AsDateTime then if FormatDateTime(DisplayFormat, theValue) <> FormatDateTime(DisplayFormat, Field.AsDateTime) then
begin begin
Field.DataSet.DisableControls; Field.DataSet.DisableControls;
Field.DataSet.Edit; Field.DataSet.Edit;