/////////////////////////////////////////////////////////////////////
// RADIOGROUP
/////////////////////////////////////////////////////////////////////

#command @ <row>, <col> RADIOGROUP <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ OPTIONS <aOptions> ] ;
      [ VALUE <value> ] ;
      [ WIDTH <width> ] ;
      [ SPACING <spacing> ] ;
      [ FONT <fontname> ] ;
      [ SIZE <fontsize> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONTCOLOR <fontcolor> ] ;
      [ <dummy03: ONCHANGE, ON CHANGE> <change> ] ;
      [ <transparent: TRANSPARENT> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ <autosize: AUTOSIZE> ] ;
      [ <horizontal: HORIZONTAL> ] ;
      [ <disabled: DISABLED> ] ;
      [ <rtl: RTL> ] ;
      [ HEIGHT <height> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <drawby: OOHGDRAW, WINDRAW> ] ;
      [ BACKGROUND <bkgrnd> ] ;
      [ <left: LEFTJUSTIFY, LEFTALIGN> ] ;
      [ READONLY <aReadOnly> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TRadioGroup(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <col>, <row>, <aOptions>, <value>, ;
            <fontname>, <fontsize>, <tooltip>, <{change}>, <width>, ;
            <spacing>, <helpid>, <.invisible.>, <.notabstop.>, <.bold.>, ;
            <.italic.>, <.underline.>, <.strikeout.>, <backcolor>, ;
            <fontcolor>, <.transparent.>, <.autosize.>, <.horizontal.>, ;
            <.disabled.>, <.rtl.>, <height>, IIF( #<drawby> == "OOHGDRAW", .T., ;
            IIF( #<drawby> == "WINDRAW", .F., NIL ) ), <bkgrnd>, <.left.>, ;
            <aReadOnly> )