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

Add: Error messages to mouse events

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2068 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-10-10 08:36:28 +00:00
parent 12b16151cc
commit 13d6d65ef2
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -438,6 +438,8 @@ begin
Result := False
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidDateTime, [CellEditor.Text]));
end;
{ TJDbGridTimeCtrl }
@ -610,6 +612,8 @@ begin
Result := False
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidTime, [CellEditor.Text]));
end;
{ TJDbGridDateCtrl }
@ -784,6 +788,8 @@ begin
Result := False
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidDate, [CellEditor.Text]));
end;
{ TJDbGridDoubleCtrl }
@ -935,6 +941,8 @@ begin
Result := IsValidFloat(CellEditor.Text)
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidNumber, [CellEditor.Text]));
end;
{ TJDbGridIntegerCtrl }
@ -1056,6 +1064,8 @@ begin
Result := IsValidInteger(CellEditor.Text)
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidNumber, [CellEditor.Text]));
end;
end.