/////////////////////////////////////////////////////////////////////
// LISTBOX - Standard version
/////////////////////////////////////////////////////////////////////

#command @ <row>, <col> LISTBOX <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ ITEMS <aRows> ] ;
      [ VALUE <value> ] ;
      [ 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> ] ;
      [ ON DBLCLICK <dblclick> ] ;
      [ <multiselect: MULTISELECT> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ <sort: SORT> ] ;
      [ <rtl: RTL> ] ;
      [ <dummy11: ONENTER, ON ENTER> <enter> ] ;
      [ <disabled: DISABLED> ] ;
      [ SUBCLASS <subclass> ] ;
      [ IMAGE <aImage> [ <fit: FIT> ] ] ;
      [ TEXTHEIGHT <textheight> ] ;
      [ <novscroll: NOVSCROLL> ] ;
      [ <multicolumn: MULTICOLUMN> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( ;
            IIF( <.multiselect.>, TListMulti(), TList() ), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <col>, <row>, <w>, <h>, <aRows>, ;
            <value>, <fontname>, <fontsize>, <tooltip>, <{change}>, ;
            <{dblclick}>, <{gotfocus}>, <{lostfocus}>, .F., ;
            <helpid>, <.invisible.>, <.notabstop.>, <.sort.>, ;
            <.bold.>, <.italic.>, <.underline.>, <.strikeout.>, ;
            <backcolor>, <fontcolor>, <.rtl.>, <.disabled.>, <{enter}>, ;
            <aImage>, <textheight>, <.fit.>, <.novscroll.>, <.multicolumn.> )


/////////////////////////////////////////////////////////////////////
// LISTBOX - SplitBox version
/////////////////////////////////////////////////////////////////////

#xcommand LISTBOX <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ ITEMS <aRows> ] ;
      [ VALUE <value> ] ;
      [ 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> ] ;
      [ ON DBLCLICK <dblclick> ] ;
      [ <multiselect: MULTISELECT> ] ;
      [ HELPID <helpid> ] ;
      [ <break: BREAK> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ <sort: SORT> ] ;
      [ <rtl: RTL> ] ;
      [ <dummy11: ONENTER, ON ENTER> <enter> ] ;
      [ <disabled: DISABLED> ] ;
      [ SUBCLASS <subclass> ] ;
      [ IMAGE <aImage> [ <fit: FIT> ] ] ;
      [ TEXTHEIGHT <textheight> ] ;
      [ <novscroll: NOVSCROLL> ] ;
      [ <multicolumn: MULTICOLUMN> [ COLUMNWIDTH <nColWidth> ] ] ;
      [ <multitab : MULTITAB> [ TABSWIDTH <aWidth> ] ] ;
      [ <dragitems : DRAGITEMS> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( ;
            IIF( <.multiselect.>, TListMulti(), TList() ), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>,  ,, <w>, <h>, <aRows>, <value>, ;
            <fontname>, <fontsize>, <tooltip>, <{change}>, <{dblclick}>, ;
            <{gotfocus}>, <{lostfocus}>, <.break.>, <helpid>, ;
            <.invisible.>, <.notabstop.>, <.sort.>,<.bold.>, ;
            <.italic.>, <.underline.>, <.strikeout.>, <backcolor>, ;
            <fontcolor>, <.rtl.>, <.disabled.>, <{enter}>, ;
            <aImage>, <textheight>, <.fit.>, <.novscroll.>, <.multicolumn.>,
            <nColWidth>, <.multitab.>, <aWidth>, <.dragitems.> )