/////////////////////////////////////////////////////////////////////
// BUTTON
/////////////////////////////////////////////////////////////////////

#xcommand @ <row>, <col> BUTTON <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ <dummy2: ACTION,ON CLICK,ONCLICK> <action> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ FONT <font> ] ;
      [ SIZE <size> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ <flat: FLAT> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <gotfocus> ] ;
      [ <dummy04: ONLOSTFOCUS, ON LOSTFOCUS> <lostfocus> ] ;
      [ ON MOUSEMOVE <onmousemove> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <rtl: RTL> ] ;
      [ <noprefix: NOPREFIX> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
      [ CAPTION <caption> ] ;
      [ <dummy3: PICTURE, ICON> <bitmap> ] ;
      [ BUFFER <buffer> ] ;
      [ HBITMAP <hbitmap> ] ;
      [ <lnoldtr: NOLOADTRANSPARENT> ] ;
      [ <scale: FORCESCALE> ] ;
      [ <cancel: CANCEL> ] ;
      [ <imgalign: LEFT, RIGHT, TOP, BOTTOM, CENTER> ] ;
      [ <multiline: MULTILINE> ] ;
      [ <drawby: OOHGDRAW, WINDRAW> ] ;
      [ IMAGEMARGIN <aImageMargin> ] ;
      [ <no3dcolors: NO3DCOLORS> ] ;
      [ <autofit: AUTOFIT, ADJUST> ] ;
      [ <lDIB: DIBSECTION> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ <nohotlight: NOHOTLIGHT> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TButton(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <col>, <row>, <caption>, <{action}>, ;
            <w>, <h>, <font>, <size>, <tooltip>, <{gotfocus}>, <{lostfocus}>, ;
            <.flat.>, <.notabstop.>, <helpid>, <.invisible.>, <.bold.>, ;
            <.italic.>, <.underline.>, <.strikeout.>, <.rtl.>, <.noprefix.>, ;
            <.disabled.>, <buffer>, <hbitmap>, <bitmap>, <.lnoldtr.>, ;
            <.scale.>, <.cancel.>, <"imgalign">, <.multiline.>, ;
            IIF( #<drawby> == "OOHGDRAW", .T., IIF( #<drawby> == "WINDRAW", .F., NIL ) ), ;
            <aImageMargin>, <{onmousemove}>, <.no3dcolors.>, <.autofit.>, ;
            ! <.lDIB.>, <backcolor>, <.nohotlight.> )