View Issue Details

IDProjectCategoryView StatusLast Update
0003979JEDI VCL00 JVCL Componentspublic2007-01-04 10:29
ReporterJordi MarchAssigned Tooutchy 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.20 
Target VersionFixed in Version3.30 
Summary0003979: TJvCustomMonthCalendar.Change error
Descriptionwhen
"IsAssigned" (TJvCustomMonthCalendar.DateMax)
xor
"IsAssigned" (TJvCustomMonthCalendar.DateMin)

then
MonthCal_SetRange (within TJvCustomMonthCalendar.Change) never is called
Additional InformationSolution:
To change (in TJvCustomMonthCalendar.Change): line 883
  if (FMinDate <> 0) and (FMaxDate <> 0) then
for
  if (FMinDate <> 0) or (FMaxDate <> 0) then
TagsNo tags attached.

Activities

Jordi March

2006-11-03 09:07

reporter   ~0010412

This is only a solution for FMaxDate

it's better:
  if (FMinDate <> 0) or (FMaxDate <> 0) then
  begin
    DecodeDate(FMinDate, Y, M, D);
    with RGST[0] do
    begin
      wYear := Y;
      wMonth := M;
      wDay := D;
    end;
    if FMaxDate = 0 then begin
      with RGST[1] do
      begin
        wYear := 9999;
        wMonth := 12;
        wDay := 31;
      end;
    end
    else begin
      DecodeDate(FMaxDate, Y, M, D);
      with RGST[1] do
      begin
        wYear := Y;
        wMonth := M;
        wDay := D;
      end;
    end;
    {$IFDEF CLR}
    MonthCal_SetRange(Handle, GDTR_MIN or GDTR_MAX, RGST);
    {$ELSE}
    MonthCal_SetRange(Handle, GDTR_MIN or GDTR_MAX, @RGST[0]);
    {$ENDIF CLR}
  end

outchy

2007-01-04 10:29

administrator   ~0010538

Fixed in revision 11131

Issue History

Date Modified Username Field Change
2006-11-03 08:03 Jordi March New Issue
2006-11-03 09:07 Jordi March Note Added: 0010412
2007-01-04 10:29 outchy Status new => resolved
2007-01-04 10:29 outchy Fixed in Version => Daily / SVN
2007-01-04 10:29 outchy Resolution open => fixed
2007-01-04 10:29 outchy Assigned To => outchy
2007-01-04 10:29 outchy Note Added: 0010538