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

Clean check code

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1986 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-23 08:06:23 +00:00
parent 439af454af
commit a1785912c0
2 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/jujiboutils/jujibo-utils/src/jcontrolutils.pas
View File

@ -170,19 +170,16 @@ begin
if theValue = 0 then
begin
DecodeTime(Now, hh, mm, ss, ms);
//ShowMessage('sin hora');
end
else
begin
DecodeTime(theValue, hh, mm, ss, ms);
//ShowMessage('con hora');
end;
hhs := IntToStr(hh);
mms := IntToStr(mm);
sss := IntToStr(ss);
mss := IntToStr(ms);
//ShowMessage(TimeString);
texto := Value;
Result := texto; // default value
tokens := TStringList.Create;
@ -223,8 +220,6 @@ var
bTime: TDateTime;
begin
Result := TryStrToTime(Value, bTime);
//if Result = False then
// ShowMessage('Hora incorrecta: ' + Value);
end;
end.

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

@ -164,7 +164,7 @@ begin
end
else
begin
ShowMessage(CellEditor.Caption + ' no es una hora válida: Editing done');
ShowMessage(CellEditor.Caption + ' no es una hora válida');
CellEditor.Text := FormatDateTime(format, theValue);
end;
end;
@ -194,7 +194,7 @@ begin
if (Key in [VK_RETURN, VK_TAB, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT]) and
(not IsValidTimeString(NormalizeTime(CellEditor.Caption, theValue))) then
begin
ShowMessage(CellEditor.Caption + ' no es una hora válida OnKeyDown');
ShowMessage(CellEditor.Caption + ' no es una hora válida');
CellEditor.Text := FormatDateTime(format, theValue);
CellEditor.SelectAll;
Key := VK_UNKNOWN;
@ -225,7 +225,7 @@ begin
begin
theValue := StrToTime(CellEditor.Caption);
Field.DataSet.Edit;
Field.AsDateTime:= theValue ; ShowMessage('TAB/Enter/right/left key-> ' + Field.AsString);//Field.AsDateTime := theValue;
Field.AsDateTime:= theValue ;
CellEditor.SelectAll;
updated := True;
end;