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

Fix: wrong checks editing ftDateTime

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2021 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-27 08:28:41 +00:00
parent bb2d88a299
commit e4f357ac35
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jujiboutils/jujibo-utils/src/jdbgridutils.pas
View File

@ -174,7 +174,7 @@ end;
procedure TJDbGridDateTimeCtrl.myEditOnEditingDone(Sender: TObject);
begin
CellEditor.Caption := NormalizeDate(CellEditor.Caption, theValue);
CellEditor.Caption := NormalizeDateTime(CellEditor.Caption, theValue);
if Length(CellEditor.Caption) = 0 then
begin
Field.DataSet.Edit;
@ -183,11 +183,11 @@ begin
updated := True;
end
else
if IsValidDateString(CellEditor.Caption) then
if IsValidDateTimeString(CellEditor.Caption) then
begin
if (not updated) then
begin
theValue := StrToDate(CellEditor.Caption);
theValue := StrToDateTime(CellEditor.Caption);
Field.DataSet.Edit;
Field.AsDateTime := theValue;
end;