/////////////////////////////////////////////////////////////////////
// MONTHCALENDAR
/////////////////////////////////////////////////////////////////////

#command @ <row>, <col> MONTHCALENDAR <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ VALUE <v> ] ;
      [ FONT <fontname> ] ;
      [ SIZE <fontsize> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ <notoday: NOTODAY> ] ;
      [ <notodaycircle: NOTODAYCIRCLE> ] ;
      [ <weeknumbers: WEEKNUMBERS> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ ON CHANGE <change> ] ;
      [ HELPID <helpid> ] ;
      [ <rtl: RTL> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
      [ FONTCOLOR <fontcolor> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ TITLEFONTCOLOR <titlefontcolor> ] ;
      [ TITLEBACKCOLOR <titlebackcolor> ] ;
      [ TRAILINGFONTCOLOR <trailingfontcolor> ] ;
      [ BACKGROUNDCOLOR <backgroundcolor> ] ;
      [ <multiselect: MULTISELECT> ] ;
      [ <dummy2: ONVIEWCHANGE, ON VIEWCHANGE> <viewchg> ] ;
      [ <dummy3: ONGOTFOCUS, ON GOTFOCUS> <gotfocus> ] ;
      [ <dummy4: ONLOSTFOCUS, ON LOSTFOCUS> <lostfocus> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( IIF( <.multiselect.>, ;
            TMonthCalMulti(), TMonthCal() ), [ <subclass>() ] ):Define( ;
            <(name)>, <(parent)>, <col>, <row>, 0, 0, <v>, <fontname>, <fontsize>, ;
            <tooltip>, <.notoday.>, <.notodaycircle.>, <.weeknumbers.>, <{change}>, ;
            <helpid>, <.invisible.>, <.notabstop.>, <.bold.>, <.italic.>, ;
            <.underline.>, <.strikeout.>, <.rtl.>, <.disabled.>, <fontcolor>, ;
            <backcolor>, <titlefontcolor>, <titlebackcolor>, <trailingfontcolor>, ;
            <backgroundcolor>, <{viewchg}>, <{gotfocus}>, <{lostfocus}> )