[WIN] MonthCalendar Control: getSelected, how?
- Posted by DanMoyer at PRODIGY.NET Aug 02, 2001
- 559 views
In trying to use the MonthCalendar control, I was thinking I could get info about which date was user clicked on by using "SelectedDate = getSelectedDate( MonthCalendar2 )", by putting it in an "onChange[MonthCalendar2]" event routine, but it doesn't seem to work. Is that wrong approach?? (I tried putting it in "onClick", too, but that didn't work for me either.) Below is full test code. Dan Moyer -- code generated by Win32Lib IDE v0.10.5 include Win32Lib.ew without warning ---- -- Window Window1 global constant Window1 = create( Window, "Window1", 0, Default, Default, 592, 301, 0 ) global constant MonthCalendar2 = create( MonthCalendar, "MonthCalendar2", Window1, 4, 4, 250, 200, 0 ) global constant MleText3 = create( MleText, "MleText3", Window1, 272, 8, 304, 196, 0 ) ---- -- variable structures for dated notes: sequence CalendarDates, CalendarNotes CalendarDates = {} CalendarNotes = {} ---- procedure Window1_onOpen () setText( MleText3, "beginning" ) -- test to see it written end procedure onOpen[Window1] = routine_id("Window1_onOpen") ---- procedure MonthCalendar2_onChange () sequence SelectedDate integer DateInfoLocation SelectedDate = getSelectedDate( MonthCalendar2 ) DateInfoLocation = find(SelectedDate, CalendarDates) if DateInfoLocation then wPuts( MleText3, CalendarNotes[DateInfoLocation] ) else setText( MleText3, "nothing" ) wPuts( MleText3, "nothing") -- tried first end if end procedure onChange[MonthCalendar2] = routine_id("MonthCalendar2_onChange") ---- WinMain( Window1, Normal )