View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0004375JEDI VCL00 JVCL Componentspublic2008-06-17 06:212008-10-14 02:31
ReporterEvgeni00Assigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionwon't fix 
Product Version3.33 
Target VersionFixed in Version 
Summary0004375: TJvDateTimePicker.Time = TJvDateTimePicker.DateTime = TJvDateTimePicker. Date :((
Descriptionprocedure TfrmMain.FormDblClick(Sender: TObject);
begin
 memo1.Lines.Clear;
 TimePicker.DateTime := now;

 memo1.Lines.Add('Now:'+TimeToStr(Now));
 memo1.Lines.Add('Now f:'+FloatToStr(Now));
 memo1.Lines.Add('Time:'+TimeToStr(Time));
 memo1.Lines.Add('Time f:'+FloatToStr(Time));
 memo1.Lines.Add('Date:'+TimeToStr(Date));
 memo1.Lines.Add('Date f:'+FloatToStr(Date));

 memo1.Lines.Add('--------------------------');

 memo1.Lines.Add('TimePicker.DateTime:'+TimeToStr(TimePicker.DateTime));
 memo1.Lines.Add('TimePicker.DateTime f:'+FloatToStr(TimePicker.DateTime));
 memo1.Lines.Add('TimePicker.Time:'+TimeToStr(TimePicker.Time));
 memo1.Lines.Add('TimePicker.Time f:'+FloatToStr(TimePicker.Time));
 memo1.Lines.Add('TimePicker.Date:'+TimeToStr(TimePicker.Date));
 memo1.Lines.Add('TimePicker.Date f:'+FloatToStr(TimePicker.Date));

end;

Output in memo1:
Now:16:19:20
Now f:39616,6800952083
Time:16:19:20
Time f:0,680095208333333
Date:0:00:00
Date f:39616
--------------------------
TimePicker.DateTime:16:19:20
TimePicker.DateTime f:39616,6800951968
TimePicker.Time:16:19:20
TimePicker.Time f:39616,6800951968
TimePicker.Date:16:19:20
TimePicker.Date f:39616,6800951968
TagsNo tags attached.

Activities

obones

2008-06-19 04:32

administrator   ~0014343

This behaviour is the same as the one present in TDateTimePicker from Delphi which we inherit from. As such, we are not sure we should change this. As the "GetDate" and "GetTime" functions for the property are not virtual, it makes any overload only valid when using a TJvDateTimePicker reference.

Issue History

Date Modified Username Field Change
2008-06-17 06:21 Evgeni00 New Issue
2008-06-19 04:32 obones Note Added: 0014343
2008-06-19 04:32 obones Status new => feedback
2008-10-14 02:30 obones Status feedback => resolved
2008-10-14 02:30 obones Resolution open => won't fix
2008-10-14 02:30 obones Assigned To => obones