DEFINE POPUP popMonths shortcut RELATIVE FROM MROW(),MCOL()>>>
>>>>This.Parent.MonthClicked(This.Parent) >>>>>>>>
>>>>** PROCEDURE MonthClicked >>>>LPARAMETERS oThis >>>> >>>> WITH This >>>> >>>> DEFINE POPUP popMonths FROM MROW(), MCOL() MARGIN >>>> >>>> DEFINE BAR 1 OF popMonths PROMPT "\<January" >>>> DEFINE BAR 2 OF popMonths PROMPT "\<February" >>>> DEFINE BAR 3 OF popMonths PROMPT "\<March" >>>> DEFINE BAR 4 OF popMonths PROMPT "\<April" >>>> DEFINE BAR 5 OF popMonths PROMPT "\<May" >>>> DEFINE BAR 6 OF popMonths PROMPT "\<June" >>>> DEFINE BAR 7 OF popMonths PROMPT "\<July" >>>> DEFINE BAR 8 OF popMonths PROMPT "\<August" >>>> DEFINE BAR 9 OF popMonths PROMPT "\<September" >>>> DEFINE BAR 10 OF popMonths PROMPT "\<October" >>>> DEFINE BAR 11 OF popMonths PROMPT "\<November" >>>> DEFINE BAR 12 OF popMonths PROMPT "\<December" >>>> >>>> ON SELECTION POPUP popMonths oThis.MonthSelected() >>>> ACTIVATE POPUP popMonths >>>> >>>>ENDWITH >>>> >>>>RETURN >>>>>>>>
>>>>** PROCEDURE MonthSelected >>>> >>>> LOCAL nMonth, nDay, nYear, tDateTime, dDate >>>> >>>> WITH This >>>> >>>> nMonth = BAR() >>>> nDay = ._nDay >>>> nYear = ._nYear >>>> >>>> tDateTime = DATETIME(nYear, nMonth, nDay) >>>> dDate = TTOD(tDateTime) >>>> >>>> .LoadCalendar(dDate) >>>> >>>> ENDWITH >>>> >>>>RETURN >>>>>>>>