/////////////////////////////////////////////////////////////////////
// COMBOBOX - Standard version
/////////////////////////////////////////////////////////////////////

#xcommand @ <row>, <col> COMBOBOX <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ ITEMS <rows> ] ;
      [ ITEMSOURCE <itemsource> ] ;
      [ ITEMIMAGENUMBER <itemimagenumber> ] ;
      [ VALUE <value> ] ;
      [ VALUESOURCE <valuesource> ] ;
      [ <displayedit: DISPLAYEDIT> ] ;
      [ FONT <f> ] ;
      [ SIZE <n> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <gotfocus> ] ;
      [ <dummy03: ONCHANGE, ON CHANGE> <changeprocedure> ] ;
      [ <dummy04: ONLOSTFOCUS, ON LOSTFOCUS> <lostfocus> ] ;
      [ <dummy11: ONENTER, ON ENTER> <enter> ] ;
      [ ON DISPLAYCHANGE <displaychng> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ IMAGE <aImage> ] ;
      [ IMAGESOURCE <imagesource> ] ;
      [ <fit: FIT> ] ;
      [ <sort: SORT> ] ;
      [ <rtl: RTL> ] ;
      [ TEXTHEIGHT <textheight> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
      [ <firstitem: FIRSTITEM> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONTCOLOR <fontcolor> ] ;
      [ LISTWIDTH <listwidth> ] ;
      [ ON LISTDISPLAY <listdisplay> ] ;
      [ ON LISTCLOSE <listclose> ] ;
      [ <delay: DELAYEDLOAD> ] ;
      [ <incremental: INCREMENTAL> ] ;
      [ <winsize: INTEGRALHEIGHT> ] ;
      [ <rfrsh: REFRESH, NOREFRESH> ] ;
      [ SOURCEORDER <sourceorder> ] ;
      [ ON REFRESH <refresh> ] ;
      [ SEARCHLAPSE <nLapse> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TCombo(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <col>, <row>, <w>, <rows>, <value>, ;
            <f>, <n>, <tooltip>, <{changeprocedure}>, <h>,  <{gotfocus}>, ;
            <{lostfocus}>, <{enter}>, <helpid>, <.invisible.>, <.notabstop.>, ;
            <.sort.>,<.bold.>, <.italic.>, <.underline.>, <.strikeout.>, ;
            <(itemsource)>, <(valuesource)>, <.displayedit.>, ;
            <{displaychng}>, .F., "", <aImage>, <.rtl.>, <textheight>, ;
            <.disabled.>, <.firstitem.>, <.fit.>, <backcolor>, <fontcolor>, ;
            <listwidth>, <{listdisplay}>, <{listclose}>, <{imagesource}>, ;
            <{itemimagenumber}>, <.delay.>, <.incremental.>, <.winsize.>, ;
            IIF( Upper( #<rfrsh> ) == "NOREFRESH", .F., ;
            IIF( Upper( #<rfrsh> ) == "REFRESH", .T., NIL ) ), ;
            <(sourceorder)>, <{refresh}>, <nLapse> )


/////////////////////////////////////////////////////////////////////
// COMBOBOX - SplitBox version
/////////////////////////////////////////////////////////////////////

#xcommand COMBOBOX <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ ITEMS <rows> ] ;
      [ ITEMSOURCE <itemsource> ] ;
      [ ITEMIMAGENUMBER <itemimagenumber> ] ;
      [ VALUE <value> ] ;
      [ VALUESOURCE <valuesource> ] ;
      [ <displayedit: DISPLAYEDIT> ] ;
      [ FONT <f> ] ;
      [ SIZE <n> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <gotfocus> ] ;
      [ ON CHANGE <changeprocedure> ] ;
      [ <dummy04: ONLOSTFOCUS, ON LOSTFOCUS> <lostfocus> ] ;
      [ <dummy11: ONENTER, ON ENTER> <enter> ] ;
      [ ON DISPLAYCHANGE <displaychng> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ HELPID <helpid> ] ;
      [ GRIPPERTEXT <grippertext> ] ;
      [ <break: BREAK> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ IMAGE <aImage> ] ;
      [ IMAGESOURCE <imagesource> ] ;
      [ <fit: FIT> ] ;
      [ <sort: SORT> ] ;
      [ <rtl: RTL> ] ;
      [ TEXTHEIGHT <textheight> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
      [ <firstitem: FIRSTITEM> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONTCOLOR <fontcolor> ] ;
      [ LISTWIDTH <listwidth> ] ;
      [ ON LISTDISPLAY <listdisplay> ] ;
      [ ON LISTCLOSE <listclose> ] ;
      [ <delay: DELAYEDLOAD> ] ;
      [ <incremental: INCREMENTAL> ] ;
      [ <winsize: INTEGRALHEIGHT> ] ;
      [ <rfrsh: REFRESH, NOREFRESH> ] ;
      [ SOURCEORDER <sourceorder> ] ;
      [ ON REFRESH <refresh> ] ;
      [ SEARCHLAPSE <nLapse> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TCombo(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, , , <w>, <rows>, <value>, ;
            <f>, <n>, <tooltip>, <{changeprocedure}>, <h>, <{gotfocus}>, ;
            <lostfocus}>, <{enter}>, <helpid>, <.invisible.>, <.notabstop.>, ;
            <.sort.>,<.bold.>, <.italic.>, <.underline.>, <.strikeout.>, ;
            <(itemsource)>, <(valuesource)>, <.displayedit.>, <{displaychng}>, ;
            <.break.>, <grippertext>, <aImage>, <.rtl.>, <textheight>, ;
            <.disabled.>, <.firstitem.>, <.fit.>, <backcolor>, <fontcolor>, ;
            <listwidth>, <{listdisplay}>, <{listclose}>, <{imagesource}>, ;
            <{itemimagenumber}>, <.delay.>, <.incremental.>, <.winsize.>, ;
            IIF( Upper( #<rfrsh> ) == "NOREFRESH", .F., ;
            IIF( Upper( #<rfrsh> ) == "REFRESH", .T., NIL ) ), ;
            <(sourceorder)>, <{refresh}>, <nLapse> )

Related commands and functions :

*** Standard syntax:

   SET COMBOREFRESH ON
   SET COMBOREFRESH OFF

*** Alternative syntax:

   SetComboRefresh( .T. )
   SetComboRefresh( .F. )