/////////////////////////////////////////////////////////////////////
// RICHEDITBOX - Standard version
/////////////////////////////////////////////////////////////////////

#xcommand @ <row>, <col> RICHEDITBOX <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ FIELD <field> ] ;
      [ FILE <file> ] ;
      [ <plain : PLAINTEXT> ] ;
		[ FILETYPE <type> ] ;
      [ VALUE <value> ] ;
      [ < readonly: READONLY > ] ;
      [ FONT <f> ] ;
      [ SIZE <s> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONTCOLOR <fontcolor> ] ;
      [ MAXLENGTH <maxlength> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <gotfocus> ] ;
      [ <dummy03: ONCHANGE, ON CHANGE> <change> ] ;
      [ <dummy04: ONLOSTFOCUS, ON LOSTFOCUS> <lostfocus> ] ;
      [ <dummy05: ONSELECT, ON SELECT, ONSELCHANGE, ON SELCHANGE> <selchange> ] ;
      [ HELPID <helpid> ] ;
      [ <break: BREAK> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ <rtl: RTL> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
      [ <nohidesel: NOHIDESEL> ] ;
      [ FOCUSEDPOS <focusedpos> ] ;
      [ <novscroll: NOVSCROLL> ] ;
      [ <nohscroll: NOHSCROLL> ] ;
      [ <dummy06: ONVSCROLL, ON VSCROLL> <vscroll> ] ;
      [ <dummy07: ONHSCROLL, ON HSCROLL> <hscroll> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TEditRich(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <col>, <row>, <w>, <h>, <value>, ;
            <f>, <s>, <tooltip>, <maxlength>, <{gotfocus}>, <{change}>, ;
            <{lostfocus}>, <.readonly.>, <.break.>, <helpid>, <.invisible.>, ;
            <.notabstop.>, <.bold.>, <.italic.>, <.underline.>, <.strikeout.>, ;
            <(field)>, <backcolor>, <.rtl.>, <.disabled.>, <{selchange}>, ;
            <fontcolor>, <.nohidesel.>, <focusedpos>, <.novscroll.>, ;
            <.nohscroll.>, <file>, iif( <.plain.>, 1, <type> ), <{hscroll}>, ;
            <{vscroll}> )


/////////////////////////////////////////////////////////////////////
// RICHEDITBOX - SplitBox version
/////////////////////////////////////////////////////////////////////

#xcommand RICHEDITBOX <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ FIELD <field> ] ;
      [ FILE <file> ] ;
      [ <plain : PLAINTEXT> ] ;
		[ FILETYPE <type> ] ;
      [ VALUE <value> ] ;
      [ < readonly: READONLY > ] ;
      [ FONT <f> ] ;
      [ SIZE <s> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONTCOLOR <fontcolor> ] ;
      [ MAXLENGTH <maxlength> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <gotfocus> ] ;
      [ <dummy03: ONCHANGE, ON CHANGE> <change> ] ;
      [ <dummy04: ONLOSTFOCUS, ON LOSTFOCUS> <lostfocus> ] ;
      [ <dummy05: ONSELECT, ON SELECT, ONSELCHANGE, ON SELCHANGE> <selchange> ] ;
      [ HELPID <helpid> ] ;
      [ <break: BREAK> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ <rtl: RTL> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
      [ <nohidesel: NOHIDESEL> ] ;
      [ FOCUSEDPOS <focusedpos> ] ;
      [ <novscroll: NOVSCROLL> ] ;
      [ <nohscroll: NOHSCROLL> ] ;
      [ <dummy06: ONVSCROLL, ON VSCROLL> <vscroll> ] ;
      [ <dummy07: ONHSCROLL, ON HSCROLL> <hscroll> ] ;
   =>;
      [ <obj> := ] _OOHG_SelectSubClass( TEditRich(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, , , <w>, <h>, <value>, <f>, <s>, ;
            <tooltip>, <maxlength>, <{gotfocus}>, <{change}>, <{lostfocus}>, ;
            <.readonly.>, <.break.>, <helpid>, <.invisible.>, <.notabstop.>, ;
            <.bold.>, <.italic.>, <.underline.>, <.strikeout.>, <(field)>, ;
            <backcolor>, <.rtl.>, <.disabled.>, <{selchange}>, <fontcolor>, ;
            <.nohidesel.>, <focusedpos>, <.novscroll.>, <.nohscroll.>, <file>, ;
            iif( <.plain.>, 1, <type> ), <{hscroll}>, <{vscroll}>