/////////////////////////////////////////////////////////////////////
// SLIDER
/////////////////////////////////////////////////////////////////////

#command @ <row>, <col> SLIDER <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ RANGE <lo>, <hi> ] ;
      [ VALUE <value> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ <dummy03: ONCHANGE, ON CHANGE> <change> ] ;
      [ <vertical: VERTICAL> ] ;
      [ <noticks: NOTICKS> ] ;
      [ <both: BOTH> ] ;
      [ <top: TOP> ] ;
      [ <left: LEFT> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ <rtl: RTL> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TSlider(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <col>, <row>, <w>, <h>, <lo>, <hi>, ;
            <value>, <tooltip>, <{change}>, <.vertical.>, <.noticks.>, ;
            <.both.>, <.top.>, <.left.>, <helpid>, <.invisible.>, ;
            <.notabstop.>, <backcolor>, <.rtl.>, <.disabled.> )