View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0003733JEDI VCL00 JVCL Componentspublic2006-05-29 03:042006-06-09 04:16
ReporterxerkanAssigned Toobones 
PrioritynormalSeveritytweakReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in Version3.30 
Summary0003733: Year 1899 when TJvDBDatePickerEdit is null
DescriptionWhen the date of the TJvDBDatePickerEdit the year positioned in popup is null is 1899 instead of the present one, I have solved it of having modified the following thing in the JvDatePickerEdit:

procedure TJvCustomDatePickerEdit.SetPopupValue(const Value: Variant);
var
  NewDate: TDateTime;
begin
  if FPopup is TJvDropCalendar then
  begin
     // We must do the conversion ourselves as the date format might
     // have been personalized. (Mantis 3628)
     if TryStrToDate(Value,newdate) then
         AttemptTextToDate(VarToStr(Value), NewDate)
     else
         NewDate := now;
     TJvDropCalendar(FPopup).SelDate := NewDate;
  end;
end;
Additional InformationCuando la fecha del TJvDBDatePickerEdit es nula el año posicionado en el popup es 1899 en vez del actual, lo he resuelto de modificando lo siguiente en el JvDatePickerEdit:

procedure TJvCustomDatePickerEdit.SetPopupValue(const Value: Variant);
var
  NewDate: TDateTime;
begin
  if FPopup is TJvDropCalendar then
  begin
     // We must do the conversion ourselves as the date format might
     // have been personalized. (Mantis 3628)
     if TryStrToDate(Value,newdate) then
         AttemptTextToDate(VarToStr(Value), NewDate)
     else
         NewDate := now;
     TJvDropCalendar(FPopup).SelDate := NewDate;
  end;
end;
TagsNo tags attached.

Activities

obones

2006-06-09 04:13

administrator   ~0009531

How do you manage to get a NULL value out of the PopupMenu?

obones

2006-06-09 04:16

administrator   ~0009532

Hum, well, ok, sorry. This is now integrated in SVN.

Issue History

Date Modified Username Field Change
2006-05-29 03:04 xerkan New Issue
2006-06-09 04:13 obones Note Added: 0009531
2006-06-09 04:13 obones Status new => feedback
2006-06-09 04:16 obones Status feedback => resolved
2006-06-09 04:16 obones Resolution open => fixed
2006-06-09 04:16 obones Assigned To => obones
2006-06-09 04:16 obones Note Added: 0009532