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

Fix: Date/Time, restore old value.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2059 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-10-03 08:23:50 +00:00
parent 9391552baa
commit 4080716092
1 changed files with 46 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -286,7 +286,6 @@ end;
procedure TJDbGridDateTimeCtrl.myEditOnEditingDone(Sender: TObject); procedure TJDbGridDateTimeCtrl.myEditOnEditingDone(Sender: TObject);
begin begin
CellEditor.Caption := NormalizeDateTime(CellEditor.Caption, theValue);
if Length(CellEditor.Caption) = 0 then if Length(CellEditor.Caption) = 0 then
begin begin
if edited then if edited then
@ -300,6 +299,8 @@ begin
end; end;
end end
else else
begin
CellEditor.Caption := NormalizeDateTime(CellEditor.Caption, theValue);
if IsValidDateTimeString(CellEditor.Caption) then if IsValidDateTimeString(CellEditor.Caption) then
begin begin
if edited and (not updated) then if edited and (not updated) then
@ -314,7 +315,9 @@ begin
else else
begin begin
ShowMessage(Format(SInvalidDateTime, [CellEditor.Caption])); ShowMessage(Format(SInvalidDateTime, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, theValue); CellEditor.Text := FormatDateTime(DisplayFormat, Field.AsDateTime);
end;
end; end;
end; end;
@ -446,7 +449,6 @@ end;
procedure TJDbGridTimeCtrl.myEditOnEditingDone(Sender: TObject); procedure TJDbGridTimeCtrl.myEditOnEditingDone(Sender: TObject);
begin begin
CellEditor.Caption := NormalizeTime(CellEditor.Caption, theValue);
if Length(CellEditor.Caption) = 0 then if Length(CellEditor.Caption) = 0 then
begin begin
if edited then if edited then
@ -460,6 +462,8 @@ begin
end; end;
end end
else else
begin
CellEditor.Caption := NormalizeTime(CellEditor.Caption, theValue);
if IsValidTimeString(CellEditor.Caption) then if IsValidTimeString(CellEditor.Caption) then
begin begin
if edited and (not updated) then if edited and (not updated) then
@ -474,7 +478,8 @@ begin
else else
begin begin
ShowMessage(Format(SInvalidTime, [CellEditor.Caption])); ShowMessage(Format(SInvalidTime, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, theValue); CellEditor.Text := FormatDateTime(DisplayFormat, Field.AsDateTime);
end;
end; end;
end; end;
@ -605,7 +610,6 @@ end;
procedure TJDbGridDateCtrl.myEditOnEditingDone(Sender: TObject); procedure TJDbGridDateCtrl.myEditOnEditingDone(Sender: TObject);
begin begin
CellEditor.Caption := NormalizeDate(CellEditor.Caption, theValue);
if Length(CellEditor.Caption) = 0 then if Length(CellEditor.Caption) = 0 then
begin begin
if edited then if edited then
@ -619,6 +623,8 @@ begin
end; end;
end end
else else
begin
CellEditor.Caption := NormalizeDate(CellEditor.Caption, theValue);
if IsValidDateString(CellEditor.Caption) then if IsValidDateString(CellEditor.Caption) then
begin begin
if edited and (not updated) then if edited and (not updated) then
@ -633,7 +639,8 @@ begin
else else
begin begin
ShowMessage(Format(SInvalidDate, [CellEditor.Caption])); ShowMessage(Format(SInvalidDate, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, theValue); CellEditor.Text := FormatDateTime(DisplayFormat, Field.AsDateTime);
end;
end; end;
//formatInput; //formatInput;
end; end;