/////////////////////////////////////////////////////////////////////
// PROGRESSBAR
/////////////////////////////////////////////////////////////////////

#command @ <row>, <col> PROGRESSBAR <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ RANGE <lo>, <hi> ] ;
      [ VALUE <v> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ <vertical: VERTICAL> ] ;
      [ <smooth: SMOOTH> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FORECOLOR <barcolor> ] ;
      [ <rtl: RTL> ] ;
      [ MARQUEE <nVelocity> ] ;
   => ;
      [ <obj> := ] TProgressBar():Define( <(name)>, <(parent)>, <col>, ;
            <row>, <w>, <h>, <lo>, <hi>, <tooltip>, <.vertical.>, ;
            <.smooth.>, <helpid>, <.invisible.>, <v>, [ <backcolor> ], ;
            [ <barcolor> ], <.rtl.>, <nVelocity> )