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
0003979 [JEDI VCL] 00 JVCL Components minor always 2006-11-03 08:03 2007-01-04 10:29
Reporter Jordi March View Status public  
Assigned To outchy
Priority normal Resolution fixed  
Status resolved   Product Version 3.20
Summary 0003979: TJvCustomMonthCalendar.Change error
Description when
"IsAssigned" (TJvCustomMonthCalendar.DateMax)
xor
"IsAssigned" (TJvCustomMonthCalendar.DateMin)

then
MonthCal_SetRange (within TJvCustomMonthCalendar.Change) never is called
Additional Information Solution:
To change (in TJvCustomMonthCalendar.Change): line 883
  if (FMinDate <> 0) and (FMaxDate <> 0) then
for
  if (FMinDate <> 0) or (FMaxDate <> 0) then
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0010412)
Jordi March (reporter)
2006-11-03 09:07

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
(0010538)
outchy (administrator)
2007-01-04 10:29

Fixed in revision 11131

- Issue History
Date Modified Username Field Change
2006-11-03 08:03 Jordi March New Issue
2006-11-03 09:05 Jordi March Issue Monitored: Jordi March
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


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