Visible Months in TCalendar

[David Williams]

Hi Friends

Using TCalendar, I want to show only one month at a time when scrolling through a range of dates, but it defaults to 2.
How does it determine how many are made visible?

TIA
David

[ukoenig]

David,

possible displayed numbers of MONTH,
belongs to the given SIZE ( autoadjusted ) :



4 month vertical display ( from sample TESTCAL.prg ) :

@ 2, 001 CALENDAR oCal2 VAR dDate3, dDate4 OF oWnd PIXEL MULTISELECT DAYSTATE;
DBLCLICK MsgInfo( oCal2:GetDate() ) SIZE 250, 700 COLOR CLR_WHITE, CLR_HRED
oCal2:SetDateRange( dDate1, dDate4 )
oCal2:bGotFocus := {|| oCal2:SetTitleBk( CLR_BLUE ) }
oCal2:bLostFocus := {|| oCal2:SetTitleBk( CLR_HRED ) }
nMax = oCal2:GetMaxSelCount()
OnGetState( oCal2, lSunday, lSaturday )
oCal2:SetDayState()
oCal2:bOnGetState = { | oCal | OnGetState( oCal, lSunday, lSaturday ) }



Best Regards
Uwe

[David Williams]

Uwe,

Your example works well for me with SIZE controlling the number of months when the control is on a Window. However, I want to use the control on a Dialog. When I size the dialog to accommodate two vertical months it works well with Win7 but shows a cropped 2 x 2 months when running on XP.

I suppose the easiest thing to do now is to use a Window

Regards
David