/////////////////////////////////////////////////////////////////////
// SPINNER
/////////////////////////////////////////////////////////////////////

#command @ <row>, <col> SPINNER <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      RANGE <rl>, <rh> ;
      [ VALUE <value> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ FONT <fontname> ] ;
      [ SIZE <fontsize> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONTCOLOR <fontcolor> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <gotfocus> ] ;
      [ <dummy03: ONCHANGE, ON CHANGE> <change> ] ;
      [ <dummy04: ONLOSTFOCUS, ON LOSTFOCUS> <lostfocus> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ <wrap: WRAP> ] ;
      [ <readonly: READONLY> ] ;
      [ INCREMENT <inc> ] ;
      [ <rtl: RTL> ] ;
      [ <noborder: NOBORDER> ] ;
      [ <disabled: DISABLED> ] ;
      [ <boundtext: BOUNDTEXT> ] ;
   => ;
      [ <obj> := ] TSpinner():Define( <(name)>, <(parent)>, <col>, <row>, <w>, ;
            <value>, <fontname>, <fontsize>, <rl>, <rh>, <tooltip>, <{change}>, ;
            <{lostfocus}>, <{gotfocus}>, <h>, <helpid>, <.invisible.>, ;
            <.notabstop.>, <.bold.>, <.italic.>, <.underline.>, <.strikeout.>, ;
            <.wrap.>, <.readonly.>, <inc>, <backcolor>, <fontcolor>, <.rtl.>, ;
            <.noborder.>, <.disabled.>, <.boundtext.> )