Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0003733 [JEDI VCL] 00 JVCL Components tweak always 2006-05-29 03:04 2006-06-09 04:16
Reporter xerkan View Status public  
Assigned To obones
Priority normal Resolution fixed  
Status resolved   Product Version Daily / GIT
Summary 0003733: Year 1899 when TJvDBDatePickerEdit is null
Description When 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 Information Cuando 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;
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0009531)
obones (administrator)
2006-06-09 04:13

How do you manage to get a NULL value out of the PopupMenu?
(0009532)
obones (administrator)
2006-06-09 04:16

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


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker