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 >>>>>>