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

Fix CanDefocus with proper validations

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3607 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2014-09-27 15:36:35 +00:00
parent e9ae26952f
commit 408d51b845
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

@ -532,7 +532,7 @@ begin
exit; exit;
if (Length(CellEditor.Text) = 0) then if (Length(CellEditor.Text) = 0) then
exit; exit;
Result := IsValidDateTimeString(NormalizeDateTime(CellEditor.Caption, theValue)); Result := IsValidDateTimeString(NormalizeDateTime(CellEditor.Text, theValue));
if not Result then if not Result then
begin begin
ShowMessage(Format(SInvalidDateTime, [CellEditor.Text])); ShowMessage(Format(SInvalidDateTime, [CellEditor.Text]));
@ -726,7 +726,7 @@ begin
exit; exit;
if (Length(CellEditor.Text) = 0) then if (Length(CellEditor.Text) = 0) then
exit; exit;
Result := IsValidDateTimeString(NormalizeTime(CellEditor.Caption, theValue)); Result := IsValidTimeString(NormalizeTime(CellEditor.Caption, theValue));
if not Result then if not Result then
begin begin
ShowMessage(Format(SInvalidTime, [CellEditor.Text])); ShowMessage(Format(SInvalidTime, [CellEditor.Text]));
@ -959,7 +959,7 @@ begin
exit; exit;
if (Length(CellEditor.Text) = 0) then if (Length(CellEditor.Text) = 0) then
exit; exit;
Result := IsValidDateTimeString(NormalizeDateTime(CellEditor.Caption, theValue)); Result := IsValidDateString(NormalizeDate(CellEditor.Text, theValue));
if not Result then if not Result then
begin begin
ShowMessage(Format(SInvalidDate, [CellEditor.Text])); ShowMessage(Format(SInvalidDate, [CellEditor.Text]));