///////////////////////////////////////////////////////////////////////////////
// ACTIVEX
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> ACTIVEX <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ WIDTH <width> ] ;
[ HEIGHT <height> ] ;
[ PROGID <progid> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <disabled: DISABLED> ] ;
[ SUBCLASS <subclass> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( TActiveX(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <width>, <height>, ;
<progid>, <.notabstop.>, <.disabled.> )
///////////////////////////////////////////////////////////////////////////////
// STANDARD BROWSE
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> BROWSE <name> ;
[ OF <parent> ] ;
[ OBJ <oObj> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ HEADERS <headers> ] ;
[ WIDTHS <widths> ] ;
[ WORKAREA <workarea> ] ;
[ FIELDS <Fields> ] ;
[ INPUTMASK <Picture> ] ;
[ VALUE <value> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ DYNAMICBACKCOLOR <dynamicbackcolor> ] ;
[ DYNAMICFORECOLOR <dynamicforecolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON DBLCLICK <dblclick> ] ;
[ <edit : EDIT> ] ;
[ <inplace : INPLACE> ] ;
[ <append : APPEND> ] ;
[ ON HEADCLICK <aHeadClick> ] ;
[ <dummy2: WHEN, COLUMNWHEN> <aWhenFields> ] ;
[ VALID <aValidFields> ] ;
[ VALIDMESSAGES <aValidMessages> ] ;
[ READONLY <aReadOnly> ] ;
[ <lock: LOCK> ] ;
[ <Delete: DELETE> ] ;
[ <style: NOLINES> ] ;
[ IMAGE <aImage> ] ;
[ JUSTIFY <aJust> ] ;
[ <novscroll: NOVSCROLL> ] ;
[ HELPID <helpid> ] ;
[ <break: BREAK> ] ;
[ <rtl: RTL> ] ;
[ ON APPEND <onappend> ] ;
[ ON EDITCELL <editcell> ] ;
[ COLUMNCONTROLS <editcontrols> ] ;
[ REPLACEFIELD <replacefields> ] ;
[ SUBCLASS <subclass> ] ;
[ <reccount: RECCOUNT> ] ;
[ COLUMNINFO <columninfo> ] ;
=>;
[ <oObj> := ] _OOHG_SelectSubClass( TOBrowse(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <w>, <h>, <headers>, <widths>, ;
<Fields>, <value>, <fontname>, <fontsize>, <tooltip>, <{change}>, ;
<{dblclick}>, <aHeadClick>, <{gotfocus}>, <{lostfocus}>, <(workarea)> , ;
<.Delete.>, <.style.>, <aImage>, <aJust>, <helpid>, <.bold.>, ;
<.italic.>, <.underline.>, <.strikeout.>, <.break.>, <backcolor>, ;
<fontcolor>, <.lock.>, <.inplace.>, <.novscroll.>, <.append.>, ;
<aReadOnly>, <aValidFields>, <aValidMessages>, <.edit.>, ;
<dynamicbackcolor>, <aWhenFields>, <dynamicforecolor>, <Picture>, <.rtl.>, ;
<{onappend}>, <{editcell}>, <editcontrols>, <replacefields>, <.reccount.>, ;
<columninfo> )
///////////////////////////////////////////////////////////////////////////////
// SPLITBOX BROWSE
///////////////////////////////////////////////////////////////////////////////
#command BROWSE <name> ;
[ OF <parent> ] ;
[ OBJ <oObj> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ HEADERS <headers> ] ;
[ WIDTHS <widths> ] ;
[ WORKAREA <WorkArea> ] ;
[ FIELDS <Fields> ] ;
[ INPUTMASK <Picture> ] ;
[ VALUE <value> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ DYNAMICBACKCOLOR <dynamicbackcolor> ] ;
[ DYNAMICFORECOLOR <dynamicforecolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON DBLCLICK <dblclick> ] ;
[ <edit : EDIT> ] ;
[ <inplace : INPLACE> ] ;
[ <append : APPEND> ] ;
[ ON HEADCLICK <aHeadClick> ] ;
[ <dummy2: WHEN, COLUMNWHEN> <aWhenFields> ] ;
[ VALID <aValidFields> ] ;
[ VALIDMESSAGES <aValidMessages> ] ;
[ READONLY <aReadOnly> ] ;
[ <lock: LOCK> ] ;
[ <Delete: DELETE> ] ;
[ <style: NOLINES> ] ;
[ IMAGE <aImage> ] ;
[ JUSTIFY <aJust> ] ;
[ <novscroll: NOVSCROLL> ] ;
[ HELPID <helpid> ] ;
[ <break: BREAK> ] ;
[ <rtl: RTL> ] ;
[ ON APPEND <onappend> ] ;
[ ON EDITCELL <editcell> ] ;
[ COLUMNCONTROLS <editcontrols> ] ;
[ REPLACEFIELD <replacefields> ] ;
[ SUBCLASS <subclass> ] ;
[ <reccount: RECCOUNT> ] ;
[ COLUMNINFO <columninfo> ] ;
=>;
[ <oObj> := ] _OOHG_SelectSubClass( TOBrowse(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, , , <w>, <h>, <headers>, <widths>, <Fields>, ;
<value>, <fontname>, <fontsize>, <tooltip>, <{change}>, <{dblclick}>, ;
<aHeadClick>, <{gotfocus}>, <{lostfocus}>, <(WorkArea)>, <.Delete.>, ;
<.style.>, <aImage>, <aJust>, <helpid>, <.bold.>, <.italic.>, ;
<.underline.>, <.strikeout.>, <.break.>, <backcolor>, <fontcolor>, ;
<.lock.>, <.inplace.>, <.novscroll.>, <.append.>, <aReadOnly>, ;
<aValidFields>, <aValidMessages>, <.edit.>, <dynamicbackcolor>, ;
<aWhenFields>, <dynamicforecolor>, <Picture>, <.rtl.>, <{onappend}>, ;
<{editcell}>, <editcontrols>, <replacefields>, <.reccount.>, ;
<columninfo> )
///////////////////////////////////////////////////////////////////////////////
// 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> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <rtl: RTL> ] ;
[ <noprefix: NOPREFIX> ] ;
[ SUBCLASS <subclass> ] ;
[ <disabled: DISABLED> ] ;
[ CAPTION <caption> ] ;
[ PICTURE <bitmap> ] ;
[ BUFFER <buffer> ] ;
[ HBITMAP <hbitmap> ] ;
[ <notrans: NOTRANSPARENT> ] ;
[ <scale: FORCESCALE> ] ;
[ <cancel: CANCEL> ] ;
=>;
[ <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>, <.notrans.>, <.scale.>, ;
<.cancel.> )
///////////////////////////////////////////////////////////////////////////////
// CHECKBOX
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> CHECKBOX <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ CAPTION <caption> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ FIELD <field> ] ;
[ VALUE <value> ] ;
[ FONT <f> ] ;
[ SIZE <n> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ <transparent: TRANSPARENT> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <autosize: AUTOSIZE > ] ;
[ SUBCLASS <subclass> ] ;
[ <rtl: RTL> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( TCheckBox(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <caption>, <value>, <f>, <n>, ;
<tooltip>, <{change}>, [<w>], [<h>], <{lostfocus}>, <{gotfocus}>, <helpid>, ;
<.invisible.>, <.notabstop.>, <.bold.>, <.italic.>, <.underline.>, <.strikeout.>, ;
<(field)>, <backcolor>, <fontcolor>, <.transparent.>, <.autosize.>, <.rtl.> )
///////////////////////////////////////////////////////////////////////////////
// CHECKBUTTON
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> CHECKBUTTON <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ CAPTION <caption> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ VALUE <value> ] ;
[ FONT <f> ] ;
[ SIZE <n> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ SUBCLASS <subclass> ] ;
[ <rtl: RTL> ] ;
[ PICTURE <bitmap> ] ;
[ BUFFER <buffer> ] ;
[ HBITMAP <hbitmap> ] ;
[ <notrans: NOTRANSPARENT> ] ;
[ <scale: FORCESCALE> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( TCheckBox(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <caption>, <value>, <f>, <n>, ;
<tooltip>, <{change}>, [<w>], [<h>], <{lostfocus}>, <{gotfocus}>, <helpid>, ;
<.invisible.>, <.notabstop.>, <.bold.>, <.italic.>, <.underline.>, <.strikeout.>, ;
,,,,, <.rtl.>, .T., <bitmap>, <buffer>, <hbitmap>, <.notrans.>, <.scale.> )
///////////////////////////////////////////////////////////////////////////////
// COMBOBOX
///////////////////////////////////////////////////////////////////////////////
#xcommand @ <row>,<col> COMBOBOX <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ ITEMS <aRows> ] ;
[ ITEMSOURCE <itemsource> ] ;
[ VALUE <value> ] ;
[ VALUESOURCE <valuesource> ] ;
[ <displaychange : DISPLAYEDIT> ] ;
[ FONT <f> ] ;
[ SIZE <n> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <changeprocedure> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON ENTER <enter> ] ;
[ ON DISPLAYCHANGE <ondisplaychangeprocedure> ] ;
[ <notabstop : NOTABSTOP> ] ;
[ HELPID <helpid> ] ;
[ <invisible : INVISIBLE> ] ;
[ IMAGE <aImage> ] ;
[ <sort : SORT> ] ;
[ <rtl: RTL> ] ;
[ TEXTHEIGHT <textheight> ] ;
[ SUBCLASS <subclass> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( TCombo(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <w>, <aRows> , <value>, ;
<f>, <n>, <tooltip>, <{changeprocedure}>, <h>, ;
<{gotfocus}>, <{lostfocus}>, <{enter}>, <helpid>, ;
<.invisible.>, <.notabstop.>, <.sort.> ,<.bold.>, ;
<.italic.>, <.underline.>, <.strikeout.> , <(itemsource)> , ;
<(valuesource)> , <.displaychange.> , ;
<{ondisplaychangeprocedure}> , .f. , "", <aImage>, <.rtl.>, ;
<textheight> )
///////////////////////////////////////////////////////////////////////////////
// COMBOBOX SPLITBOX VERSION
///////////////////////////////////////////////////////////////////////////////
#xcommand COMBOBOX <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ ITEMS <aRows> ] ;
[ ITEMSOURCE <itemsource> ] ;
[ VALUE <value> ] ;
[ VALUESOURCE <valuesource> ] ;
[ <displaychange : DISPLAYEDIT> ] ;
[ FONT <f> ] ;
[ SIZE <n> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <changeprocedure> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON ENTER <enter> ] ;
[ ON DISPLAYCHANGE <ondisplaychangeprocedure> ] ;
[ <notabstop : NOTABSTOP> ] ;
[ HELPID <helpid> ] ;
[ GRIPPERTEXT <grippertext> ] ;
[ <break: BREAK> ] ;
[ <invisible : INVISIBLE> ] ;
[ IMAGE <aImage> ] ;
[ <sort : SORT> ] ;
[ <rtl: RTL> ] ;
[ TEXTHEIGHT <textheight> ] ;
[ SUBCLASS <subclass> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( TCombo(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, , , <w>, <aRows> , <value>, ;
<f>, <n>, <tooltip>, <{changeprocedure}>, <h>, <{gotfocus}>, ;
<{lostfocus}>, <{enter}>, <helpid>, <.invisible.>, <.notabstop.>, ;
<.sort.> ,<.bold.>, <.italic.>, <.underline.>, <.strikeout.> , ;
<(itemsource)> , <(valuesource)> , <.displaychange.> , ;
<{ondisplaychangeprocedure}> , <.break.> , <grippertext>, <aImage>, ;
<.rtl.>, <textheight> )
///////////////////////////////////////////////////////////////////////////////
// DATEPICKER
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> DATEPICKER <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ VALUE <v> ] ;
[ FIELD <field> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ < shownone: SHOWNONE > ] ;
[ < updown: UPDOWN > ] ;
[ < rightalign: RIGHTALIGN > ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON ENTER <enter> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <rtl: RTL> ] ;
=> ;
[ <obj> := ] TDatePick():Define( <(name)> , ;
<(parent)> , ;
<col> , ;
<row> , ;
<w> , ;
<h> , ;
<v> , ;
<fontname> , ;
<fontsize> , ;
<tooltip> , ;
<{change}> , ;
<{lostfocus}> , ;
<{gotfocus}> , ;
<.shownone.> , ;
<.updown.> , ;
<.rightalign.> , <helpid> , <.invisible.>, <.notabstop.> , ;
<.bold.>, <.italic.>, <.underline.>, <.strikeout.> , <(field)> , ;
<{enter}> , <.rtl.> )
///////////////////////////////////////////////////////////////////////////////
// TIMEPICKER
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> TIMEPICKER <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ VALUE <v> ] ;
[ FIELD <field> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ < shownone: SHOWNONE > ] ;
[ < updown: UPDOWN > ] ;
[ < rightalign: RIGHTALIGN > ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON ENTER <enter> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <rtl: RTL> ] ;
=> ;
[ <obj> := ] TTimePick():Define( <(name)> , ;
<(parent)> , ;
<col> , ;
<row> , ;
<w> , ;
<h> , ;
<v> , ;
<fontname> , ;
<fontsize> , ;
<tooltip> , ;
<{change}> , ;
<{lostfocus}> , ;
<{gotfocus}> , ;
<.shownone.> , ;
<.updown.> , ;
<.rightalign.> , <helpid> , <.invisible.>, <.notabstop.> ,<.bold.>, <.italic.>, <.underline.>, <.strikeout.> , <(field)> , <{enter}> , <.rtl.> )
///////////////////////////////////////////////////////////////////////////////
// EDIT WORKAREA
///////////////////////////////////////////////////////////////////////////////
#translate EDIT WORKAREA <workarea> ;
[ TITLE <title> ] ;
[ FIELDS <fields> ] ;
[ READONLY <editablefields> ] ;
[ SAVE <bsave> ] ;
[ SEARCH <bsearch> ] ;
=> ;
ABM( <(workarea)> , ;
<title> , ;
<fields> , ;
NoArray(<editablefields>) , ;
<bsave> , ;
<bsearch> )
///////////////////////////////////////////////////////////////////////////////
// EDIT EXTENDED
///////////////////////////////////////////////////////////////////////////////
#xtranslate EDIT EXTENDED ;
[ WORKAREA <cWorkArea> ] ;
[ TITLE <cTitle> ] ;
[ FIELDNAMES <acFieldNames> ] ;
[ FIELDMESSAGES <acFieldMessages> ] ;
[ FIELDENABLED <alFieldView> ] ;
[ TABLEVIEW <alTableView> ] ;
[ OPTIONS <aOptions> ] ;
[ ON SAVE <bSave> ] ;
[ ON FIND <bFind> ] ;
[ ON PRINT <bPrint> ] ;
=> ;
ABM2( <(cWorkArea)>, ;
<cTitle>, ;
<acFieldNames>, ;
<acFieldMessages>, ;
<alFieldView>, ;
<alTableView>, ;
<aOptions>, ;
<bSave>, ;
<bFind>, ;
<bPrint> )
///////////////////////////////////////////////////////////////////////////////
// EDITBOX
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> EDITBOX <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ FIELD <field> ] ;
[ VALUE <value> ] ;
[ < readonly: READONLY > ] ;
[ FONT <f> ] ;
[ SIZE <s> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ MAXLENGTH <maxlenght> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <novscroll: NOVSCROLL> ] ;
[ <nohscroll: NOHSCROLL> ] ;
[ <rtl: RTL> ] ;
[ <noborder: NOBORDER> ] ;
[ FOCUSEDPOS <focusedpos> ] ;
=>;
[ <obj> := ] TEdit():Define( <(name)>, <(parent)>, <col>, <row>, <w>, <h>, <value>, <f>, ;
<s>, <tooltip>, <maxlenght>, <{gotfocus}>, <{change}>, <{lostfocus}>, <.readonly.>, ;
.f. , <helpid>, <.invisible.>, <.notabstop.>, <.bold.>, <.italic.>, <.underline.>, ;
<.strikeout.>, <(field)>, <backcolor>, <fontcolor>, <.novscroll.>, <.nohscroll.>, ;
<.rtl.>, <.noborder.>, <focusedpos> )
///////////////////////////////////////////////////////////////////////////////
// EDITBOX SPLITBOX VERSION
///////////////////////////////////////////////////////////////////////////////
#command EDITBOX <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ FIELD <field> ] ;
[ VALUE <value> ] ;
[ < readonly: READONLY > ] ;
[ FONT <f> ] ;
[ SIZE <s> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ MAXLENGTH <maxlenght> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ HELPID <helpid> ] ;
[ <break: BREAK> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <novscroll: NOVSCROLL> ] ;
[ <nohscroll: NOHSCROLL> ] ;
[ <rtl: RTL> ] ;
[ <noborder: NOBORDER> ] ;
[ FOCUSEDPOS <focusedpos> ] ;
=>;
[ <obj> := ] TEdit():Define( <(name)>, <(parent)>,,, <w>, <h>, <value>, <f>, <s>, <tooltip>, ;
<maxlenght>, <{gotfocus}>, <{change}>, <{lostfocus}>, <.readonly.>, <.break.>, ;
<helpid>, <.invisible.>, <.notabstop.>, <.bold.>, <.italic.>, <.underline.>, ;
<.strikeout.>, <(field)>, <backcolor>, <fontcolor>, <.novscroll.>, <.nohscroll.>, ;
<.rtl.>, <.noborder.>, <focusedpos> )
///////////////////////////////////////////////////////////////////////////////
// FRAME
///////////////////////////////////////////////////////////////////////////////
#xcommand @ <row> , <col> FRAME <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ CAPTION <caption> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ <opaque: OPAQUE> ] ;
[ <transparent: TRANSPARENT> ] ;
[ <rtl: RTL> ] ;
=>;
[ <obj> := ] TFrame():Define( <(name)>, <(parent)>, <row>, <col>, <w>, <h> , <caption> , <fontname> , <fontsize> , <.opaque.> ,<.bold.>, <.italic.>, <.underline.>, <.strikeout.> , <backcolor> , <fontcolor> , <.transparent.>, <.rtl.> )
///////////////////////////////////////////////////////////////////////////////
// DRAW IN WINDOW
///////////////////////////////////////////////////////////////////////////////
#xcommand DRAW TEXT IN WINDOW <windowname> ;
AT <nRow>,<nCol> ;
VALUE <cString> ;
[FONT <cFont>] ;
[SIZE <nSize>] ;
[BACKCOLOR <aBkRGB>] ;
[FONTCOLOR <aRGB>] ;
[<lBold : BOLD> ] ;
[<lItalic : ITALIC> ] ;
[<lUnderline : UNDERLINE> ] ;
[<lStrikeout : STRIKEOUT> ] ;
[ <transparent: TRANSPARENT> ] ;
=> ;
drawtextout(<(windowname)>,<nRow>,<nCol>,<cString>,<aRGB>,<aBkRGB>,<cFont>,<nSize>, ;
<.lBold.>,<.lItalic.>,<.lUnderline.>,<.lStrikeout.>,<.transparent.>)
#xcommand DRAW LINE IN WINDOW <windowname> AT <frow>,<fcol> ;
TO <trow>,<tcol> ;
[PENCOLOR <penrgb>] ;
[PENWIDTH <pnwidth>];
=>;
drawline(<(windowname)>,<frow>,<fcol>,<trow>,<tcol>,[<penrgb>],<pnwidth>)
#xcommand DRAW RECTANGLE IN WINDOW <windowname> AT <frow>,<fcol> ;
TO <trow>,<tcol> ;
[PENCOLOR <penrgb>] ;
[PENWIDTH <pnwidth>];
[FILLCOLOR <fillrgb>];
=>;
drawrect(<(windowname)>,<frow>,<fcol>,<trow>,<tcol>,[<penrgb>],<pnwidth>,[<fillrgb>])
#xcommand DRAW ROUNDRECTANGLE IN WINDOW <windowname> AT <frow>,<fcol> ;
TO <trow>,<tcol> ;
ROUNDWIDTH <width>;
ROUNDHEIGHT <height>;
[PENCOLOR <penrgb>] ;
[PENWIDTH <pnwidth>];
[FILLCOLOR <fillrgb>];
=>;
drawroundrect(<(windowname)>,<frow>,<fcol>,<trow>,<tcol>,<width>,<height>,[<penrgb>],<pnwidth>,[<fillrgb>])
#xcommand DRAW ELLIPSE IN WINDOW <windowname> AT <frow>,<fcol> ;
TO <trow>,<tcol> ;
[PENCOLOR <penrgb>] ;
[PENWIDTH <pnwidth>];
[FILLCOLOR <fillrgb>];
=>;
drawellipse(<(windowname)>,<frow>,<fcol>,<trow>,<tcol>,[<penrgb>],<pnwidth>,[<fillrgb>])
#xcommand DRAW ARC IN WINDOW <windowname> AT <frow>,<fcol> ;
TO <trow>,<tcol> ;
FROM RADIAL <rrow>, <rcol>;
TO RADIAL <rrow1>, <rcol1>;
[PENCOLOR <penrgb>] ;
[PENWIDTH <pnwidth>];
=>;
drawarc(<(windowname)>,<frow>,<fcol>,<trow>,<tcol>,<rrow>,<rcol>,<rrow1>,<rcol1>,[<penrgb>],<pnwidth>)
#xcommand DRAW PIE IN WINDOW <windowname> AT <frow>,<fcol> ;
TO <trow>,<tcol> ;
FROM RADIAL <rrow>, <rcol>;
TO RADIAL <rrow1>, <rcol1>;
[PENCOLOR <penrgb>] ;
[PENWIDTH <pnwidth>];
[FILLCOLOR <fillrgb>];
=>;
drawpie(<(windowname)>,<frow>,<fcol>,<trow>,<tcol>,<rrow>,<rcol>,<rrow1>,<rcol1>,[<penrgb>],<pnwidth>,[<fillrgb>])
// Points should be in the format {{row1,col1},{row2,col2},{row3,col3},{row4,col4}.....}
#xcommand DRAW POLYGON IN WINDOW <windowname> ;
POINTS <pointsarr> ;
[PENCOLOR <penrgb>] ;
[PENWIDTH <penwidth>] ;
[FILLCOLOR <fillrgb>] ;
=>;
drawpolygon(<(windowname)>,[<pointsarr>],[<penrgb>],<penwidth>,[<fillrgb>])
#xcommand DRAW POLYBEZIER IN WINDOW <windowname> ;
POINTS <pointsarr> ;
[PENCOLOR <penrgb>] ;
[PENWIDTH <penwidth>] ;
=>;
drawpolybezier(<(windowname)>,[<pointsarr>],[<penrgb>],<penwidth>)
#xcommand ERASE WINDOW <windowname> => erasewindow(<(windowname)>)
#xcommand DEFAULT <uVar1> := <uVal1> ;
[, <uVarN> := <uValN> ] => ;
<uVar1> := IIf( <uVar1> == nil, <uVal1>, <uVar1> ) ;;
[ <uVarN> := IIf( <uVarN> == nil, <uValN>, <uVarN> ); ]
#translate RGB( <nRed>, <nGreen>, <nBlue> ) => ;
( <nRed> + ( <nGreen> * 256 ) + ( <nBlue> * 65536 ) )
#xcommand DRAW GRAPH IN WINDOW <window> ;
AT <nT>,<nL> ;
TO <nB>,<nR> ;
TITLE <cTitle> ;
TYPE PIE ;
SERIES <aSer> ;
DEPTH <nD> ;
SERIENAMES <aName> ;
COLORS <aColor> ;
[ <l3D : 3DVIEW> ] ;
[ <lxVal : SHOWXVALUES> ] ;
[ <lSLeg : SHOWLEGENDS> ] ;
[ <lNoBorder : NOBORDER> ] ;
=> ;
DrawPieGraph(<(window)>,;
<nT>,;
<nL>,;
<nB>,;
<nR>,;
<aSer>,;
<aName>,;
<aColor>,;
<cTitle>,;
<nD>,;
<.l3D.>,;
<.lxVal.>,;
<.lSLeg.>,;
<.lNoBorder.>)
#define BARS 1
#define LINES 2
#define POINTS 3
#xcommand DRAW GRAPH ;
IN WINDOW <window> ;
AT <nT>,<nL> ;
[ TO <nB>,<nR> ] ;
[ TITLE <cTitle> ] ;
TYPE <nType> ;
SERIES <aSer> ;
YVALUES <aYVal> ;
DEPTH <nD> ;
[ BARWIDTH <nW> ] ;
HVALUES <nRange> ;
SERIENAMES <aName> ;
COLORS <aColor> ;
[ <l3D : 3DVIEW> ] ;
[ <lGrid : SHOWGRID> ] ;
[ <lxVal : SHOWXVALUES> ] ;
[ <lyVal : SHOWYVALUES> ] ;
[ <lSLeg : SHOWLEGENDS> ] ;
[ LEGENDSWIDTH <nLegendWindth> ] ;
[ <lNoborder : NOBORDER> ] ;
=> ;
GraphShow(<(window)>, ;
<nT>, ;
<nL>, ;
<nB>, ;
<nR>, ;
Nil, ;
Nil, ;
<aSer>, ;
<cTitle>, ;
<aYVal>, ;
<nD>, ;
<nW>,;
Nil, ;
<nRange>, ;
<.l3D.>, ;
<.lGrid.>, ;
.f., ;
.f., ;
<.lxVal.>, ;
<.lyVal.>, ;
<.lSLeg.>, ;
<aName>, ;
<aColor>, ;
<nType>, ;
.f., ;
Nil, ;
<nLegendWindth>, ;
<.lNoborder.> )
///////////////////////////////////////////////////////////////////////////////
// GRID
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> GRID <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ HEADERS <headers> ] ;
[ WIDTHS <widths> ] ;
[ INPUTMASK <Picture> ] ;
[ ITEMS <rows> ] ;
[ VALUE <value> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ DYNAMICBACKCOLOR <dynamicbackcolor> ] ;
[ DYNAMICFORECOLOR <dynamicforecolor> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON DBLCLICK <dblclick> ] ;
[ ON HEADCLICK <aHeadClick> ] ;
[ <edit : EDIT> ] ;
[ <ownerdata: VIRTUAL> ] ;
[ ITEMCOUNT <itemcount> ] ;
[ ON QUERYDATA <dispinfo> ] ;
[ <multiselect: MULTISELECT> ] ;
[ <style: NOLINES> ] ;
[ IMAGE <aImage> ] ;
[ JUSTIFY <aJust> ] ;
[ HELPID <helpid> ] ;
[ <break: BREAK> ] ;
[ <rtl: RTL> ] ;
[ <inplace: INPLACE> ] ;
[ COLUMNCONTROLS <editcontrols> ] ;
[ READONLY <aReadOnly> ] ;
[ VALID <aValidFields> ] ;
[ VALIDMESSAGES <aValidMessages> ] ;
[ ON EDITCELL <editcell> ] ;
[ <dummy2: WHEN, COLUMNWHEN> <aWhenFields> ] ;
[ SUBCLASS <subclass> ] ;
[ <disabled: DISABLED> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <invisible: INVISIBLE> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( iif( <.multiselect.>, TGridMulti(), TGrid() ), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <w>, <h>, <headers>, ;
<widths>, <rows>, <value>, <fontname>, <fontsize>, <tooltip>, ;
<{change}>, <{dblclick}>, <aHeadClick>, <{gotfocus}>, <{lostfocus}>, ;
<.style.>, <aImage>, <aJust>, <.break.>, <helpid>, <.bold.>, ;
<.italic.>, <.underline.>, <.strikeout.>, <.ownerdata.>, <{dispinfo}>, ;
<itemcount>, <.edit.>, <backcolor>, <fontcolor>, <dynamicbackcolor>, ;
<dynamicforecolor>, <Picture>, <.rtl.>, <.inplace.>, <editcontrols>, ;
<aReadOnly>, <aValidFields>, <aValidMessages>, <{editcell}>, ;
<aWhenFields>, <.disabled.>, <.notabstop.>, <.invisible.> )
///////////////////////////////////////////////////////////////////////////////
// GRID (SPLITBOX VERSION)
///////////////////////////////////////////////////////////////////////////////
#command GRID <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ HEADERS <headers> ] ;
[ WIDTHS <widths> ] ;
[ INPUTMASK <Picture> ] ;
[ ITEMS <rows> ] ;
[ VALUE <value> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ DYNAMICBACKCOLOR <dynamicbackcolor> ] ;
[ DYNAMICFORECOLOR <dynamicforecolor> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON DBLCLICK <dblclick> ] ;
[ ON HEADCLICK <aHeadClick> ] ;
[ <edit : EDIT> ] ;
[ <ownerdata: VIRTUAL> ] ;
[ ITEMCOUNT <itemcount> ] ;
[ ON QUERYDATA <dispinfo> ] ;
[ <multiselect: MULTISELECT> ] ;
[ <style: NOLINES> ] ;
[ IMAGE <aImage> ] ;
[ JUSTIFY <aJust> ] ;
[ HELPID <helpid> ] ;
[ <break: BREAK> ] ;
[ <rtl: RTL> ] ;
[ <inplace: INPLACE> ] ;
[ COLUMNCONTROLS <editcontrols> ] ;
[ READONLY <aReadOnly> ] ;
[ VALID <aValidFields> ] ;
[ VALIDMESSAGES <aValidMessages> ] ;
[ ON EDITCELL <editcell> ] ;
[ <dummy2: WHEN, COLUMNWHEN> <aWhenFields> ] ;
[ SUBCLASS <subclass> ] ;
[ <disabled: DISABLED> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <invisible: INVISIBLE> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( iif( <.multiselect.>, TGridMulti(), TGrid() ), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, , , <w>, <h>, <headers>, ;
<widths>, <rows>, <value>, <fontname>, <fontsize>, <tooltip>, ;
<{change}>, <{dblclick}>, <aHeadClick>, <{gotfocus}>, <{lostfocus}>, ;
<.style.>, <aImage>, <aJust>, <.break.>, <helpid>, <.bold.>, ;
<.italic.>, <.underline.>, <.strikeout.>, <.ownerdata.>, <{dispinfo}>, ;
<itemcount>, <.edit.>, <backcolor>, <fontcolor>, <dynamicbackcolor>, ;
<dynamicforecolor>, <Picture>, <.rtl.>, <.inplace.>, <editcontrols>, ;
<aReadOnly>, <aValidFields>, <aValidMessages>, <{editcell}>, ;
<aWhenFields>, <.disabled.>, <.notabstop.>, <.invisible.> )
///////////////////////////////////////////////////////////////////////////////
// HOTKEYBOX
///////////////////////////////////////////////////////////////////////////////
#command @ <row>, <col> HOTKEYBOX <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ HEIGHT <height> ] ;
[ WIDTH <width> ] ;
[ VALUE <value> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ ON CHANGE <change> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON ENTER <enter> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <rtl: RTL> ] ;
[ HELPID <helpid> ] ;
[ SUBCLASS <subclass> ] ;
[ <disabled: DISABLED> ] ;
[ <noalt: NOALT> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( THotKeyBox(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <width>, <height>, ;
<value>, <fontname>, <fontsize>, <tooltip>, <{lostfocus}>, <{gotfocus}>, ;
<{change}>, <{enter}>, <helpid>, <.bold.>, <.italic.>, <.underline.>, ;
<.strikeout.>, <backcolor>, <fontcolor>, <.invisible.>, <.notabstop.>, ;
<.rtl.>, <.disabled.>, <.noalt.> )
///////////////////////////////////////////////////////////////////////////////
// HYPERLINK
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> HYPERLINK <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ VALUE <value> ] ;
[ ADDRESS <address>];
[ WIDTH <width> ] ;
[ HEIGHT <height> ] ;
[ <autosize : AUTOSIZE> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ <border: BORDER> ] ;
[ <clientedge: CLIENTEDGE> ] ;
[ <hscroll: HSCROLL> ] ;
[ <vscroll: VSCROLL> ] ;
[ <transparent: TRANSPARENT> ] ;
[ <handcursor: HANDCURSOR> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <rtl: RTL> ] ;
=>;
[ <obj> := ] THyperLink():Define( ;
<(name)>, ;
<(parent)>, ;
<col>, ;
<row>, ;
<value>, ;
<address>, ;
<width>, ;
<height>, ;
<fontname>, ;
<fontsize>, ;
<.bold.>, ;
<.border.> , ;
<.clientedge.> , ;
<.hscroll.> , ;
<.vscroll.> , ;
<.transparent.> , ;
[ <backcolor> ], ;
[ <fontcolor> ], ;
<tooltip>, ;
<helpid>, ;
<.invisible.>, ;
<.italic.>, ;
<.autosize.> , ;
<.handcursor.>, ;
<.rtl.> )
///////////////////////////////////////////////////////////////////////////////
// IMAGE
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> IMAGE <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ <dummy2: ACTION,ON CLICK,ONCLICK> <action> ];
[ WIDTH <w> ] ;
[ HEIGHT <h> ] ;
[ <stretch: STRETCH> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <rtl: RTL> ] ;
[ SUBCLASS <subclass> ] ;
[ <whitebackground: WHITEBACKGROUND> ] ;
[ BACKCOLOR <backcolor> ] ;
[ PICTURE <filename> ] ;
[ BUFFER <buffer> ] ;
[ HBITMAP <hbitmap> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( TImage(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <filename>, <w>, <h>, ;
<{action}>, <helpid>, <.invisible.>, <.stretch.>, ;
<.whitebackground.>, <.rtl.>, <backcolor>, <buffer>, <hbitmap>, ;
<filename> )
///////////////////////////////////////////////////////////////////////////////
// DEFINE INTERNAL
///////////////////////////////////////////////////////////////////////////////
#command DEFINE INTERNAL <name> ;
[ AT <row>,<col> ] ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ ON CLICK <action> ] ;
[ WIDTH <width> ] ;
[ HEIGHT <height> ] ;
[ BACKCOLOR <backcolor> ] ;
[ TOOLTIP <tooltip> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ <border: BORDER> ] ;
[ <clientedge: CLIENTEDGE> ] ;
[ CURSOR <cursor> ] ;
[ VIRTUAL WIDTH <vWidth> ] ;
[ VIRTUAL HEIGHT <vHeight> ] ;
[ ON MOUSEDRAG <MouseDragProcedure> ] ;
[ ON MOUSEMOVE <MouseMoveProcedure> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <rtl: RTL> ] ;
[ SUBCLASS <subclass> ] ;
[ <transparent: TRANSPARENT> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( TInternal(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <col>, <row>, <{action}>, ;
<width>, <height>, <backcolor>, <tooltip>, ;
<gotfocus>, <lostfocus>, <.transparent.>, <.border.>, ;
<.clientedge.>, <cursor>, <vWidth>, <vHeight>, ;
<MouseDragProcedure>, <MouseMoveProcedure>, <notabstop>, ;
<helpid>, <.invisible.>, <.rtl.> )
#command END INTERNAL ;
=>;
_EndInternal()
///////////////////////////////////////////////////////////////////////////////
// IPADDRESS
///////////////////////////////////////////////////////////////////////////////
#command @ <row>, <col> IPADDRESS <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ HEIGHT <height> ] ;
[ WIDTH <width> ] ;
[ VALUE <value> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ ON CHANGE <change> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ HELPID <helpid> ] ;
[ <invisible : INVISIBLE> ] ;
[ <notabstop : NOTABSTOP> ] ;
[ <rtl: RTL> ] ;
=>;
[ <obj> := ] TIPAddress():Define( ;
<(name)> , ;
<(parent)> , ;
<col> , ;
<row> , ;
<width> , ;
<height> , ;
[ <value> ] , ;
<fontname> , ;
<fontsize> , ;
<tooltip>, ;
<{lostfocus}> , ;
<{gotfocus}> , ;
<{change}> , ;
<helpid>, ;
<.invisible.>, ;
<.notabstop.> ,;
<.bold.>, ;
<.italic.>, ;
<.underline.>, ;
<.strikeout.>, ;
<.rtl.> )
///////////////////////////////////////////////////////////////////////////////
// HOTKEY
///////////////////////////////////////////////////////////////////////////////
#command DEFINE HOTKEY <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ KEY <key> ] ;
[ MODIFIERS <mod> ] ;
[ ACTION <action> ] ;
[ SUBCLASS <subclass> ] ;
[ <disabled: DISABLED> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( THotKey(), [ <subclass>() ] ): ;
Define( <(name)>, <(parent)>, <mod>, <key>, <{action}>, <disabled> )
///////////////////////////////////////////////////////////////////////////////
// LABEL
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> LABEL <name> ;
[ OBJ <obj> ] ;
[ <dummy1: OF, PARENT> <parent> ] ;
[ VALUE <value> ] ;
[ ACTION <action> ] ;
[ WIDTH <width> ] ;
[ HEIGHT <height> ] ;
[ <autosize : AUTOSIZE> ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ <border: BORDER> ] ;
[ <clientedge: CLIENTEDGE> ] ;
[ <hscroll: HSCROLL> ] ;
[ <vscroll: VSCROLL> ] ;
[ <transparent: TRANSPARENT> ] ;
[ <rightalign: RIGHTALIGN> ] ;
[ <centeralign: CENTERALIGN> ] ;
[ HELPID <helpid> ] ;
[ <invisible: INVISIBLE> ] ;
[ <rtl: RTL> ] ;
[ <nowordwrap: NOWORDWRAP> ] ;
[ <noprefix: NOPREFIX> ] ;
[ INPUTMASK <picture> ] ;
[ SUBCLASS <subclass> ] ;
=>;
[ <obj> := ] _OOHG_SelectSubClass( TLabel(), [ <subclass>() ] ):Define( ;
<(name)>, ;
<(parent)>, ;
<col>, ;
<row>, ;
<value>, ;
<width>, ;
<height>, ;
<fontname>, ;
<fontsize>, ;
<.bold.>, ;
<.border.> , ;
<.clientedge.> , ;
<.hscroll.> , ;
<.vscroll.> , ;
<.transparent.> , ;
[ <backcolor> ], ;
[ <fontcolor> ], ;
<{action}>, ;
<tooltip>, ;
<helpid>, ;
<.invisible.>, ;
<.italic.>, ;
<.underline.>, ;
<.strikeout.> , ;
<.autosize.> , ;
<.rightalign.> , ;
<.centeralign.> , ;
<.rtl.> , ;
<.nowordwrap.> , ;
<.noprefix.> , ;
<picture> )
///////////////////////////////////////////////////////////////////////////////
// LISTBOX
///////////////////////////////////////////////////////////////////////////////
#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> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON DBLCLICK <dblclick> ] ;
[ <multiselect : MULTISELECT> ] ;
[ HELPID <helpid> ] ;
[ <invisible : INVISIBLE> ] ;
[ <notabstop : NOTABSTOP> ] ;
[ <sort : SORT> ] ;
[ <rtl: RTL> ] ;
=>;
[ <obj> := ] iif( <.multiselect.>, TListMulti(), TList() ):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.> )
///////////////////////////////////////////////////////////////////////////////
// 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> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON CHANGE <change> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON DBLCLICK <dblclick> ] ;
[ <multiselect : MULTISELECT> ] ;
[ HELPID <helpid> ] ;
[ <break: BREAK> ] ;
[ <invisible : INVISIBLE> ] ;
[ <notabstop : NOTABSTOP> ] ;
[ <sort : SORT> ] ;
[ <rtl: RTL> ] ;
=>;
[ <obj> := ] iif( <.multiselect.>, TListMulti(), TList() ):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.> )
///////////////////////////////////////////////////////////////////////////////
// ANIMATEBOX COMMANDS
///////////////////////////////////////////////////////////////////////////////
#command @ <row>,<col> ANIMATEBOX <name> ;
[ OBJ <obj> ] &#