/*
 * $Id: classes.txt,v 1.110 2017/09/13 22:21:07 fyurisich Exp $
 */

*------------------------------------------------------------------------------*
CLASS HBPRINTER
   DATA AFTERPRINT                INIT {|| NIL}
   DATA AHS                       INIT {}
   DATA AOPISY                    INIT {}
   DATA ATH                       INIT {}
   DATA AZOOM                     INIT {0,0,0,0}
   DATA BASEDOC                   INIT ""
   DATA BEFOREPRINT               INIT {|| .T.}
   DATA BEFOREPRINTCOPY           INIT {|| .T.}
   DATA BINNAMES                  INIT {}
   DATA BKCOLOR                   INIT 0XFFFFFF
   DATA BKMODE                    INIT 1       // TRANSPARENT
   DATA BRUSHES                   INIT {{},{}}
   DATA CARGO                     INIT {0,0,0,0,0,0,0,0,0,0}
   DATA CURPAGE                   INIT 1
   DATA DEVCAPS                   INIT {0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0}
   DATA DOCNAME                   INIT "HBPRINTER"
   DATA DX                        INIT 0
   DATA DY                        INIT 0
   DATA ERROR                     INIT 0
   DATA FONTS                     INIT {{},{},0,{}}
   DATA HDC                       INIT 0
   DATA HDCREF                    INIT 0
   DATA ILOSCSTRON                INIT 0
   DATA IMAGELISTS                INIT {{},{}}
   DATA INMEMORY                  INIT .F.
   DATA LABSOLUTECOORDS           INIT .F.
   DATA LGLOBALCHANGES            INIT .T.
   DATA MAXCOL                    INIT 0
   DATA MAXROW                    INIT 0
   DATA METAFILES                 INIT {}
   DATA NCOPIES                   INIT 1
   DATA NFROMPAGE                 INIT 1
   DATA NGROUP                    INIT -1
   DATA NOBUTTONOPTIONS           INIT .F.
   DATA NOBUTTONSAVE              INIT .F.
   DATA NPAGES                    INIT {}
   DATA NTOPAGE                   INIT 0
   DATA NWHATTOPRINT              INIT 0
   DATA OHBPREVIEW1               INIT NIL
   DATA PAGE                      INIT 1
   DATA PAPERNAMES                INIT {}
   DATA PENS                      INIT {{},{}}
   DATA POLYFILLMODE              INIT 1
   DATA PORTS                     INIT {}
   DATA PREVIEWMODE               INIT .F.
   DATA PREVIEWRECT               INIT {0,0,0,0}
   DATA PREVIEWSCALE              INIT 1
   DATA PRINTERDEFAULT            INIT ""
   DATA PRINTERNAME               INIT ""
   DATA PRINTERS                  INIT {}
   DATA PRINTING                  INIT .F.
   DATA PRINTINGEMF               INIT .F.
   DATA PRINTOPT                  INIT 1
   DATA REGIONS                   INIT {{},{}}
   DATA SCALE                     INIT 1
   DATA TEXTCOLOR                 INIT 0
   DATA THUMBNAILS                INIT .F.
   DATA TIMESTAMP                 INIT ''
   DATA UNITS                     INIT 0
   DATA VIEWPORTORG               INIT {0,0}

   METHOD ARC
   METHOD ARCTO
   METHOD CHORD
   METHOD COMBINERGN
   METHOD CONVERT
   METHOD DEFINEBRUSH
   METHOD DEFINEELLIPTICRGN
   METHOD DEFINEFONT
   METHOD DEFINEIMAGELIST
   METHOD DEFINEPEN
   METHOD DEFINEPOLYGONRGN
   METHOD DEFINERECTRGN
   METHOD DEFINEROUNDRECTRGN
   METHOD DELETECLIPRGN
   METHOD DRAWIMAGELIST
   METHOD DRAWTEXT
   METHOD DXCOLORS
   METHOD ELLIPSE
   METHOD END
   METHOD ENDDOC
   METHOD ENDPAGE
   METHOD FILLRECT
   METHOD FRAMERECT
   METHOD GETBKCOLOR
   METHOD GETBKMODE
   METHOD GETOBJBYNAME
   METHOD GETPOLYFILLMODE
   METHOD GETTEXTALIGN
   METHOD GETTEXTCHAREXTRA
   METHOD GETTEXTCOLOR
   METHOD GETTEXTEXTENT
   METHOD GETTEXTJUSTIFICATION
   METHOD GETVIEWPORTORG
   METHOD INVERTRECT
   METHOD LINE
   METHOD LINETO
   METHOD MODIFYBRUSH
   METHOD MODIFYFONT
   METHOD MODIFYPEN
   METHOD NEW
   METHOD PICTURE
   METHOD PIE
   METHOD POLYBEZIER
   METHOD POLYBEZIERTO
   METHOD POLYGON
   METHOD PREVIEW
   METHOD PREVPRINT
   METHOD PREVSHOW
   METHOD PREVTHUMB
   METHOD PRINTOPTION
   METHOD RECTANGLE
   METHOD REPORTDATA
   METHOD ROUNDRECT
   METHOD SAVEMETAFILES
   METHOD SAY
   METHOD SELECTBRUSH
   METHOD SELECTCLIPRGN
   METHOD SELECTFONT
   METHOD SELECTPEN
   METHOD SELECTPRINTER
   METHOD SETBKCOLOR
   METHOD SETBKMODE
   METHOD SETCHARSET
   METHOD SETDEVMODE
   METHOD SETPAGE
   METHOD SETPOLYFILLMODE
   METHOD SETRGB
   METHOD SETTEXTALIGN
   METHOD SETTEXTCHAREXTRA
   METHOD SETTEXTCOLOR
   METHOD SETTEXTJUSTIFICATION
   METHOD SETUNITS
   METHOD SETVIEWPORTORG
   METHOD STARTDOC
   METHOD STARTPAGE
   METHOD TEXTOUT
ENDCLASS

*------------------------------------------------------------------------------*
CLASS OOHGRECORD
   DATA CALIAS__

   ERROR HANDLER FIELDASSIGN
   
   METHOD APPEND
   METHOD BOF
   METHOD CLOSE
   METHOD COMMIT
   METHOD DBSTRUCT
   METHOD DELETE
   METHOD EOF
   METHOD FIELD
   METHOD FIELDBLOCK
   METHOD FIELDGET
   METHOD FIELDNAME
   METHOD FIELDPOS
   METHOD FIELDPUT
   METHOD FILTER
   METHOD FOUND
   METHOD GOBOTTOM
   METHOD GOTO
   METHOD GOTOP
   METHOD ISTABLEEMPTY
   METHOD LOCATE
   METHOD LOCK
   METHOD NEW
   METHOD ORDKEYCOUNT
   METHOD ORDKEYGOTO             
   METHOD ORDKEYNO
   METHOD ORDSCOPE
   METHOD RECCOUNT
   METHOD RECNO
   METHOD SEEK
   METHOD SETINDEX
   METHOD SETORDER
   METHOD SKIP
   METHOD SKIPPER
   METHOD UNLOCK
   METHOD USE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS OOHG_TERRORHTML
   DATA AMESSAGES                 INIT NIL
   DATA CBUFFERFILE               INIT ""
   DATA CBUFFERSCREEN             INIT ""
   DATA CLANG                     INIT ""
   DATA FILENAME                  INIT "ERRORLOG.HTM"
   DATA PATH                      INIT ""
   DATA POSTHEADER                INIT '</P>'
   DATA PREHEADER                 INIT '<HR>' + CHR( 13 ) + CHR( 10 ) + '<P CLASS="UPDATED">'

   METHOD COPYLOG
   METHOD CREATELOG
   METHOD DELETELOG
   METHOD ERRORHEADER
   METHOD ERRORMESSAGE
   METHOD FILEHEADER
   METHOD NEW
   METHOD PUTMSG
   METHOD WRITE
   METHOD WRITE2
ENDCLASS

*------------------------------------------------------------------------------*
CLASS OOHG_TERRORTXT FROM OOHG_TERRORHTML
   DATA FILEHEADER                INIT ""
   DATA FILENAME                  INIT "ERRORLOG.TXT"
   DATA POSTHEADER                INIT CHR( 13 ) + CHR( 10 ) + CHR( 13 ) + CHR( 10 )
   DATA PREHEADER                 INIT " " + CHR( 13 ) + CHR( 10 ) + REPLICATE( "-", 80 ) + CHR( 13 ) + CHR( 10 ) + " " + CHR( 13 ) + CHR( 10 )

   METHOD WRITE2
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TACTIVEX FROM TCONTROL
   DATA AAXEV                     INIT {}
   DATA AAXEXEC                   INIT {}
   DATA CPROGID                   INIT ""
   DATA HATL                      INIT NIL
   DATA HSINK                     INIT NIL
   DATA NHEIGHT                   INIT NIL
   DATA NWIDTH                    INIT NIL
   DATA OOLE                      INIT NIL
   DATA TYPE                      INIT "ACTIVEX"             READONLY

   DELEGATE GET TO OOLE
   DELEGATE SET TO OOLE
   
   ERROR HANDLER __ERROR
   
   METHOD DEFINE
   METHOD EVENTMAP
   METHOD RELEASE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TANIGIF FROM TCONTROL
   DATA ADELAYS                   INIT {}
   DATA AINFO                     INIT { "", 0, 0 }
   DATA APICTURES                 INIT {}
   DATA CURRENTFRAME              INIT 0
   DATA FILENAME                  INIT ""
   DATA NHEIGHT                   INIT 100
   DATA NWIDTH                    INIT 100
   DATA OIMAGE                    INIT NIL
   DATA OTIMER                    INIT NIL
   DATA TYPE                      INIT "ANIGIF" READONLY

   METHOD DEFINE
   METHOD FRAMECOUNT              BLOCK { |SELF| LEN( ::APICTURES ) }
   METHOD FRAMEDELAY
   METHOD FRAMEHEIGHT             BLOCK { |SELF| ::AINFO[ 3 ] }
   METHOD FRAMEWIDTH              BLOCK { |SELF| ::AINFO[ 2 ] }
   METHOD ISPLAYING               BLOCK { |SELF| ::OTIMER:ENABLED }
   METHOD LOAD
   METHOD ONCLICK                 SETGET
   METHOD PLAY                    BLOCK { |SELF| ::OTIMER:ENABLED := ( ::FRAMECOUNT > 1 ) }
   METHOD RELEASE
   METHOD SHOWNEXTFRAME
   METHOD STOP                    BLOCK { |SELF| ::OTIMER:ENABLED := .F. }
   METHOD VERSION                 BLOCK { |SELF| ::AINFO[ 1 ] }
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TANIMATEBOX FROM TCONTROL
   DATA TYPE                      INIT "ANIMATEBOX"          READONLY

   METHOD CLOSE
   METHOD DEFINE
   METHOD OPEN
   METHOD PLAY
   METHOD RELEASE
   METHOD SEEK
   METHOD STOP
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TAPPLICATION
   DATA ARGC                      INIT HB_ARGC()
   DATA ARGS                      INIT GETCOMMANDLINEARGS()
   DATA EXENAME                   INIT GETPROGRAMFILENAME()

   METHOD BACKCOLOR               SETGET
   METHOD COL                     SETGET
   METHOD CURSOR                  SETGET
   METHOD DRIVE
   METHOD FORMOBJECT
   METHOD HANDLE
   METHOD HEIGHT                  SETGET
   METHOD HELPBUTTON              SETGET
   METHOD ICON
   METHOD MAINNAME
   METHOD NAME
   METHOD PATH
   METHOD ROW                     SETGET
   METHOD TITLE                   SETGET
   METHOD TOPMOST                 SETGET
   METHOD WIDTH                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TBUTTON FROM TCONTROL
   DATA AIMAGEMARGIN              INIT {10, 10, 10, 10}
   DATA AUTOFIT                   INIT .F.
   DATA CPICTURE                  INIT ""
   DATA HIMAGE                    INIT NIL
   DATA IMAGESIZE                 INIT .F.
   DATA LNO3DCOLORS               INIT .F.
   DATA LNODIBSECTION             INIT .T.
   DATA LNOTRANSPARENT            INIT .F.
   DATA LLIBDRAW                  INIT .F.
   DATA NALIGN                    INIT 2
   DATA NHEIGHT                   INIT 28
   DATA NWIDTH                    INIT 100
   DATA STRETCH                   INIT .F.
   DATA TYPE                      INIT "BUTTON"              READONLY

   METHOD BUFFER                  SETGET
   METHOD DEFINE
   METHOD DEFINEIMAGE
   METHOD EVENTS_NOTIFY
   METHOD HBITMAP                 SETGET
   METHOD IMAGEMARGIN             SETGET
   METHOD PICTURE                 SETGET
   METHOD RELEASE
   METHOD REPAINT
   METHOD SETFOCUS
   METHOD SIZEPOS
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TBUTTONCHECK FROM TBUTTON
   DATA NHEIGHT                   INIT 28
   DATA NWIDTH                    INIT 100
   DATA TYPE                      INIT "CHECKBUTTON"         READONLY

   METHOD DEFINE
   METHOD DEFINEIMAGE
   METHOD EVENTS_COMMAND
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TCALCPRINT FROM TPRINTBASE
   DATA OCELL                     INIT NIL                   READONLY
   DATA ODESKTOP                  INIT NIL                   READONLY
   DATA ODOCUMENT                 INIT NIL                   READONLY
   DATA OSCHEDULE                 INIT NIL                   READONLY
   DATA OSERVICEMANAGER           INIT NIL                   READONLY
   DATA OSHEET                    INIT NIL                   READONLY
   DATA NHORZRESOL                INIT PIXELSPERINCHX()      READONLY
   DATA NVERTRESOL                INIT PIXELSPERINCHY()      READONLY

   METHOD BEGINDOCX
   METHOD BEGINPAGEX
   METHOD ENDDOCX
   METHOD ENDPAGEX
   METHOD INITX
   METHOD MAXCOL
   METHOD MAXROW
   METHOD PRINTDATAX
   METHOD PRINTIMAGEX
   METHOD RELEASEX
   METHOD SELPRINTERX             BLOCK { |SELF| SELF:CPRINTER := "CALC" }
   METHOD SETPREVIEWSIZE          BLOCK { || NIL }
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TCHECKBOX FROM TLABEL
   DATA CPICTURE                  INIT ""
   DATA ICONWIDTH                 INIT 19
   DATA LEFTALIGN                 INIT .F.
   DATA LLIBDRAW                  INIT .F.
   DATA NHEIGHT                   INIT 28
   DATA NWIDTH                    INIT 100
   DATA TABHANDLE                 INIT 0
   DATA THREESTATE                INIT .F.
   DATA TYPE                      INIT "CHECKBOX"            READONLY

   METHOD DEFINE
   METHOD EVENTS_COLOR
   METHOD EVENTS_COMMAND
   METHOD EVENTS_NOTIFY
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TCHECKLIST FROM TGRID
   DATA ALLOWEDIT                 INIT .F.                   READONLY
   DATA FULLMOVE                  INIT .F.                   READONLY
   DATA INPLACE                   INIT .F.                   READONLY
   DATA LASTCHANGEDITEM           INIT 0
   DATA LCHECKBOXES               INIT .T.                   READONLY
   DATA TYPE                      INIT "CHECKLIST"           READONLY

   METHOD ADDCOLUMN               BLOCK { || NIL }
   METHOD ADDITEM
   METHOD APPENDITEM              BLOCK { || NIL }
   METHOD CELL                    BLOCK { || NIL }
   METHOD CHECKITEM               SETGET
   METHOD COLUMNAUTOFIT           BLOCK { || NIL }
   METHOD COLUMNAUTOFITH          BLOCK { || NIL }
   METHOD COLUMNBETTERAUTOFIT     BLOCK { || NIL }
   METHOD COLUMNCOUNT             BLOCK { || NIL }
   METHOD COLUMNHIDE              BLOCK { || NIL }
   METHOD COLUMNSAUTOFIT          BLOCK { || NIL }
   METHOD COLUMNSAUTOFITH         BLOCK { || NIL }
   METHOD COLUMNSBETTERAUTOFIT    BLOCK { || NIL }
   METHOD COLUMNSHOW              BLOCK { || NIL }
   METHOD COLUMNWIDTH             BLOCK { || NIL }
   METHOD DEFINE
   METHOD DELETEALLITEMS
   METHOD DELETECOLUMN            BLOCK { || NIL }
   METHOD DELETEITEM
   METHOD DOCHANGE
   METHOD DOWN                    BLOCK { || NIL }
   METHOD EDITALLCELLS            BLOCK { || NIL }
   METHOD EDITCELL                BLOCK { || NIL }
   METHOD EDITCELL2               BLOCK { || NIL }
   METHOD EDITGRID                BLOCK { || NIL }
   METHOD EDITITEM                BLOCK { || NIL }
   METHOD EDITITEM2               BLOCK { || NIL }
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD GOBOTTOM                BLOCK { || NIL }
   METHOD GOTOP                   BLOCK { || NIL }
   METHOD HEADER                  BLOCK { || NIL }
   METHOD HEADERIMAGE             BLOCK { || NIL }
   METHOD HEADERIMAGEALIGN        BLOCK { || NIL }
   METHOD INSERTITEM
   METHOD ISCOLUMNREADONLY        BLOCK { || NIL }
   METHOD ISCOLUMNWHEN            BLOCK { || NIL }
   METHOD ITEM
   METHOD ITEMCAPTION             SETGET
   METHOD ITEMIMAGE               SETGET
   METHOD ITEMVISIBLE
   METHOD LEFT                    BLOCK { || NIL }
   METHOD LOADHEADERIMAGES        BLOCK { || NIL }
   METHOD PAGEDOWN                BLOCK { || NIL }
   METHOD PAGEUP                  BLOCK { || NIL }
   METHOD RIGHT                   BLOCK { || NIL }
   METHOD SETRANGECOLOR
   METHOD SORT
   METHOD SORTCOLUMN              BLOCK { || NIL }
   METHOD TOEXCEL                 BLOCK { || NIL }
   METHOD TOOPENOFFICE            BLOCK { || NIL }
   METHOD UP                      BLOCK { || NIL }
   METHOD VALUE                   SETGET
   METHOD WIDTH                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TCOMBO FROM TLABEL
   DATA AVALUES                   INIT {}
   DATA CTEXT                     INIT ""
   DATA IMAGELISTCOLOR            INIT CLR_DEFAULT
   DATA IMAGELISTFLAGS            INIT LR_LOADTRANSPARENT + LR_DEFAULTCOLOR + LR_LOADMAP3DCOLORS
   DATA IMAGESOURCE               INIT NIL
   DATA ITEMNUMBER                INIT NIL
   DATA LADJUSTIMAGES             INIT .F.
   DATA LDELAYLOAD                INIT .F.
   DATA LFOCUSED                  INIT .F.
   DATA LINCREMENTAL              INIT .F.
   DATA LREFRESH                  INIT NIL
   DATA NHEIGHT2                  INIT 150
   DATA NLASTFOUND                INIT 0
   DATA NLASTITEM                 INIT 0
   DATA NTEXTHEIGHT               INIT 0
   DATA NWIDTH                    INIT 120
   DATA OEDITBOX                  INIT NIL
   DATA OLISTBOX                  INIT NIL
   DATA ONLISTCLOSE               INIT NIL
   DATA ONLISTDISPLAY             INIT NIL
   DATA ONREFRESH                 INIT NIL
   DATA SEARCHLAPSE               INIT 1000
   DATA SOURCEORDER               INIT NIL
   DATA TYPE                      INIT "COMBO"               READONLY
   DATA UFIELD                    INIT NIL
   DATA UINITIME                  INIT 0
   DATA UVALUESOURCE              INIT NIL
   DATA WORKAREA                  INIT ""

   METHOD ADDITEM
   METHOD AUTOSIZE                SETGET
   METHOD AUTOSIZEDROPDOWN
   METHOD CARETPOS                SETGET
   METHOD DEFINE
   METHOD DELETEALLITEMS
   METHOD DELETEITEM
   METHOD DISPLAYVALUE            SETGET
   METHOD EVENTS
   METHOD EVENTS_COMMAND
   METHOD EVENTS_DRAWITEM
   METHOD EVENTS_MEASUREITEM
   METHOD FIELD                   SETGET
   METHOD FORCEHIDE
   METHOD GETDROPDOWNWIDTH
   METHOD GETEDITSEL
   METHOD INSERTITEM
   METHOD ITEM
   METHOD ITEMBYSOURCE
   METHOD ITEMCOUNT
   METHOD ITEMHEIGHT
   METHOD NHEIGHT                 SETGET
   METHOD PRERELEASE
   METHOD REFRESH
   METHOD REFRESHDATA
   METHOD SELECTFIRSTITEM
   METHOD SETDROPDOWNWIDTH
   METHOD SETEDITSEL
   METHOD SHOWDROPDOWN
   METHOD VALUE                   SETGET
   METHOD VALUESOURCE             SETGET
   METHOD VISIBLE                 SETGET
   METHOD VISIBLEITEMS
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TCONTROL FROM TWINDOW
   DATA AUXHANDLE                 INIT 0
   DATA CTOOLTIP                  INIT ""
   DATA HCURSOR                   INIT 0
   DATA HELPID                    INIT 0
   DATA ID                        INIT 0
   DATA IMAGELISTCOLOR            INIT CLR_NONE
   DATA IMAGELISTFLAGS            INIT LR_LOADTRANSPARENT
   DATA LCANCEL                   INIT .F.
   DATA OLDBACKCOLOR
   DATA OLDCOLOR
   DATA ONCHANGE                  INIT NIL
   DATA ONENTER                   INIT NIL
   DATA OTOOLTIPCTRL              INIT NIL
   DATA POSTBLOCK                 INIT NIL
   DATA SETIMAGELISTCOMMAND       INIT 0
   DATA SETIMAGELISTWPARAM        INIT TVSIL_NORMAL
   DATA TRANSPARENT               INIT .F.
   DATA XOLDVALUE                 INIT NIL

   METHOD ADDBITMAP
   METHOD CLEARBITMAPS
   METHOD COL                     SETGET
   METHOD CONTAINERCOL        
   METHOD CONTAINERHWND       
   METHOD CONTAINERROW        
   METHOD CURSOR                  SETGET
   METHOD DOCHANGE
   METHOD DOEVENT
   METHOD DOEVENTMOUSECOORDS
   METHOD DOLOSTFOCUS
   METHOD EVENTS
   METHOD EVENTS_COLOR
   METHOD EVENTS_COMMAND
   METHOD EVENTS_DRAWITEM         BLOCK { || NIL }
   METHOD EVENTS_ENTER
   METHOD EVENTS_MEASUREITEM      BLOCK { || NIL }
   METHOD EVENTS_NOTIFY
   METHOD FOCUSEFFECT
   METHOD FONTANGLE               SETGET
   METHOD FONTBOLD                SETGET
   METHOD FONTITALIC              SETGET
   METHOD FONTNAME                SETGET
   METHOD FONTSIZE                SETGET
   METHOD FONTSTRIKEOUT           SETGET
   METHOD FONTUNDERLINE           SETGET
   METHOD FONTWIDTH               SETGET
   METHOD FORCEHIDE
   METHOD HEIGHT                  SETGET
   METHOD INITSTYLE
   METHOD MOVE
   METHOD OTOOLTIP                SETGET
   METHOD REFRESH
   METHOD REGISTER
   METHOD RELEASE
   METHOD ROW                     SETGET
   METHOD SETFOCUS            
   METHOD SETFONT
   METHOD SETFORM
   METHOD SETVARBLOCK
   METHOD SIZEPOS
   METHOD TABINDEX                SETGET
   METHOD TOOLTIP                 SETGET
   METHOD WIDTH                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TCONTROLGROUP FROM TCONTROL
   DATA TYPE                      INIT "CONTROLGROUP"        READONLY

   METHOD ADDCONTROL
   METHOD DEFINE
   METHOD ENABLED                 SETGET
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TCSVPRINT FROM TPRINTBASE
   DATA APRINTCSV                 INIT {}                    READONLY

   METHOD BEGINDOCX
   METHOD ENDDOCX
   METHOD ENDPAGEX
   METHOD INITX
   METHOD PRINTDATAX
   METHOD PRINTIMAGE              BLOCK { || NIL }
   METHOD SELPRINTERX             BLOCK { |SELF| SELF:CPRINTER := "CSV" }
   METHOD SETPREVIEWSIZE          BLOCK { || NIL }
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TDATEPICK FROM TCONTROL
   DATA CDATEFORMAT               INIT ""
   DATA NHEIGHT                   INIT 24
   DATA NWIDTH                    INIT 120
   DATA TYPE                      INIT "DATEPICK" READONLY

   METHOD DATEFORMAT              SETGET
   METHOD DEFINE
   METHOD EVENTS_NOTIFY
   METHOD SETRANGE
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TDOSPRINT FROM TPRINTBASE
   DATA CBUSCA                    INIT ""                    READONLY
   DATA CSTRING                   INIT ""                    READONLY
   DATA NOCCUR                    INIT 0                     READONLY

   METHOD BEGINDOCX
   METHOD BEGINPAGEX
   METHOD CONDENDOSX
   METHOD ENDDOCX
   METHOD ENDPAGEX
   METHOD INITX
   METHOD NEXTSEARCH
   METHOD NORMALDOSX
   METHOD PRINTDATAX
   METHOD PRINTIMAGE              BLOCK { || NIL }
   METHOD PRINTLINEX
   METHOD PRINTMODEX
   METHOD SEARCHSTRING
   METHOD SELPRINTERX
   METHOD SETPREVIEWSIZE          BLOCK { || NIL }
ENDCLASS

*-----------------------------------------------------------------------------*
CLASS TDYNAMICVALUES
   DATA OWND

   ERROR HANDLER Error

   METHOD NEW
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TEDIT FROM TTEXT
   DATA NONFOCUSPOS               INIT -4
   DATA ONHSCROLL                 INIT NIL
   DATA ONVSCROLL                 INIT NIL
   DATA TYPE                      INIT "EDIT"                READONLY
   data nWidth
   data nHeight

   METHOD DEFINE
   METHOD EVENTS_COMMAND
   METHOD EVENTS_ENTER
   METHOD LOOKFORKEY
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TEDITRICH FROM TEDIT
   DATA LDEFAULT                  INIT .T.
   DATA LSELCHANGING              INIT .F.
   DATA NHEIGHT                   INIT 240
   DATA NWIDTH                    INIT 120
   DATA ONSELCHANGE               INIT NIL
   DATA TYPE                      INIT "RICHEDIT"            READONLY

   METHOD BACKCOLOR               SETGET
   METHOD DEFINE
   METHOD EVENTS                  BLOCK { || NIL }
   METHOD EVENTS_NOTIFY
   METHOD FONTCOLOR               SETGET
   METHOD GETSELTEXT
   METHOD HIDESELECTION
   METHOD LOADFILE
   METHOD MAXLENGTH               SETGET
   METHOD RICHVALUE               SETGET
   METHOD SAVEFILE
   METHOD SETSELECTIONBACKCOLOR
   METHOD SETSELECTIONTEXTCOLOR
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TEXCELPRINT FROM TPRINTBASE
   DATA OEXCEL                    INIT NIL                   READONLY
   DATA OBOOK                     INIT NIL                   READONLY
   DATA OHOJA                     INIT NIL                   READONLY

   METHOD BEGINDOCX
   METHOD BEGINPAGEX
   METHOD ENDDOCX
   METHOD ENDPAGEX
   METHOD INITX
   METHOD MAXCOL                  
   METHOD MAXROW                  
   METHOD PRINTDATAX
   METHOD PRINTIMAGEX
   METHOD RELEASEX
   METHOD SELPRINTERX             BLOCK { |SELF| SELF:CPRINTER := "EXCEL" }
   METHOD SETPREVIEWSIZE          BLOCK { || NIL }
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TFORM FROM TWINDOW
   DATA ACHILDPOPUP               INIT {}
   DATA ACTIVATECOUNT             INIT { 0, NIL, .T. }
   DATA AUTORELEASE               INIT .F.
   DATA CNOTIFYICONNAME           INIT ""
   DATA CNOTIFYICONTOOLTIP        INIT ""
   DATA FOCUSED                   INIT .T.
   DATA FORCECOL                  INIT NIL
   DATA FORCEROW                  INIT NIL
   DATA GRAPHCOMMAND              INIT NIL
   DATA GRAPHCONTROLS             INIT {}
   DATA GRAPHDATA                 INIT {}
   DATA GRAPHTASKS                INIT {}
   DATA HBACKIMAGE                INIT NIL
   DATA HWNDCLIENT                INIT NIL
   DATA LASTFOCUSEDCONTROL        INIT 0
   DATA LDEFINED                  INIT .F.
   DATA LENTERSIZEMOVE            INIT .F.
   DATA LFORM                     INIT .T.
   DATA LINTERNAL                 INIT .F.
   DATA LSHOWED                   INIT .F.
   DATA LSTRETCHBACK              INIT .T.
   DATA LTOPMOST                  INIT .F.
   DATA MAXHEIGHT                 INIT 0
   DATA MAXWIDTH                  INIT 0
   DATA MINHEIGHT                 INIT 0
   DATA MINWIDTH                  INIT 0
   DATA NHEIGHT                   INIT 300
   DATA NOTIFYICONDBLCLICK        INIT NIL
   DATA NOTIFYICONLEFTCLICK       INIT NIL
   DATA NOTIFYICONMDBLCLICK       INIT NIL
   DATA NOTIFYICONMIDCLICK        INIT NIL
   DATA NOTIFYICONRDBLCLICK       INIT NIL
   DATA NOTIFYICONRIGHTCLICK      INIT NIL
   DATA NOTIFYMENU                INIT NIL
   DATA NVIRTUALHEIGHT            INIT 0
   DATA NVIRTUALWIDTH             INIT 0
   DATA NWIDTH                    INIT 300
   DATA OMENU                     INIT NIL
   DATA ONHSCROLLBOX              INIT NIL
   DATA ONINIT                    INIT NIL
   DATA ONINTERACTIVECLOSE        INIT NIL
   DATA ONMAXIMIZE                INIT NIL
   DATA ONMINIMIZE                INIT NIL
   DATA ONMOVE                    INIT NIL
   DATA ONPAINT                   INIT NIL
   DATA ONRELEASE                 INIT NIL
   DATA ONRESTORE                 INIT NIL
   DATA ONSCROLLDOWN              INIT NIL
   DATA ONSCROLLLEFT              INIT NIL
   DATA ONSCROLLRIGHT             INIT NIL
   DATA ONSCROLLUP                INIT NIL
   DATA ONSIZE                    INIT NIL
   DATA ONVSCROLLBOX              INIT NIL
   DATA OTOOLTIP                  INIT NIL
   DATA OWNDCLIENT                INIT NIL
   DATA RANGEHEIGHT               INIT 0
   DATA RANGEWIDTH                INIT 0
   DATA SPLITCHILDLIST            INIT {}

   METHOD ACTIVATE
   METHOD ADJUSTWINDOWSIZE
   METHOD AUTOADJUST
   METHOD BACKCOLOR               SETGET
   METHOD BACKIMAGE               SETGET
   METHOD CENTER
   METHOD CHECKINTERACTIVECLOSE
   METHOD CLIENTSPOS
   METHOD CLOSABLE                SETGET
   METHOD COL                     SETGET
   METHOD CURSOR                  SETGET
   METHOD DEFINE
   METHOD DEFINE2
   METHOD DEFWINDOWPROC
   METHOD DELETECONTROL
   METHOD DOEVENT
   METHOD ENDWINDOW
   METHOD EVENTS
   METHOD EVENTS_DESTROY
   METHOD EVENTS_HSCROLL
   METHOD EVENT_NCDESTROY
   METHOD EVENTS_VSCROLL
   METHOD FLASH
   METHOD FOCUSEDCONTROL
   METHOD GETWINDOWSTATE
   METHOD HASSTATUSBAR        
   METHOD HEIGHT                  SETGET
   METHOD HELPBUTTON
   METHOD HELPTOPIC
   METHOD HIDE
   METHOD INSPECTOR
   METHOD MAXIMIZE
   METHOD MESSAGELOOP
   METHOD MINIMIZE
   METHOD NOTIFYICON              SETGET
   METHOD NOTIFYTOOLTIP           SETGET
   METHOD ONHIDEFOCUSMANAGEMENT
   METHOD PROCESSINITPROCEDURE
   METHOD REFRESHDATA
   METHOD REGISTER
   METHOD RELEASE
   METHOD RESTORE
   METHOD ROW                     SETGET
   METHOD SCROLLCONTROLS
   METHOD SETACTIVATIONFOCUS
   METHOD SHOW
   METHOD SIZEPOS
   METHOD TITLE                   SETGET
   METHOD TOOLTIPAUTOPOPTIME
   METHOD TOOLTIPICON
   METHOD TOOLTIPINITIALTIME
   METHOD TOOLTIPMULTILINE
   METHOD TOOLTIPRESETDELAYS
   METHOD TOOLTIPRESHOWTIME
   METHOD TOOLTIPTITLE
   METHOD TOOLTIPWIDTH
   METHOD TOPMOST                 SETGET
   METHOD VIRTUALHEIGHT           SETGET
   METHOD VIRTUALWIDTH            SETGET
   METHOD VISIBLE                 SETGET
   METHOD WIDTH                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TFORMINTERNAL FROM TFORM
   DATA FOCUSED                   INIT .F.
   DATA LADJUST                   INIT .F.
   DATA LINTERNAL                 INIT .T.
   DATA TYPE                      INIT "I"                   READONLY

   METHOD COL                     SETGET
   METHOD CONTAINERCOL
   METHOD CONTAINERROW
   METHOD DEFINE
   METHOD DEFINE2
   METHOD ROW                     SETGET
   METHOD SIZEPOS
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TFORMMDICHILD FROM TFORMINTERNAL
   DATA TYPE                      INIT "L"                   READONLY

   METHOD DEFINE
   METHOD DEFWINDOWPROC
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TFORMMDICLIENT FROM TFORMINTERNAL
   DATA NHEIGHT                   INIT 0
   DATA NWIDTH                    INIT 0
   DATA TYPE                      INIT "D"                   READONLY

   METHOD ACTIVECHILD
   METHOD CASCADE
   METHOD DEFINE
   METHOD DEFWINDOWPROC
   METHOD EVENTS_SIZE
   METHOD ICONARRANGE
   METHOD RELEASE
   METHOD TILEHORIZONTAL
   METHOD TILEVERTICAL
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TFORMMAIN FROM TFORM
   DATA LFIRSTACTIVATE            INIT .F.
   DATA TYPE                      INIT "A"                   READONLY

   METHOD ACTIVATE
   METHOD CHECKINTERACTIVECLOSE
   METHOD DEFINE
   METHOD RELEASE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TFORMMODAL FROM TFORM
   DATA LOCKEDFORMS               INIT {}
   DATA OPREVWINDOW               INIT NIL
   DATA TYPE                      INIT "M"                   READONLY

   METHOD ACTIVATE
   METHOD DEFINE
   METHOD ONHIDEFOCUSMANAGEMENT
   METHOD RELEASE
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TFORMSPLIT FROM TFORMINTERNAL
   DATA TYPE                      INIT "X"                   READONLY

   METHOD DEFINE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TFRAME FROM TCONTROL
   DATA NHEIGHT                   INIT 140
   DATA NWIDTH                    INIT 140
   DATA TABHANDLE                 INIT 0
   DATA TYPE                      INIT "FRAME"               READONLY

   METHOD CAPTION                 SETGET
   METHOD DEFINE
   METHOD EVENTS_COLOR
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRID FROM TCONTROL
   DATA AEDITCONTROLS             INIT NIL
   DATA AEDITKEYS                 INIT NIL
   DATA AHEADCLICK                INIT NIL
   DATA AHEADERIMAGE              INIT {}
   DATA AHEADERIMAGEALIGN         INIT {}
   DATA AHEADERS                  INIT {}
   DATA AHIDDENCOLS               INIT {}
   DATA AJUST                     INIT NIL
   DATA ALLOWAPPEND               INIT .F.
   DATA ALLOWCHANGESIZE           INIT .T.
   DATA ALLOWDELETE               INIT .F.
   DATA ALLOWEDIT                 INIT .F.
   DATA ALLOWMOVECOLUMN           INIT .T.
   DATA ASELECTEDCOLORS           INIT {}
   DATA AWHEN                     INIT {}
   DATA AWIDTHS                   INIT {}
   DATA BAFTERCOLMOVE             INIT NIL
   DATA BAFTERCOLSIZE             INIT NIL
   DATA BBEFOREAUTOFIT            INIT NIL
   DATA BBEFORECOLMOVE            INIT NIL
   DATA BBEFORECOLSIZE            INIT NIL
   DATA BCOMPAREITEMS             INIT NIL
   DATA BDELWHEN                  INIT NIL
   DATA BHEADRCLICK               INIT NIL
   DATA BONENTER                  INIT NIL
   DATA BPOSITION                 INIT 0
   DATA CEDITKEY                  INIT "F2"
   DATA CLICKONCHECKBOX           INIT .T.
   DATA CROWEDITTITLE             INIT NIL
   DATA CTEXT                     INIT ""
   DATA DELMSG                    INIT NIL
   DATA DYNAMICBACKCOLOR          INIT {}
   DATA DYNAMICFORECOLOR          INIT {}
   DATA EDITCONTROLS              INIT NIL
   DATA FULLMOVE                  INIT .F.
   DATA GRIDBACKCOLOR             INIT {}
   DATA GRIDFORECOLOR             INIT {}
   DATA GRIDSELECTEDCOLORS        INIT {}
   DATA HEADERFONTHANDLE          INIT 0
   DATA HEADERIMAGELIST           INIT 0
   DATA IMAGELISTCOLOR            INIT CLR_DEFAULT
   DATA IMAGELISTFLAGS            INIT LR_LOADTRANSPARENT + LR_DEFAULTCOLOR + LR_LOADMAP3DCOLORS
   DATA INPLACE                   INIT .F.
   DATA LAPPENDMODE               INIT .F.
   DATA LAPPENDONALTA             INIT .F.
   DATA LATFIRSTCOL               INIT .T.
   DATA LBEGINTRACK               INIT .F.
   DATA LBUTTONS                  INIT .F.
   DATA LCALLEDFROMCLASS          INIT .F. PROTECTED
   DATA LCHANGEBEFOREEDIT         INIT .F.
   DATA LCHECKBOXES               INIT .F.
   DATA LDIVIDERDBLCLICK          INIT .F.
   DATA LEDITMODE                 INIT .F.
   DATA LENDTRACK                 INIT .F.
   DATA LEXTENDDBLCLICK           INIT .F.
   DATA LFIXEDCONTROLS            INIT .F.
   DATA LFOCUSRECT                INIT .T.
   DATA LLIKEEXCEL                INIT .F.
   DATA LNESTED                   INIT .F.
   DATA LNESTEDEDIT               INIT .F.
   DATA LNODELMSG                 INIT .F.
   DATA LNOGRID                   INIT .F.
   DATA LNOMODAL                  INIT .F.
   DATA LNONEUNSELS               INIT .F.
   DATA LPLM                      INIT .F.
   DATA LSCROLLBARUSESCLIENTAREA  INIT .F.
   DATA LSHOWITEMATTOP            INIT .F.
   DATA LSILENT                   INIT .F.
   DATA LTRACKING                 INIT .F.
   DATA NCOLPOS                   INIT 0 PROTECTED
   DATA NDELAYEDCLICK             INIT { 0, 0, 0, NIL } PROTECTED
   DATA NEDITROW                  INIT 0 PROTECTED
   DATA NHEIGHT                   INIT 120
   DATA NROWPOS                   INIT 0 PROTECTED
   DATA NVISIBLEITEMS             INIT 0
   DATA NWIDTH                    INIT 240
   DATA ONABORTEDIT               INIT NIL
   DATA ONAPPEND                  INIT NIL
   DATA ONBEFOREEDITCELL          INIT NIL
   DATA ONCHECKCHANGE             INIT NIL
   DATA ONDELETE                  INIT NIL
   DATA ONDISPINFO                INIT NIL
   DATA ONEDITCELL                INIT NIL
   DATA ONEDITCELLEND             INIT NIL
   DATA ONINSERT                  INIT NIL
   DATA PICTURE                   INIT NIL
   DATA RCLICKONCHECKBOX          INIT .T.
   DATA READONLY                  INIT NIL
   DATA SEARCHCOL                 INIT 0
   DATA SEARCHLAPSE               INIT 1000
   DATA SEARCHWRAP                INIT .T.
   DATA SETIMAGELISTCOMMAND       INIT LVM_SETIMAGELIST
   DATA SETIMAGELISTWPARAM        INIT LVSIL_SMALL
   DATA TYPE                      INIT "GRID" READONLY
   DATA UINITIME                  INIT 0
   DATA VALID                     INIT NIL
   DATA VALIDMESSAGES             INIT NIL

   METHOD ADDBITMAP
   METHOD ADDCOLUMN
   METHOD ADDITEM
   METHOD ADJUSTRESIZE
   METHOD APPEND                  SETGET
   METHOD APPENDITEM
   METHOD BACKCOLOR               SETGET
   METHOD CELL
   METHOD CELLCAPTION             
   METHOD CELLIMAGE               
   METHOD CHECKITEM               SETGET
   METHOD COLUMNAUTOFIT
   METHOD COLUMNAUTOFITH
   METHOD COLUMNBETTERAUTOFIT
   METHOD COLUMNCOUNT
   METHOD COLUMNHIDE
   METHOD COLUMNORDER             SETGET
   METHOD COLUMNSAUTOFIT
   METHOD COLUMNSAUTOFITH
   METHOD COLUMNSBETTERAUTOFIT
   METHOD COLUMNSHOW
   METHOD COLUMNWIDTH
   METHOD COMPAREITEMS
   METHOD COUNTPERPAGE            
   METHOD DEFINE
   METHOD DEFINE2
   METHOD DEFINE4
   METHOD DELETEALLITEMS          
   METHOD DELETECOLUMN
   METHOD DELETEITEM
   METHOD DOWN
   METHOD EDITALLCELLS
   METHOD EDITCELL
   METHOD EDITCELL2
   METHOD EDITGRID
   METHOD EDITITEM
   METHOD EDITITEM2
   METHOD EVENTS
   METHOD EVENTS_ENTER
   METHOD EVENTS_NOTIFY
   METHOD FIRSTCOLINORDER
   METHOD FIRSTSELECTEDITEM       
   METHOD FIRSTVISIBLECOLUMN
   METHOD FIRSTVISIBLEITEM
   METHOD FIXCONTROLS             SETGET
   METHOD FONTCOLOR               SETGET
   METHOD GOBOTTOM
   METHOD GOTOP
   METHOD HEADER
   METHOD HEADERHEIGHT
   METHOD HEADERIMAGE
   METHOD HEADERIMAGEALIGN
   METHOD HEADERSETFONT
   METHOD INSERTBLANK
   METHOD INSERTITEM
   METHOD ISCOLUMNREADONLY
   METHOD ISCOLUMNWHEN
   METHOD ITEM
   METHOD ITEMCOUNT               
   METHOD ITEMHEIGHT
   METHOD JUSTIFY
   METHOD LASTCOLINORDER
   METHOD LASTVISIBLECOLUMN
   METHOD LEFT
   METHOD LOADHEADERIMAGES
   METHOD NEXTCOLINORDER
   METHOD ONENTER                 SETGET
   METHOD PAGEDOWN
   METHOD PAGEUP
   METHOD PRIORCOLINORDER
   METHOD RELEASE
   METHOD RIGHT
   METHOD SCROLLTOCOL
   METHOD SCROLLTOLEFT
   METHOD SCROLLTONEXT
   METHOD SCROLLTOPRIOR
   METHOD SCROLLTORIGHT
   METHOD SETCOLUMN
   METHOD SETCONTROLVALUE         
   METHOD SETITEMCOLOR
   METHOD SETRANGECOLOR
   METHOD SETSELECTEDCOLORS
   METHOD SORTCOLUMN
   METHOD SORTITEMS
   METHOD TOEXCEL
   METHOD TOOPENOFFICE
   METHOD UP
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDBYCELL FROM TGRID
   DATA TYPE                      INIT "GRIDBYCELL" READONLY

   METHOD ADDCOLUMN
   METHOD DEFINE
   METHOD DELETEALLITEMS
   METHOD DELETECOLUMN
   METHOD DELETEITEM
   METHOD DOCHANGE
   METHOD DOWN
   METHOD EDITCELL
   METHOD EDITCELL2
   METHOD EDITGRID
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD GOBOTTOM
   METHOD GOTOP
   METHOD INSERTBLANK
   METHOD LEFT
   METHOD PAGEDOWN
   METHOD PAGEUP
   METHOD RIGHT
   METHOD SETCONTROLVALUE         
   METHOD SETSELECTEDCOLORS
   METHOD UP
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROL
   DATA BCANCEL                   INIT NIL
   DATA BOK                       INIT NIL
   DATA BVALID                    INIT NIL
   DATA BWHEN                     INIT NIL
   DATA CIMAGECANCEL              INIT 'EDIT_CANCEL_16'
   DATA CIMAGEOK                  INIT 'EDIT_OK_16'
   DATA CMEMVAR                   INIT NIL
   DATA CVALIDMESSAGE             INIT NIL
   DATA LBUTTONS                  INIT .F.
   DATA LLIKEEXCEL                INIT .F.
   DATA LNOMODAL                  INIT .F.
   DATA NDEFHEIGHT                INIT 24
   DATA NDEFWIDTH                 INIT 140
   DATA NONFOCUSPOS               INIT NIL
   DATA OCONTROL                  INIT NIL
   DATA OGRID                     INIT NIL
   DATA OWINDOW                   INIT NIL
   DATA TYPE                      INIT "TGRIDCONTROL" READONLY
   DATA VALUE                     INIT NIL

   METHOD CONTROLVALUE            SETGET
   METHOD CREATEWINDOW
   METHOD ENABLED                 SETGET
   METHOD GRIDVALUE( UVALUE )     
   METHOD NEW                     BLOCK { | SELF | SELF }
   METHOD ONLOSTFOCUS             SETGET
   METHOD SETFOCUS                
   METHOD SETVALUE( UVALUE )      
   METHOD STR2VAL( UVALUE )       
   METHOD VALID
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLCHECKBOX FROM TGRIDCONTROL
   DATA CFALSE                    INIT ".F."
   DATA CTRUE                     INIT ".T."
   DATA TYPE                      INIT "TGRIDCONTROLCHECKBOX" READONLY

   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD GRIDVALUE( UVALUE )     
   METHOD NEW
   METHOD STR2VAL( UVALUE )       
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLCOMBOBOX FROM TGRIDCONTROL
   DATA AITEMS                    INIT {}
   DATA AVALUES                   INIT NIL
   DATA CFIELD                    INIT ""
   DATA CRETVALTYPE               INIT "N"
   DATA CVALUESOURCE              INIT ""
   DATA CWORKAREA                 INIT ""
   DATA TYPE                      INIT "TGRIDCONTROLCOMBOBOX" READONLY

   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD GRIDVALUE
   METHOD NEW
   METHOD REFRESH
   METHOD STR2VAL
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLCOMBOBOXTEXT FROM TGRIDCONTROL
   DATA AITEMS                    INIT {}
   DATA LINCREMENTAL              INIT .F.
   DATA LWINSIZE                  INIT .F.
   DATA TYPE                      INIT "TGRIDCONTROLCOMBOBOXTEXT" READONLY

   METHOD CONTROLVALUE            SETGET
   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD GRIDVALUE
   METHOD NEW
   METHOD STR2VAL
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLDATEPICKER FROM TGRIDCONTROL
   DATA LSHOWNONE
   DATA LUPDOWN
   DATA TYPE                      INIT "TGRIDCONTROLDATEPICKER" READONLY

   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD GRIDVALUE
   METHOD NEW
   METHOD STR2VAL
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLIMAGEDATA FROM TGRIDCONTROL
   DATA ODATA
   DATA TYPE                      INIT "TGRIDCONTROLIMAGEDATA" READONLY

   METHOD CONTROLVALUE SETGET
   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD ENABLED                 SETGET
   METHOD NEW
   METHOD ONLOSTFOCUS             SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLIMAGELIST FROM TGRIDCONTROL
   DATA TYPE                      INIT "TGRIDCONTROLIMAGELIST" READONLY

   METHOD CONTROLVALUE            SETGET
   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD NEW
   METHOD STR2VAL
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLLCOMBOBOX FROM TGRIDCONTROL
   DATA CFALSE                    INIT ".F."
   DATA CTRUE                     INIT ".T."
   DATA TYPE                      INIT "TGRIDCONTROLLCOMBOBOX" READONLY

   METHOD CONTROLVALUE            SETGET
   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD GRIDVALUE
   METHOD NEW
   METHOD STR2VAL
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLMEMO FROM TGRIDCONTROL
   DATA CTITLE                    INIT _OOHG_MESSAGES( 1, 11 )
   DATA LCLEANCRLF                INIT .F.
   DATA LNOHSCROLL                INIT .F.
   DATA LSIZE                     INIT .F.
   DATA NDEFHEIGHT                INIT 84
   DATA NHEIGHT                   INIT 265
   DATA NWIDTH                    INIT 350
   DATA TYPE                      INIT "TGRIDCONTROLMEMO" READONLY

   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD GRIDVALUE
   METHOD NEW
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLSPINNER FROM TGRIDCONTROL
   DATA NRANGEMAX                 INIT 100
   DATA NRANGEMIN                 INIT 0
   DATA TYPE                      INIT "TGRIDCONTROLSPINNER" READONLY

   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD GRIDVALUE
   METHOD NEW
   METHOD STR2VAL
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDCONTROLTEXTBOX FROM TGRIDCONTROL
   DATA CEDITKEY                  INIT "F2"
   DATA CMASK                     INIT ""
   DATA CTYPE                     INIT ""
   DATA LFORCEMODAL               INIT .F.
   DATA TYPE                      INIT "TGRIDCONTROLTEXTBOX" READONLY

   METHOD CREATECONTROL
   METHOD CREATEWINDOW
   METHOD GRIDVALUE
   METHOD NEW
   METHOD STR2VAL
ENDCLASS

*-----------------------------------------------------------------------------*
CLASS TGRIDCONTROLTEXTBOXACTION FROM TGRIDCONTROLTEXTBOX
   DATA BACTION                   INIT NIL
   DATA BACTION2                  INIT NIL
   DATA TYPE                      INIT "TGRIDCONTROLTEXTBOXACTION" READONLY

   METHOD CREATECONTROL
   METHOD NEW
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TGRIDMULTI FROM TGRID
   DATA LDELETEALL                INIT .F.
   DATA TYPE                      INIT "MULTIGRID" READONLY

   METHOD DEFINE
   METHOD DOCHANGE
   METHOD EVENTS_NOTIFY
   METHOD SETCONTROLVALUE         
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS THOTKEY FROM TCONTROL
   DATA NKEY                      INIT 0
   DATA NMOD                      INIT 0
   DATA ONCLICK
   DATA TYPE                      INIT "HOTKEY" READONLY

   METHOD DEFINE
   METHOD ENABLED                 SETGET
   METHOD RELEASE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS THOTKEYBOX FROM TLABEL
   DATA LFORCEALT                 INIT .T.
   DATA NHEIGHT                   INIT 40
   DATA NWIDTH                    INIT 120
   DATA TYPE                      INIT "HOTKEYBOX" READONLY

   METHOD DEFINE
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS THBPRINTER FROM TPRINTBASE
   DATA OHBPRN                    INIT NIL                   READONLY

   METHOD BEGINDOCX
   METHOD BEGINPAGEX
   METHOD ENDDOCX
   METHOD ENDPAGEX
   METHOD GETDEFPRINTERX
   METHOD INITX
   METHOD MAXCOL
   METHOD MAXROW
   METHOD PRINTBARCODEX
   METHOD PRINTDATAX
   METHOD PRINTIMAGEX
   METHOD PRINTLINEX
   METHOD PRINTRECTANGLEX
   METHOD PRINTROUNDRECTANGLEX
   METHOD RELEASEX
   METHOD SELPRINTERX
   METHOD SETCOLORX
   METHOD SETPREVIEWSIZEX
ENDCLASS

*------------------------------------------------------------------------------*
CLASS THTMLPRINT
   Implemented via FUNCTION THtmlPrint().
ENDCLASS

*------------------------------------------------------------------------------*
CLASS THTMLPRINTFROMCALC FROM TCALCPRINT
   METHOD BEGINDOCX
   METHOD ENDDOCX
   METHOD INITX
ENDCLASS

*------------------------------------------------------------------------------*
CLASS THTMLPRINTFROMEXCEL FROM TEXCELPRINT
   METHOD BEGINDOCX
   METHOD ENDDOCX
   METHOD INITX
ENDCLASS

*------------------------------------------------------------------------------*
CLASS THYPERLINK FROM TLABEL
   DATA TYPE                      INIT "HYPERLINK" READONLY
   DATA URL                       INIT ""

   METHOD ADDRESS                 SETGET
   METHOD DEFINE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TIMAGE FROM TCONTROL
   DATA AEXCLUDEAREA              INIT {}
   DATA AUTOFIT                   INIT .T.
   DATA BONCLICK                  INIT ""
   DATA CPICTURE                  INIT ""
   DATA HIMAGE                    INIT NIL
   DATA IMAGESIZE                 INIT .F.
   DATA LNO3DCOLORS               INIT .F.
   DATA LNODIBSECTION             INIT .F.
   DATA LNOTRANSPARENT            INIT .F.
   DATA NHEIGHT                   INIT 100
   DATA NWIDTH                    INIT 100
   DATA STRETCH                   INIT .F.
   DATA TYPE                      INIT "IMAGE" READONLY

   METHOD BLEND
   METHOD BUFFER                  SETGET
   METHOD COPY
   METHOD CURRENTSIZE
   METHOD DEFINE
   METHOD EVENTS
   METHOD HBITMAP                 SETGET
   METHOD ONCLICK                 SETGET
   METHOD ORIGINALSIZE
   METHOD PICTURE                 SETGET
   METHOD RELEASE
   METHOD REPAINT
   METHOD SIZEPOS
   METHOD TOOLTIP                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TINTERNAL FROM TCONTROL
   DATA NVIRTUALHEIGHT            INIT 0
   DATA NVIRTUALWIDTH             INIT 0
   DATA ONHSCROLLBOX              INIT NIL
   DATA ONSCROLLDOWN              INIT NIL
   DATA ONSCROLLLEFT              INIT NIL
   DATA ONSCROLLRIGHT             INIT NIL
   DATA ONSCROLLUP                INIT NIL
   DATA ONVSCROLLBOX              INIT NIL
   DATA RANGEHEIGHT               INIT 0
   DATA RANGEWIDTH                INIT 0
   DATA TYPE                      INIT "INTERNAL" READONLY

   METHOD BACKCOLOR               SETGET
   METHOD BACKCOLORCODE           SETGET
   METHOD DEFINE
   METHOD EVENTS
   METHOD EVENTS_HSCROLL
   METHOD EVENTS_VSCROLL
   METHOD SCROLLCONTROLS
   METHOD SIZEPOS
   METHOD VIRTUALHEIGHT           SETGET
   METHOD VIRTUALWIDTH            SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TIPADDRESS FROM TLABEL
   DATA NHEIGHT                   INIT 24
   DATA NWIDTH                    INIT 120
   DATA TYPE                      INIT "IPADDRESS" READONLY

   METHOD DEFINE
   METHOD STRING                  SETGET
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TLABEL FROM TCONTROL
   DATA ICONWIDTH                 INIT 0
   DATA LAUTOSIZE                 INIT .F.
   DATA NHEIGHT                   INIT 24
   DATA NWIDTH                    INIT 120
   DATA PICTURE                   INIT NIL
   DATA TYPE                      INIT "LABEL" READONLY

   METHOD ALIGN                   SETGET
   METHOD AUTOSIZE                SETGET
   METHOD CAPTION                 SETGET
   METHOD DEFINE
   METHOD GETTEXT
   METHOD SETFONT
   METHOD SETTEXT
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TLISTFROM TCONTROL
   DATA BONENTER                  INIT NIL
   DATA DRAGITEM                  INIT 0
   DATA DRAGTO                    INIT 0
   DATA IMAGELISTCOLOR            INIT CLR_DEFAULT
   DATA IMAGELISTFLAGS            INIT LR_LOADTRANSPARENT + LR_DEFAULTCOLOR + LR_LOADMAP3DCOLORS
   DATA LADJUSTIMAGES             INIT .F.
   DATA LFOCUSED                  INIT .F.
   DATA LMULTITAB                 INIT .F.
   DATA NCOLWIDTH                 INIT 120
   DATA NHEIGHT                   INIT 120
   DATA NTEXTHEIGHT               INIT 0
   DATA NWIDTH                    INIT 120
   DATA TYPE                      INIT "LIST" READONLY

   METHOD ADDITEM
   METHOD COLUMNWIDTH             SETGET
   METHOD DEFINE
   METHOD DEFINE2
   METHOD DELETEALLITEMS
   METHOD DELETEITEM( NITEM )
   METHOD ENSUREVISIBLE
   METHOD EVENTS
   METHOD EVENTS_COMMAND
   METHOD EVENTS_DRAG
   METHOD EVENTS_DRAWITEM
   METHOD EVENTS_MEASUREITEM
   METHOD INSERTITEM
   METHOD ITEM
   METHOD ITEMCOUNT
   METHOD ITEMHEIGHT
   METHOD ONENTER                 SETGET
   METHOD TOPINDEX                SETGET
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TLISTMULTI FROM TLIST
   DATA TYPE                      INIT "MULTILIST" READONLY

   METHOD DEFINE
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TLISTCOMBO FROM TCONTROL STATIC
   METHOD DEFINE
   METHOD EVENTS_VSCROLL
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMENU FROM TCONTROL
   DATA LADJUST                   INIT .F.
   DATA LMAIN                     INIT .F.
   DATA TYPE                      INIT "MENU" READONLY

   METHOD ACTIVATE
   METHOD DEFINE
   METHOD ENDMENU
   METHOD REFRESH
   METHOD RELEASE
   METHOD SEPARATOR
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMENUCONTEXT FROM TMENU
   METHOD DEFINE
   METHOD RELEASE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMENUDROPDOWN FROM TMENU
   METHOD DEFINE
   METHOD RELEASE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMENUITEM FROM TCONTROL
   DATA APICTURE                  INIT {"", ""}
   DATA HBITMAPS                  INIT {NIL, NIL}
   DATA LADJUST                   INIT .F.
   DATA LMAIN                     INIT .F.
   DATA LSTRETCH                  INIT .F.
   DATA TYPE                      INIT "MENUITEM" READONLY
   DATA XID                       INIT 0

   METHOD CAPTION                 SETGET
   METHOD CHECKED                 SETGET
   METHOD DEFAULTITEM
   METHOD DEFINEITEM
   METHOD DEFINEPOPUP
   METHOD DEFINESEPARATOR
   METHOD DOEVENT
   METHOD ENABLED                 SETGET
   METHOD ENDPOPUP
   METHOD HILITED                 SETGET
   METHOD INSERTITEM
   METHOD INSERTPOPUP
   METHOD INSERTSEPARATOR
   METHOD PICTURE                 SETGET
   METHOD RELEASE
   METHOD SEPARATOR
   METHOD STRETCH                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMENUMAIN FROM TMENU
   DATA LMAIN                     INIT .T.

   METHOD ACTIVATE
   METHOD DEFINE
   METHOD RELEASE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMENUNOTIFY FROM TMENU
   METHOD DEFINE
   METHOD RELEASE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMESSAGEBAR FROM TCONTROL
   DATA AALIGNS                   INIT {}
   DATA ACLICKS                   INIT NIL
   DATA AWIDTHS                   INIT NIL
   DATA ADBLCLICKS                INIT NIL
   DATA ARCLICKS                  INIT NIL
   DATA ARDBLCLICKS               INIT NIL
   DATA CLEDOFF                   INIT "ZZZ_LED_OFF"
   DATA CLEDON                    INIT "ZZZ_LED_ON"
   DATA LADJUST                   INIT .F.
   DATA LAUTOADJUST               INIT .T.
   DATA LTOP                      INIT .F.
   DATA TYPE                      INIT "MESSAGEBAR" READONLY

   METHOD ADDITEM
   METHOD BACKCOLOR               SETGET
   METHOD CAPTION
   METHOD CLIENTHEIGHTUSED
   METHOD DEFINE
   METHOD ENDSTATUS
   METHOD EVENTS_NOTIFY
   METHOD EVENTS_SIZE
   METHOD ITEM
   METHOD ITEMALIGN
   METHOD ITEMCLICK
   METHOD ITEMCOUNT
   METHOD ITEMDBLCLICK
   METHOD ITEMICON
   METHOD ITEMRCLICK
   METHOD ITEMRDBLCLICK
   METHOD ITEMTOOLTIP
   METHOD ITEMWIDTH
   METHOD MINHEIGHT               SETGET
   METHOD REFRESHDATA
   METHOD SETCLOCK
   METHOD SETDATE
   METHOD SETKEYBRD
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMINIPRINT FROM TPRINTBASE
   METHOD BEGINDOCX
   METHOD BEGINPAGEX
   METHOD ENDDOCX
   METHOD ENDPAGEX
   METHOD GETDEFPRINTERX
   METHOD INITX
   METHOD MAXCOL
   METHOD MAXROW
   METHOD PRINTBARCODEX
   METHOD PRINTDATAX
   METHOD PRINTIMAGEX
   METHOD PRINTLINEX
   METHOD PRINTRECTANGLEX
   METHOD PRINTROUNDRECTANGLEX
   METHOD RELEASEX
   METHOD SELPRINTERX
   METHOD SETPREVIEWSIZEX
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMONTHCAL FROM TCONTROL
   DATA ABOLDDAYS                 INIT {}
   DATA ONVIEWCHANGE              INIT NIL
   DATA TYPE                      INIT "MONTHCAL" READONLY

   METHOD ADDBOLDDAY
   METHOD BACKCOLOR               SETGET
   METHOD BACKGROUNDCOLOR         SETGET
   METHOD CURRENTVIEW             SETGET
   METHOD DEFINE
   METHOD DEFINE2
   METHOD DELBOLDDAY
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD FONTCOLOR               SETGET
   METHOD HEIGHT                  SETGET
   METHOD ISBOLDDAY               BLOCK { |SELF, DDAY| ASCAN( ::ABOLDDAYS, DDAY ) > 0 }
   METHOD SETFONT
   METHOD SETRANGE
   METHOD TITLEBACKCOLOR          SETGET
   METHOD TITLEFONTCOLOR          SETGET
   METHOD TRAILINGFONTCOLOR       SETGET
   METHOD VALUE                   SETGET
   METHOD WIDTH                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMONTHCALMULTI FROM TMONTHCAL
   DATA TYPE                      INIT "MONTHCALMULTI" READONLY

   METHOD DEFINE
   METHOD DOCHANGE
   METHOD MAXSELCOUNT             SETGET
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TMULTIPAGE FROM TCONTROLGROUP
   DATA APAGES                    INIT {}
   DATA NFIRSTVALUE               INIT NIL
   DATA OCONTAINERBASE            INIT NIL
   DATA OPAGECLASS                INIT TTABPAGE()
   DATA TYPE                      INIT "MULTIPAGE" READONLY

   METHOD ADDCONTROL
   METHOD ADDPAGE
   METHOD ADJUSTRESIZE
   METHOD BBEFORECHANGE           SETGET
   METHOD CAPTION
   METHOD CONTAINERCAPTION
   METHOD CONTAINERITEMCOUNT
   METHOD CONTAINERVALUE          SETGET
   METHOD CREATEPAGES
   METHOD DEFINE
   METHOD DELETECONTROL
   METHOD DELETEITEM
   METHOD DELETEPAGE
   METHOD ENABLED                 SETGET
   METHOD ENDPAGE
   METHOD ENDTAB
   METHOD FORCEHIDE
   METHOD HIDEPAGE
   METHOD HWND
   METHOD INSERTITEM
   METHOD ITEMCOUNT
   METHOD ONCLICK                 SETGET
   METHOD ONRCLICK                SETGET
   METHOD PICTURE
   METHOD REALPOSITION
   METHOD REFRESH
   METHOD REFRESHDATA
   METHOD RELEASE
   METHOD SAVEDATA
   METHOD SETFOCUS
   METHOD SHOWPAGE
   METHOD SIZEPOS
   METHOD VALUE                   SETGET
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TOBROWSE FROM TXBROWSE
   DATA ARECMAP                   INIT {}
   DATA LUPDATEALL                INIT .F.
   DATA NRECLASTVALUE             INIT 0 PROTECTED
   DATA RECCOUNT                  INIT 0
   DATA SYNCSTATUS                INIT NIL
   DATA TYPE                      INIT "BROWSE" READONLY

   MESSAGE GOBOTTOM               METHOD END
   MESSAGE GOTOP                  METHOD HOME

   METHOD BROWSEONCHANGE
   METHOD CURRENTROW              SETGET
   METHOD DBGOTO
   METHOD DBSKIP
   METHOD DEFINE
   METHOD DEFINE3
   METHOD DELETE
   METHOD DOCHANGE
   METHOD DOWN
   METHOD EDITALLCELLS
   METHOD EDITCELL
   METHOD EDITGRID
   METHOD EDITITEM_B
   METHOD END
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD FASTUPDATE
   METHOD HOME
   METHOD MOVETO                  BLOCK { || NIL }
   METHOD PAGEDOWN
   METHOD PAGEUP
   METHOD REFRESH
   METHOD REFRESHDATA
   METHOD SCROLLUPDATE
   METHOD SETCONTROLVALUE         BLOCK { || NIL }
   METHOD SETSCROLLPOS
   METHOD SETVALUE
   METHOD TOPBOTTOM
   METHOD UP
   METHOD UPDATE
   METHOD UPDATECOLORS
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TOBROWSEBYCELL FROM TOBROWSE
   DATA TYPE                      INIT "BROWSEBYCELL" READONLY

   MESSAGE GOBOTTOM               METHOD END
   MESSAGE GOTOP                  METHOD HOME

   METHOD ADDCOLUMN
   METHOD BROWSEONCHANGE
   METHOD CURRENTCOL              SETGET
   METHOD DEFINE3
   METHOD DELETE
   METHOD DELETEALLITEMS
   METHOD DELETECOLUMN
   METHOD DOCHANGE
   METHOD DOWN
   METHOD EDITALLCELLS
   METHOD EDITCELL
   METHOD EDITCELL2
   METHOD EDITGRID
   METHOD EDITITEM_B
   METHOD END
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD HOME
   METHOD LEFT
   METHOD PAGEDOWN
   METHOD PAGEUP
   METHOD RIGHT
   METHOD SETSCROLLPOS
   METHOD SETSELECTEDCOLORS
   METHOD SETVALUE
   METHOD UP
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TPDF
   DATA ABOOKMARKS
   DATA AFO1                      INIT {...}
   DATA AFO2                      INIT {...}
   DATA AFO3                      INIT {...}
   DATA AFONTS
   DATA AFONTWIDTH
   DATA AHEADER
   DATA AIMAGES
   DATA APAGEFONTS
   DATA APAGEIMAGES
   DATA APAGES
   DATA AREFS
   DATA AREPORT
   DATA LISPAGEACTIVE             INIT .F.
   DATA LOPTIMIZE
   DATA NDOCLEN
   DATA NFONTNAME
   DATA NFONTNAMEPREV
   DATA NFONTSIZE
   DATA NFONTSIZEPREV
   DATA NHANDLE
   DATA NNEXTOBJ
   DATA NPDFBOTTOM
   DATA NPDFLEFT
   DATA NPDFTOP

   METHOD _OOHG_BOX
   METHOD _OOHG_LINE
   METHOD ATSAY
   METHOD BMPINFO
   METHOD BOLD
   METHOD BOLDITALIC
   METHOD BOOKADD
   METHOD BOOKCLOSE
   METHOD BOOKCOUNT
   METHOD BOOKFIRST
   METHOD BOOKLAST
   METHOD BOOKNEXT
   METHOD BOOKOPEN
   METHOD BOOKPARENT
   METHOD BOOKPREV
   METHOD BOX
   METHOD BOX1
   METHOD CENTER
   METHOD CHECKLINE
   METHOD CLOSE
   METHOD CLOSEHEADER
   METHOD CLOSEPAGE
   METHOD CREATEHEADER
   METHOD DELETEHEADER
   METHOD DISABLEHEADER
   METHOD DRAWHEADER
   METHOD EDITOFFHEADER
   METHOD EDITONHEADER
   METHOD ENABLEHEADER
   METHOD EXECUTE
   METHOD FILEPRINT
   METHOD GETFONTINFO
   METHOD HEADER
   METHOD IMAGE
   METHOD IMAGEINFO
   METHOD INIT
   METHOD ITALIC
   METHOD JPEGINFO
   METHOD LENGTH
   METHOD M2R
   METHOD M2X
   METHOD M2Y
   METHOD MARGINS
   METHOD NEWLINE
   METHOD NEWPAGE
   METHOD NORMAL
   METHOD OPENHEADER
   METHOD PAGENUMBER
   METHOD PAGEORIENT
   METHOD PAGESIZE
   METHOD R2D
   METHOD R2M
   METHOD REVERSE
   METHOD RJUST
   METHOD SAVEHEADER
   METHOD SETFONT
   METHOD SETLPI
   METHOD STRINGB
   METHOD TEXT
   METHOD TEXTCOUNT
   METHOD TEXTNEXTPARA
   METHOD TEXTPRINT
   METHOD TIFFINFO
   METHOD UNDERLINE
   METHOD WRITETOFILE
   METHOD X2M
ENDCLASS

*---------------------------------------
CLASS TPDFPRINT FROM TPRINTBASE
   DATA APAPER                    INIT {}                    READONLY // PAPER TYPES SUPPORTED BY PDF CLASS
   DATA CPAGEORIENT               INIT "P"                   READONLY // P = PORTRAIT, L = LANDSCAPE
   DATA CPAGESIZE                 INIT ""                    READONLY // PAGE SIZE
   DATA OPDF                      INIT NIL                   READONLY // REFERENCE TO THE TPDF OBJECT

   METHOD BEGINDOCX
   METHOD BEGINPAGEX
   METHOD ENDDOCX
   METHOD INITX
   METHOD PRINTBARCODEX
   METHOD PRINTDATAX
   METHOD PRINTIMAGEX
   METHOD PRINTLINEX
   METHOD PRINTRECTANGLEX
   METHOD PRINTROUNDRECTANGLEX
   METHOD SELPRINTERX
   METHOD SETPREVIEWSIZE          BLOCK { || NIL }
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TPICTURE FROM TCONTROL
   DATA AEXCLUDEAREA              INIT {}
   DATA AUTOFIT                   INIT .F.
   DATA BONCLICK                  INIT NIL
   DATA CPICTURE                  INIT ""
   DATA HIMAGE                    INIT NIL
   DATA IMAGESIZE                 INIT .F.
   DATA LNO3DCOLORS               INIT .F.
   DATA LNODIBSECTION             INIT .F.
   DATA LNOTRANSPARENT            INIT .F.
   DATA NHEIGHT                   INIT 100
   DATA NWIDTH                    INIT 100
   DATA NZOOM                     INIT 1
   DATA STRETCH                   INIT .F.
   DATA TYPE                      INIT "PICTURE" READONLY

   METHOD BLEND
   METHOD BUFFER                  SETGET
   METHOD COPY
   METHOD CURRENTSIZE
   METHOD DEFINE
   METHOD EVENTS
   METHOD HBITMAP                 SETGET
   METHOD HORIZONTALSCROLL        SETGET
   METHOD NDEGREE                 SETGET
   METHOD ONCLICK                 SETGET
   METHOD ORIGINALSIZE
   METHOD PICTURE                 SETGET
   METHOD REDRAW
   METHOD RELEASE
   METHOD REPAINT
   METHOD ROTATE                  SETGET
   METHOD SIZEPOS
   METHOD TOOLTIP                 SETGET
   METHOD VERTICALSCROLL          SETGET
   METHOD ZOOM                    SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TPLAYER FROM TCONTROL
   DATA TYPE                      INIT "PLAYER" READONLY

   METHOD CLOSE
   METHOD DEFINE
   METHOD EJECT
   METHOD LENGTH
   METHOD OPEN
   METHOD OPENDIALOG
   METHOD PAUSE
   METHOD PLAY
   METHOD PLAYREVERSE
   METHOD POSITION                SETGET
   METHOD POSITIONEND
   METHOD POSITIONHOME
   METHOD RELEASE
   METHOD REPEAT
   METHOD REPEATOFF
   METHOD REPEATON
   METHOD RESUME
   METHOD SPEED
   METHOD STOP
   METHOD VOLUME                  SETGET
   METHOD ZOOM
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TPRINT
   Implemented via TPrint() function.
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TPRINTBASE
   DATA ABARCOLOR                 INIT {1, 1, 1}             READONLY    // BRUSH COLOR FOR BARCODES
   DATA ACOLOR                    INIT {0, 0, 0}             READONLY    // BRUSH COLOR
   DATA AFONTCOLOR                INIT {0, 0, 0}             READONLY    // FONT COLOR
   DATA ALINCELDA                 INIT {}                    READONLY
   DATA APAGENAMES                INIT {}                    READONLY
   DATA APORTS                    INIT {}                    READONLY
   DATA APRINTERS                 INIT {}                    READONLY
   DATA CARGO                     INIT "LIST"                READONLY    // DOCUMENT'S NAME WITHOUT EXTENSION
   DATA CDOCUMENT                 INIT ""                    READONLY    // DOCUMENT'S NAME WITH EXTENSION
   DATA CFONTNAME                 INIT "COURIER NEW"         READONLY
   DATA CPAGENAME                 INIT ""                    READONLY    // CURRENT PAGE NAME
   DATA CPORT                     INIT "PRN"                 READONLY
   DATA CPRINTER                  INIT ""                    READONLY
   DATA CPRINTLIBRARY             INIT "HBPRINTER"           READONLY
   DATA CTEMPFILE                 INIT TEMP_FILE_NAME        READONLY
   DATA CUNITS                    INIT "ROWCOL"              READONLY
   DATA CVERSION                  INIT "(OOHG-TPRINT)V 4.10" READONLY
   DATA EXIT                      INIT .F.                   READONLY
   DATA IMPREVIEW                 INIT .T.                   READONLY
   DATA LFONTBOLD                 INIT .F.                   READONLY
   DATA LFONTITALIC               INIT .F.                   READONLY
   DATA LFONTSTRIKEOUT            INIT .F.                   READONLY
   DATA LFONTUNDERLINE            INIT .F.                   READONLY
   DATA LINDENTALL                INIT .F.                   READONLY    // INDENT RICHEEDIT LINES
   DATA LLANDSCAPE                INIT .F.                   READONLY    // PAGE ORIENTATION
   DATA LPRERROR                  INIT .F.                   READONLY
   DATA LPROP                     INIT .F.                   READONLY
   DATA LSAVETEMP                 INIT .F.                   READONLY
   DATA LSEPARATESHEETS           INIT .F.                   READONLY
   DATA LSHOWERRORS               INIT .T.                   READONLY
   DATA LWINHIDE                  INIT .F.                   READONLY
   DATA NFONTANGLE                INIT 0                     READONLY
   DATA NFONTSIZE                 INIT 12                    READONLY
   DATA NFONTTYPE                 INIT 1                     READONLY // FONT TYPE (NORMAL=0 OR BOLD=1)
   DATA NFONTWIDTH                INIT 0                     READONLY
   DATA NHFIJ                     INIT ( 12 / 3.70 )         READONLY
   DATA NLINPAG                   INIT 0                     READONLY
   DATA NLMARGIN                  INIT 0                     READONLY
   DATA NMAXCOL                   INIT 0                     READONLY
   DATA NMAXROW                   INIT 0                     READONLY
   DATA NMHOR                     INIT ( 10 / 4.75 )         READONLY
   DATA NMVER                     INIT ( 10 / 2.35 )         READONLY
   DATA NTMARGIN                  INIT 0                     READONLY
   DATA NUNITSLIN                 INIT 1                     READONLY
   DATA NVFIJ                     INIT ( 12 / 1.65 )         READONLY
   DATA NWPEN                     INIT 0.1                   READONLY    // PEN WIDTH IN MM, DO NOT EXCEED 1

   METHOD BEGINDOC
   METHOD BEGINDOCX               BLOCK { || NIL }
   METHOD BEGINPAGE
   METHOD BEGINPAGEX              BLOCK { || NIL }
   METHOD CODABAR
   METHOD CODE128
   METHOD CODE3_9
   METHOD CONDENDOS               BLOCK { || NIL }
   METHOD CONDENDOSX              BLOCK { || NIL }
   METHOD EAN13
   METHOD EAN8
   METHOD ENDDOC
   METHOD ENDDOCX                 BLOCK { || NIL }
   METHOD ENDPAGE
   METHOD ENDPAGEX                BLOCK { || NIL }
   METHOD GETDEFPRINTER
   METHOD GETDEFPRINTERX          BLOCK { || NIL }
   METHOD GO_CODE
   METHOD IND25
   METHOD INIT
   METHOD INITX                   BLOCK { || NIL }
   METHOD INT25
   METHOD MAT25
   METHOD MAXCOL
   METHOD MAXROW
   METHOD NORMALDOS               BLOCK { || NIL }
   METHOD NORMALDOSX              BLOCK { || NIL }
   METHOD PRINTBARCODE
   METHOD PRINTBARCODEX           BLOCK { || NIL }
   METHOD PRINTDATA
   METHOD PRINTDATAX              BLOCK { || NIL }
   METHOD PRINTDOS
   METHOD PRINTIMAGE
   METHOD PRINTIMAGEX             BLOCK { || NIL }
   METHOD PRINTLINE
   METHOD PRINTLINEX              BLOCK { || NIL }
   METHOD PRINTMODE
   METHOD PRINTMODEX              BLOCK { || NIL }
   METHOD PRINTRAW
   METHOD PRINTRECTANGLE
   METHOD PRINTRECTANGLEX         BLOCK { || NIL }
   METHOD PRINTROUNDRECTANGLE
   METHOD PRINTROUNDRECTANGLEX    BLOCK { || NIL }
   METHOD RELEASE
   METHOD RELEASEX                BLOCK { || NIL }
   METHOD SELPRINTER
   METHOD SELPRINTERX             BLOCK { || NIL }
   METHOD SETBARCOLOR
   METHOD SETCOLOR
   METHOD SETCOLORX               BLOCK { || NIL }
   METHOD SETCPL
   METHOD SETDOSPORT
   METHOD SETFONT
   METHOD SETFONTTYPE
   METHOD SETFONTX                BLOCK { || NIL }
   METHOD SETINDENTATION
   METHOD SETLMARGIN
   METHOD SETPREVIEWSIZE
   METHOD SETPREVIEWSIZEX         BLOCK { || NIL }
   METHOD SETPROP
   METHOD SETRAWPRINTER
   METHOD SETSEPARATESHEETS
   METHOD SETSHOWERRORS
   METHOD SETTMARGIN
   METHOD SETUNITS
   METHOD SUP5
   METHOD UPCA
   METHOD VERSION                INLINE ::CVERSION
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TPROGRESSBAR FROM TCONTROL
   DATA LRUNNING                  INIT .F.
   DATA NRANGEMAX                 INIT 100
   DATA NRANGEMIN                 INIT 0
   DATA NVELOCITY                 INIT 30
   DATA TYPE                      INIT "PROGRESSBAR" READONLY

   METHOD BACKCOLOR               SETGET
   METHOD DEFINE
   METHOD FONTCOLOR               SETGET
   METHOD ISMARQUEERUNNING
   METHOD ISSTYLEMARQUEE
   METHOD ISSTYLENORMAL
   METHOD RANGEMAX                SETGET
   METHOD RANGEMIN                SETGET
   METHOD SETSTYLEMARQUEE
   METHOD SETSTYLENORMAL
   METHOD STARTMARQUEE
   METHOD STOPMARQUEE
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TPROGRESSMETER FROM TLABEL
   DATA NHEIGHT                   INIT 18
   DATA NPERCENT                  INIT 0
   DATA NRANGEMAX                 INIT 100
   DATA NRANGEMIN                 INIT 0
   DATA NVALUE                    INIT 0
   DATA NWIDTH                    INIT 100
   DATA TYPE                      INIT "PROGRESSMETER" READONLY

   METHOD ALIGN                   SETGET
   METHOD DEFINE
   METHOD EVENTS
   METHOD RANGEMAX                SETGET
   METHOD RANGEMIN                SETGET
   METHOD RECALC
   METHOD SETPERCENT              SETGET
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TRADIOGROUP FROM TLABEL
   DATA AOPTIONS                  INIT {}
   DATA ICONWIDTH                 INIT 19
   DATA LEFTALIGN                 INIT .F.
   DATA LHORIZONTAL               INIT .F.
   DATA LLIBDRAW                  INIT .F.
   DATA NHEIGHT                   INIT 25
   DATA NSPACING                  INIT NIL
   DATA NWIDTH                    INIT 120
   DATA OBKGRND                   INIT NIL
   DATA TABHANDLE                 INIT 0
   DATA TABSTOP                   INIT .T.
   DATA TYPE                      INIT "RADIOGROUP" READONLY

   METHOD ADDITEM
   METHOD ADJUSTRESIZE
   METHOD CAPTION
   METHOD COLMARGIN
   METHOD DEFINE
   METHOD DELETEITEM
   METHOD ENABLED                 SETGET
   METHOD GROUPHEIGHT
   METHOD GROUPWIDTH
   METHOD INSERTITEM
   METHOD ITEMCOUNT
   METHOD ITEMENABLED
   METHOD ITEMREADONLY
   METHOD READONLY                SETGET
   METHOD ROWMARGIN
   METHOD SETFOCUS
   METHOD SETFONT
   METHOD SIZEPOS
   METHOD SPACING                 SETGET
   METHOD VALUE                   SETGET
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TRADIOITEM FROM TLABEL
   DATA ICONWIDTH                 INIT 19
   DATA LEFTALIGN                 INIT .F.
   DATA NHEIGHT                   INIT 25
   DATA NWIDTH                    INIT 120
   DATA OBKGRND                   INIT NIL
   DATA TABHANDLE                 INIT 0
   DATA TYPE                      INIT "RADIOITEM" READONLY

   METHOD DEFINE
   METHOD EVENTS
   METHOD EVENTS_COLOR
   METHOD EVENTS_COMMAND
   METHOD EVENTS_NOTIFY
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TRAWPRINT FROM TDOSPRINT
   METHOD BEGINDOCX
   METHOD INITX
   METHOD PRINTMODEX
   METHOD SELPRINTERX
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TREG32
   DATA CREGKEY
   DATA LERROR
   DATA NERROR
   DATA NHANDLE
   DATA NKEY

   METHOD CLOSE
   METHOD CREATE
   METHOD DELETE
   METHOD GET
   METHOD KEYDELETE
   METHOD NEW
   METHOD SET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TREPORT FROM TPRINTBASE
   VAR ALINE                      INIT {}
   VAR ANGRPBY                    INIT {}
   VAR NFSIZE                     INIT 0
   VAR NHFIJ                      INIT 0
   VAR NLMARGIN                   INIT 0
   VAR NMHOR                      INIT 0
   VAR NMVER                      INIT 0
   VAR NPAGER                     INIT 0
   VAR NVFIJ                      INIT 0
   VAR SWT                        INIT .F.

   METHOD CLEAN
   METHOD EASYREPORT1
   METHOD EXTREPORT1
   METHOD HEADERS
   METHOD LEACOLI
   METHOD LEADATO
   METHOD LEADATOH
   METHOD LEADATOLOGIC
   METHOD LEAIMAGE
   METHOD LEAROWI
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TRTFPRINT FROM TPRINTBASE
   DATA APRINTRTF                 INIT {}                    READONLY    // DOCUMENT LINES
   DATA NPRINTRTF                 INIT 0                     READONLY    // LAST FONT SIZE USED
   DATA NFONTSIZE                 INIT 10                    READONLY    // IN TPRINTBASE IS 12
   DATA NMARGINLEF                INIT 10                    READONLY    // IN MM
   DATA NMARGINSUP                INIT 15                    READONLY    // IN MM
   DATA NMARGINRIG                INIT 10                    READONLY    // IN MM
   DATA NMARGININF                INIT 15                    READONLY    // IN MM

   METHOD BEGINDOCX
   METHOD ENDDOCX
   METHOD ENDPAGEX
   METHOD INITX
   METHOD PRINTDATAX
   METHOD PRINTIMAGE              BLOCK { || NIL }
   METHOD PRINTLINEX
   METHOD SELPRINTERX
   METHOD SETCPL
   METHOD SETPAGEMARGINS
   METHOD SETPREVIEWSIZE          BLOCK { || NIL }
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TSCROLLBAR FROM TCONTROL
   DATA FROMHWND                  INIT 0
   DATA LADJUST                   INIT .F.
   DATA LAUTOMOVE                 INIT .F.
   DATA NFACTOR                   INIT 1
   DATA NLINESKIP                 INIT 0
   DATA NORIENT                   INIT SB_VERT
   DATA NPAGESKIP                 INIT 0
   DATA NRANGEMAX                 INIT 100
   DATA NRANGEMIN                 INIT 1
   DATA ONBOTTOM                  INIT NIL
   DATA ONENDTRACK                INIT NIL
   DATA ONLINEDOWN                INIT NIL
   DATA ONLINEUP                  INIT NIL
   DATA ONPAGEDOWN                INIT NIL
   DATA ONPAGEUP                  INIT NIL
   DATA ONTHUMB                   INIT NIL
   DATA ONTOP                     INIT NIL
   DATA ONTRACK                   INIT NIL
   DATA SCROLLTYPE                INIT SB_CTL
   DATA TYPE                      INIT "SCROLLBAR"           READONLY

   MESSAGE EVENTS_HSCROLL
   MESSAGE LEFT
   MESSAGE LINELEFT
   MESSAGE LINERIGHT
   MESSAGE PAGELEFT
   MESSAGE PAGERIGHT
   MESSAGE RIGHT

   METHOD BOTTOM
   METHOD DEFINE
   METHOD EVENTS_VSCROLL
   METHOD LINEDOWN
   METHOD LINEUP
   METHOD ONLEFT                  SETGET
   METHOD ONLINELEFT              SETGET
   METHOD ONLINERIGHT             SETGET
   METHOD ONPAGELEFT              SETGET
   METHOD ONPAGERIGHT             SETGET
   METHOD ONRIGHT                 SETGET
   METHOD PAGE                    SETGET
   METHOD PAGEDOWN
   METHOD PAGEUP
   METHOD RANGEMAX                SETGET
   METHOD RANGEMIN                SETGET
   METHOD SETRANGE
   METHOD THUMB
   METHOD TOP
   METHOD TRACK
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TSCROLLBUTTON FROM TCONTROL
   DATA LADJUST                   INIT .F.
   DATA TYPE                      INIT "SCROLLBUTTON" READONLY

   METHOD DEFINE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TSLIDER FROM TCONTROL
   DATA NRANGEMAX                 INIT 10
   DATA NRANGEMIN                 INIT 0
   DATA TYPE                      INIT "SLIDER" READONLY

   METHOD BACKCOLOR               SETGET
   METHOD DEFINE
   METHOD EVENTS_HSCROLL
   METHOD EVENTS_VSCROLL
   METHOD RANGEMAX                SETGET
   METHOD RANGEMIN                SETGET
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TSPINNER FROM TCONTROL
   DATA LBOUNDTEXT
   DATA NHEIGHT                   INIT 24
   DATA NINCREMENT                INIT 1
   DATA NRANGEMAX                 INIT 100
   DATA NRANGEMIN                 INIT 1
   DATA NWIDTH                    INIT 120
   DATA TYPE                      INIT "SPINNER" READONLY

   METHOD DEFINE
   METHOD ENABLED                 SETGET
   METHOD EVENTS_COMMAND
   METHOD FORCEHIDE
   METHOD INCREMENT               SETGET
   METHOD RANGEMAX                SETGET
   METHOD RANGEMIN                SETGET
   METHOD SIZEPOS
   METHOD VALUE                   SETGET
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TSPLITBOX FROM TCONTROL
   DATA CGRIPPERTEXT              INIT ""
   DATA LFORCEBREAK               INIT .T.
   DATA LINVERTED                 INIT .F.
   DATA NMINHEIGHT                INIT NIL
   DATA NMINWIDTH                 INIT NIL
   DATA TYPE                      INIT "SPLITBOX" READONLY

   METHOD ADDCONTROL
   METHOD BANDGRIPPEROFF
   METHOD BANDGRIPPERON
   METHOD BANDHASGRIPPER
   METHOD CLIENTHEIGHTUSED
   METHOD DEFINE
   METHOD EVENTS_SIZE
   METHOD HIDEBAND
   METHOD ISBANDVISIBLE
   METHOD REFRESH
   METHOD REFRESHDATA
   METHOD SETSPLITBOX
   METHOD SHOWBAND
   METHOD SIZEPOS
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TSPREADSHEETPRINT FROM TPRINTBASE
   DATA ADOC                      INIT {}                    READONLY
   DATA NLINREL                   INIT 0                     READONLY
   DATA NLPP                      INIT 60                    READONLY    // LINES PER PAGE
   DATA NXLS                      INIT 0                     READONLY

   METHOD ADDPAGE
   METHOD BEGINDOCX
   METHOD ENDDOCX
   METHOD ENDPAGEX
   METHOD INITX
   METHOD PRINTDATAX
   METHOD PRINTIMAGE              BLOCK { || NIL }
   METHOD RELEASEX
   METHOD SELPRINTERX             BLOCK { |SELF| SELF:CPRINTER := "BIFF" }
   METHOD SETPREVIEWSIZE          BLOCK { || NIL }
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTAB FROM TTABMULTI
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTABCOMBO FROM TMULTIPAGE
   DATA LINTERNALS                INIT .F.
   DATA TYPE                      INIT "TAB" READONLY

   METHOD DEFINE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTABDIRECT FROM TTABRAW
   DATA APAGES                    INIT {}
   DATA LINTERNALS                INIT .F.
   DATA NFIRSTVALUE               INIT NIL

   METHOD ADDCONTROL
   METHOD ADDPAGE
   METHOD ADJUSTRESIZE
   METHOD CAPTION
   METHOD DEFINE
   METHOD DELETECONTROL
   METHOD DELETEPAGE
   METHOD ENABLED                 SETGET
   METHOD ENDPAGE             
   METHOD ENDTAB
   METHOD FORCEHIDE
   METHOD HIDEPAGE
   METHOD ITEMCOUNT           
   METHOD PICTURE
   METHOD REALPOSITION
   METHOD REFRESH
   METHOD REFRESHDATA
   METHOD RELEASE
   METHOD SAVEDATA
   METHOD SHOWPAGE
   METHOD SIZEPOS
   METHOD VALUE                   SETGET
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTABMULTI FROM TMULTIPAGE
   DATA LINTERNALS                INIT .F.
   DATA TYPE                      INIT "TAB" READONLY

   METHOD DEFINE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTABPAGE FROM TCONTROLGROUP
   DATA CAPTION                   INIT ""
   DATA NIMAGE                    INIT -1
   DATA PICTURE                   INIT ""
   DATA POSITION                  INIT 0
   DATA TYPE                      INIT "TABPAGE" READONLY

   METHOD ADJUSTRESIZE
   METHOD CONTAINERVISIBLE
   METHOD ENDPAGE             
   METHOD EVENTS_SIZE
   METHOD SAVEDATA
   METHOD SETFOCUS
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTABPAGEINTERNAL FROM TFORMINTERNAL
   DATA CAPTION                   INIT ""
   DATA LHIDDEN                   INIT .F.
   DATA NIMAGE                    INIT -1
   DATA PICTURE                   INIT ""
   DATA POSITION                  INIT 0
   DATA TYPE                      INIT "TABPAGE" READONLY

   METHOD ADJUSTRESIZE
   METHOD DEFINE
   METHOD ENDPAGE
   METHOD EVENTS_SIZE
   METHOD SETFOCUS
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTABRADIO FROM TMULTIPAGE
   DATA LINTERNALS                INIT .F.
   DATA TYPE                      INIT "TAB" READONLY

   METHOD DEFINE
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTABRAW FROM TCONTROL
   DATA BBEFORECHANGE             INIT NIL
   DATA IMAGELISTCOLOR            INIT CLR_DEFAULT
   DATA IMAGELISTFLAGS            INIT LR_LOADTRANSPARENT + LR_DEFAULTCOLOR + LR_LOADMAP3DCOLORS
   DATA SETIMAGELISTCOMMAND       INIT TCM_SETIMAGELIST
   DATA TYPE                      INIT "TAB" READONLY

   METHOD CAPTION
   METHOD DEFINE
   METHOD DELETEITEM
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD INSERTITEM
   METHOD ITEMCOUNT               
   METHOD PICTURE
   METHOD TABSAREAHEIGHT
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTEXT FROM TLABEL
   DATA BWHEN                     INIT NIL
   DATA LAUTOSKIP                 INIT .F.
   DATA LFOCUSED                  INIT .F.
   DATA LINSERT                   INIT .T.
   DATA LPREVUNDO                 INIT .F.
   DATA LSETTING                  INIT .F.
   DATA NDEFANCHOR                INIT 13
   DATA NHEIGHT                   INIT 24
   DATA NINSERTTYPE               INIT 0
   DATA NMAXLENGTH                INIT 0
   DATA NONFOCUSPOS               INIT -4
   DATA NWIDTH                    INIT 120
   DATA OBUTTON1                  INIT NIL
   DATA OBUTTON2                  INIT NIL
   DATA ONTEXTFILLED              INIT NIL
   DATA TYPE                      INIT "TEXT" READONLY
   DATA WHEN_PROCESING            INIT .F.
   DATA WHEN_PROCESSED            INIT .F.
   DATA XPREVUNDO                 INIT NIL
   DATA XUNDO                     INIT NIL

   METHOD ADDCONTROL
   METHOD ADJUSTRESIZE
   METHOD CARETPOS                SETGET
   METHOD CONTROLAREA             SETGET
   METHOD DEFINE
   METHOD DEFINE2
   METHOD DELETECONTROL
   METHOD DOAUTOSKIP
   METHOD ENABLED                 SETGET
   METHOD EVENTS
   METHOD EVENTS_COMMAND
   METHOD GETCHARFROMPOS
   METHOD GETCURRENTLINE
   METHOD GETFIRSTVISIBLELINE
   METHOD GETLASTVISIBLELINE
   METHOD GETLINE
   METHOD GETLINECOUNT           
   METHOD GETLINEFROMCHAR
   METHOD GETLINEINDEX
   METHOD GETLINELENGTH
   METHOD GETRECT
   METHOD GETSELECTION
   METHOD GETSELTEXT
   METHOD INSERTSTATUS            SETGET
   METHOD MAXLENGTH               SETGET
   METHOD READONLY                SETGET
   METHOD REFRESH
   METHOD REFRESHDATA
   METHOD SCROLLCARET
   METHOD SETFOCUS
   METHOD SETSELECTION
   METHOD SIZEPOS
   METHOD VALUE                   SETGET
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTEXTARRAY FROM TCONTROL
   DATA TYPE                      INIT "TEXTARRAY" READONLY

   METHOD ASSUMEFIXED             SETGET
   METHOD CLEAR
   METHOD CLS
   METHOD COLCOUNT                SETGET
   METHOD CURSORTYPE              SETGET
   METHOD DEFINE
   METHOD DEVPOS
   METHOD EVENTS
   METHOD QOUT
   METHOD QQOUT
   METHOD ROWCOUNT                SETGET
   METHOD SCROLL
   METHOD SETFONT
   METHOD TEXTCOL                 SETGET
   METHOD TEXTROW                 SETGET
   METHOD WRITE
   METHOD WRITELN
   METHOD WRITERAW
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTEXTNUM FROM TTEXT
   DATA TYPE                      INIT "NUMTEXT" READONLY

   METHOD DEFINE
   METHOD EVENTS_COMMAND
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTEXTPICTURE FROM TTEXT
   DATA CDATEFORMAT               INIT NIL
   DATA CPICTURE                  INIT ""
   DATA DATATYPE                  INIT "."
   DATA LBRITISH                  INIT .F.
   DATA LNUMERICSCROLL            INIT .F.
   DATA LTOUPPER                  INIT .F.
   DATA NDECIMAL                  INIT 0
   DATA NDECIMALSHOW              INIT 0
   DATA NYEAR                     INIT NIL
   DATA PICTUREFUN                INIT ""
   DATA PICTUREFUNSHOW            INIT ""
   DATA PICTUREMASK               INIT ""
   DATA PICTURESHOW               INIT ""
   DATA TYPE                      INIT "TEXTPICTURE" READONLY
   DATA VALIDMASK                 INIT {}
   DATA VALIDMASKSHOW             INIT {}

   METHOD DEFINE
   METHOD EVENTS
   METHOD EVENTS_COMMAND
   METHOD KEYPRESSED
   METHOD PICTURE                 SETGET
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTIMEPICK FROM TCONTROL
   DATA CTIMEFORMAT               INIT ""
   DATA NHEIGHT                   INIT 24
   DATA NWIDTH                    INIT 120
   DATA TYPE                      INIT "TIMEPICK" READONLY

   METHOD DEFINE
   METHOD EVENTS_NOTIFY
   METHOD TIMEFORMAT              SETGET
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTIMER FROM TCONTROL
   DATA INTERVAL                  INIT 0
   DATA TYPE                      INIT "TIMER" READONLY

   METHOD DEFINE
   METHOD ENABLED                 SETGET
   METHOD RELEASE
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTOOLBAR FROM TCONTROL
   DATA LADJUST                   INIT .T.
   DATA LFIXFONT                  INIT .T.
   DATA LTOP                      INIT .T.
   DATA LVERTICAL                 INIT .F.
   DATA NBUTTONHEIGHT             INIT 0
   DATA NBUTTONWIDTH              INIT 0
   DATA TYPE                      INIT "TOOLBAR" READONLY

   METHOD ADDBUTTON
   METHOD CLIENTHEIGHTUSED
   METHOD DEFINE
   METHOD DELETEBUTTON
   METHOD EVENTS
   METHOD EVENTS_COMMAND
   METHOD EVENTS_NOTIFY
   METHOD EVENTS_SIZE
   METHOD HEIGHT                  SETGET
   METHOD LOOKFORKEY
   METHOD WIDTH                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTOOLBUTTON FROM TCONTROL
   DATA CPICTURE                  INIT ""
   DATA HIMAGE                    INIT 0
   DATA LADJUST                   INIT .F.
   DATA OHOTKEY                   INIT NIL
   DATA POSITION                  INIT 0
   DATA TYPE                      INIT "TOOLBUTTON" READONLY

   METHOD BUFFER                  SETGET
   METHOD DEFINE
   METHOD ENABLED                 SETGET
   METHOD EVENTS_NOTIFY
   METHOD HBITMAP                 SETGET
   METHOD PICTURE                 SETGET
   METHOD RELEASE
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTOOLTIP FROM TCONTROL
   DATA CICON                     INIT ''
   DATA CTITLE                    INIT ''
   DATA LMULTILINE                INIT .F.
   DATA NICON                     INIT TTI_NONE
   DATA NWINDOWWIDTH              INIT -1
   DATA TYPE                      INIT "TOOLTIP" READONLY

   METHOD AUTOPOPTIME             SETGET
   METHOD DEFINE
   METHOD EVENTS_NOTIFY
   METHOD ICON                    SETGET
   METHOD INITIALTIME             SETGET
   METHOD ITEM
   METHOD MULTILINE               SETGET
   METHOD RESETDELAYS
   METHOD RESHOWTIME              SETGET
   METHOD TITLE                   SETGET
   METHOD WINDOWWIDTH             SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TTREE FROM TCONTROL
   DATA AITEMIDS                  INIT {}
   DATA ASELCOLOR                 INIT BLUE             // background color of the select node
   DATA ATARGET                   INIT {}               // posible targets for the drop
   DATA ATREEENABLED              INIT {}
   DATA ATREEIDMAP                INIT {}
   DATA ATREEMAP                  INIT {}
   DATA ATREENODE                 INIT {}
   DATA ATREENODRAG               INIT {}
   DATA ATREERO                   INIT {}
   DATA AUTOEXPANDTIMER           INIT NIL
   DATA AUTOSCROLLTIMER           INIT NIL
   DATA BONENTER                  INIT NIL
   DATA CTRLLASTDROP              INIT nil
   DATA DRAGACTIVE                INIT .F.              // .T. if a drag and drop operation is going on
   DATA DRAGENDING                INIT .F.
   DATA DRAGIMAGELIST             INIT 0                // contains drag image
   DATA HWNDEDITCTRL              INIT NIL
   DATA INITVALUE                 INIT 0
   DATA ITEMIDS                   INIT .F.
   DATA ITEMLASTDROP              INIT nil
   DATA ITEMONDRAG                INIT 0                // handle of the item being dragged
   DATA LASTTARGET                INIT Nil              // last target hovered
   DATA LSELBOLD                  INIT .F.
   DATA NHEIGHT                   INIT 120
   DATA NLASTIDNUMBER             INIT 0
   DATA NWIDTH                    INIT 120
   DATA ONCHECKCHANGE             INIT NIL
   DATA ONLABELEDIT               INIT NIL
   DATA READONLY                  INIT .T.
   DATA SETIMAGELISTCOMMAND       INIT TVM_SETIMAGELIST
   DATA TYPE                      INIT "TREE" READONLY
   DATA VALID                     INIT NIL

   METHOD ADDITEM
   METHOD BACKCOLOR               SETGET
   METHOD BOLDITEM                
   METHOD CHECKITEM               
   METHOD COLLAPSE
   METHOD COPYITEM
   METHOD DEFINE
   METHOD DELETEALLITEMS
   METHOD DELETEITEM
   METHOD EDITLABEL
   METHOD ENDTREE
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD EXPAND
   METHOD FIRSTVISIBLE
   METHOD GETCHILDREN
   METHOD GETPARENT
   METHOD HANDLETOITEM
   METHOD INDENT                  SETGET
   METHOD ISITEMCOLLAPSED
   METHOD ISITEMEXPANDED
   METHOD ISITEMVALID
   METHOD ISITEMVISIBLE
   METHOD ITEM
   METHOD ITEMCOUNT
   METHOD ITEMDRAGGABLE           
   METHOD ITEMENABLED             
   METHOD ITEMHEIGHT              SETGET
   METHOD ITEMIMAGES
   METHOD ITEMREADONLY            
   METHOD ITEMTOHANDLE
   METHOD ITEMVISIBLE
   METHOD LASTVISIBLE
   METHOD LOOKFORKEY
   METHOD MOVEITEM
   METHOD NEXTVISIBLE
   METHOD ONENTER                 SETGET
   METHOD PREVVISIBLE
   METHOD RELEASE
   METHOD SELCOLOR                SETGET
   METHOD SELECTIONID             SETGET
   METHOD VALUE                   SETGET
   METHOD VISIBLECOUNT
ENDCLASS

*-----------------------------------------------------------------------------*
CLASS TVirtualField
   DATA BRECORDID                 INIT NIL
   DATA HVALUES                   INIT NIL
   DATA XAREA                     INIT NIL
   DATA XDEFAULT                  INIT NIL

   METHOD NEW
   METHOD RECORDID
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TXBROWSE FROM TGRID
   DATA ACOLUMNBLOCKS             INIT NIL
   DATA ADEFAULTVALUES            INIT NIL
   DATA AFIELDS                   INIT NIL
   DATA AREPLACEFIELD             INIT NIL
   DATA BOF                       INIT .F.
   DATA EOF                       INIT .F.
   DATA GOBOTTOMBLOCK             INIT NIL
   DATA GOTOPBLOCK                INIT NIL
   DATA LDESCENDING               INIT .F.
   DATA LFORCEINPLACE             INIT .T.
   DATA LFIXEDBLOCKS              INIT .F.
   DATA LLOCKED                   INIT .F.
   DATA LNOSHOWEMPTYROW           INIT .F.
   DATA LOCK                      INIT .F.
   DATA LRECCOUNT                 INIT .F.
   DATA LREFRESHAFTERVALUE        INIT .F.
   DATA LSCROLLBARUSESCLIENTAREA  INIT .T.
   DATA LUPDCOLS                  INIT .F.
   DATA LVSCROLLVISIBLE           INIT .F.
   DATA NHELPID                   INIT 0
   DATA ONREFRESHROW              INIT NIL
   DATA OWORKAREA                 INIT NIL
   DATA REFRESHTYPE               INIT REFRESH_DEFAULT
   DATA SCROLLBUTTON              INIT NIL
   DATA SEARCHWRAP                INIT .F.
   DATA SKIPBLOCK                 INIT NIL
   DATA TYPE                      INIT "XBROWSE" READONLY
   DATA UWORKAREA                 INIT NIL
   DATA VSCROLL                   INIT NIL
   DATA VSCROLLCOPY               INIT NIL

   METHOD ADDCOLUMN
   METHOD ADDITEM                 BLOCK { || NIL }
   METHOD ADJUSTRIGHTSCROLL
   METHOD APPENDITEM
   METHOD COLUMNAUTOFIT
   METHOD COLUMNAUTOFITH
   METHOD COLUMNBLOCK
   METHOD COLUMNSAUTOFIT
   METHOD COLUMNSAUTOFITH
   METHOD COLUMNWIDTH
   METHOD CURRENTROW              SETGET
   METHOD DBSKIP
   METHOD DEFINE
   METHOD DEFINE3
   METHOD DEFINE4
   METHOD DELETE
   METHOD DELETEALLITEMS          
   METHOD DELETECOLUMN
   METHOD DOCHANGE                
   METHOD DOWN
   METHOD EDITALLCELLS
   METHOD EDITCELL
   METHOD EDITGRID
   METHOD EDITITEM
   METHOD EDITITEM_B
   METHOD ENABLED                 SETGET
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD FIXBLOCKS               SETGET
   METHOD FIXCONTROLS             SETGET
   METHOD GETCELLTYPE
   METHOD GOBOTTOM
   METHOD GOTOP
   METHOD HELPID                  SETGET
   METHOD INSERTITEM              BLOCK { || NIL }
   METHOD LEFT                    BLOCK { || NIL }
   METHOD MOVETO
   METHOD PAGEDOWN
   METHOD PAGEUP
   METHOD REFRESH
   METHOD REFRESHDATA
   METHOD REFRESHROW
   METHOD RIGHT                   BLOCK { || NIL }
   METHOD SETCOLUMN
   METHOD SETCONTROLVALUE         SETGET
   METHOD SETSCROLLPOS
   METHOD SIZEPOS
   METHOD SORTCOLUMN              BLOCK { || NIL }
   METHOD SORTITEMS               BLOCK { || NIL }
   METHOD TOEXCEL
   METHOD TOOLTIP                 SETGET
   METHOD TOOPENOFFICE
   METHOD TOPBOTTOM
   METHOD UP
   METHOD VALUE                   SETGET
   METHOD VISIBLE                 SETGET
   METHOD VSCROLLVISIBLE          SETGET
   METHOD WORKAREA                SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TXBROWSEBYCELL FROM TXBROWSE
   DATA TYPE                      INIT "XBROWSEBYCELL" READONLY

   METHOD ADDCOLUMN
   METHOD CURRENTCOL              SETGET
   METHOD DEFINE2
   METHOD DEFINE3
   METHOD DELETEALLITEMS          
   METHOD DELETECOLUMN
   METHOD DOWN
   METHOD EDITALLCELLS
   METHOD EDITCELL
   METHOD EDITGRID
   METHOD EVENTS
   METHOD EVENTS_NOTIFY
   METHOD GOBOTTOM
   METHOD GOTOP
   METHOD LEFT
   METHOD MOVETO
   METHOD REFRESH
   METHOD RIGHT
   METHOD SETCONTROLVALUE         SETGET
   METHOD SETSELECTEDCOLORS
   METHOD UP
   METHOD VALUE                   SETGET
ENDCLASS

*------------------------------------------------------------------------------*
CLASS TWINDOW
   DATA AACCELERATORKEYS          INIT {}
   DATA ABECOLORS                 INIT {{0,0,0},{0,0,0},{0,0,0},{0,0,0}}
   DATA ABICOLORS                 INIT {{0,0,0},{0,0,0},{0,0,0},{0,0,0}}
   DATA ACONTROLINFO              INIT { CHR( 0 ) }
   DATA ACONTROLS                 INIT {}
   DATA ACONTROLSNAMES            INIT {}
   DATA ACTIVE                    INIT .F.
   DATA ACTRLSTABINDXS            INIT {}
   DATA AHOTKEYS                  INIT {}
   DATA AKEYS                     INIT {}
   DATA APROPERTIES               INIT {}
   DATA BKEYDOWN                  INIT NIL
   DATA BLOCK                     INIT NIL
   DATA BOLD                      INIT .F.
   DATA CARGO                     INIT NIL
   DATA CFOCUSFONTNAME            INIT ""
   DATA CFONTNAME                 INIT ""
   DATA CLIENTADJUST              INIT 0
   DATA CLIENTHEIGHTUSED          INIT 0
   DATA COLMARGIN                 INIT 0
   DATA CONTAINER                 INIT NIL
   DATA CONTAINERHWNDVALUE        INIT NIL
   DATA CONTEXTMENU               INIT NIL
   DATA DEFBKCOLOREDIT            INIT NIL
   DATA DROPENABLED               INIT .F.              // .T. IF CONTROL ACCEPTS DROPS
   DATA FNTANGLE                  INIT 0
   DATA FNTWIDTH                  INIT 0
   DATA FOCUSBACKCOLOR
   DATA FOCUSBOLD                 INIT .F.
   DATA FOCUSCOLOR
   DATA FOCUSITALIC               INIT .F.
   DATA FOCUSSTRIKEOUT            INIT .F.
   DATA FOCUSUNDERLINE            INIT .F.
   DATA HASDRAGFOCUS              INIT .F.              // .T. when drag image is upon the control and the control is drop enabled
   DATA HDC
   DATA HDYNAMICVALUES            INIT NIL
   DATA HSCROLLBAR                INIT NIL
   DATA HWND                      INIT 0
   DATA ISADJUST                  INIT .F.
   DATA ITALIC                    INIT .F.
   DATA LADJUST                   INIT .T.
   DATA LCONTROLSASPROPERTIES     INIT .F.
   DATA LDESTROYED                INIT .F.
   DATA LENABLED                  INIT .T.
   DATA LFIXFONT                  INIT .F.
   DATA LFIXWIDTH                 INIT .F.
   DATA LFORM                     INIT .F.
   DATA LINTERNAL                 INIT .T.
   DATA LPROCMSGSONVISIBLE        INIT .T.
   DATA LRELEASING                INIT .F.
   DATA LRTL                      INIT .F.
   DATA LVISIBLE                  INIT .T.
   DATA LVISUALSTYLED             INIT NIL PROTECTED
   DATA NAME                      INIT ""
   DATA NANCHOR                   INIT NIL
   DATA NBORDERS                  INIT {0,0,0}
   DATA NCOL                      INIT 0
   DATA NDEFANCHOR                INIT 3
   DATA NESTEDCLICK               INIT .F.
   DATA NFIXEDHEIGHTUSED          INIT 0
   DATA NFOCUSFONTSIZE            INIT 0
   DATA NFONTSIZE                 INIT 0
   DATA NHEIGHT                   INIT 0
   DATA NOLDH                     INIT NIL
   DATA NOLDW                     INIT NIL
   DATA NPAINTCOUNT
   DATA NROW                      INIT 0
   DATA NWIDTH                    INIT 0
   DATA NWINDOWSTATE              INIT 0
   DATA ONCLICK                   INIT NIL
   DATA ONDBLCLICK                INIT NIL
   DATA ONDROP                    INIT {}
   DATA ONDROPFILES               INIT NIL
   DATA ONGOTFOCUS                INIT NIL
   DATA ONLOSTFOCUS               INIT NIL
   DATA ONMCLICK                  INIT NIL
   DATA ONMDBLCLICK               INIT NIL
   DATA ONMOUSEDRAG               INIT NIL
   DATA ONMOUSEDROP               INIT NIL
   DATA ONMOUSEMOVE               INIT NIL
   DATA ONRCLICK                  INIT NIL
   DATA ONRDBLCLICK               INIT NIL
   DATA OVERWNDPROC               INIT NIL
   DATA PARENT                    INIT NIL
   DATA ROWMARGIN                 INIT 0
   DATA STRIKEOUT                 INIT .F.
   DATA TYPE                      INIT ""
   DATA UNDERLINE                 INIT .F.
   DATA VARNAME                   INIT ""
   DATA VSCROLLBAR                INIT NIL
   DATA WNDPROC                   INIT NIL

   ERROR HANDLER Error
   
   METHOD ACCELERATORKEY
   METHOD ACCEPTFILES             SETGET
   METHOD ACTION                  SETGET
   METHOD ADDCONTROL
   METHOD ADJUST                  SETGET
   METHOD ADJUSTANCHOR
   METHOD ADJUSTRESIZE
   METHOD ANCHOR                  SETGET
   METHOD ARC
   METHOD BACKBITMAP              SETGET
   METHOD BACKCOLOR               SETGET
   METHOD BACKCOLORCODE           SETGET
   METHOD BACKCOLORSELECTED       SETGET
   METHOD BOX
   METHOD BRUSHHANDLE             SETGET
   METHOD CAPTION                 SETGET
   METHOD CHECKCLIENTSPOS
   METHOD CLICK
   METHOD CLIENTHEIGHT            SETGET
   METHOD CLIENTSPOS
   METHOD CLIENTSPOS2
   METHOD CLIENTWIDTH             SETGET
   METHOD CONTAINERENABLED
   METHOD CONTAINERRELEASING
   METHOD CONTAINERVISIBLE
   METHOD CONTROL
   METHOD DEBUGMESSAGENAME
   METHOD DEBUGMESSAGENAMECOMMAND
   METHOD DEBUGMESSAGENAMENOTIFY
   METHOD DEBUGMESSAGEQUERY
   METHOD DEBUGMESSAGEQUERYNOTIFY
   METHOD DEFWINDOWPROC
   METHOD DELETECONTROL
   METHOD DISABLE
   METHOD DYNAMICVALUES       
   METHOD ELLIPSE
   METHOD ENABLE
   METHOD ENABLED                 SETGET
   METHOD EVENTS
   METHOD EVENTS_COLOR
   METHOD EVENTS_ENTER
   METHOD EVENTS_HSCROLL
   METHOD EVENTS_SIZE
   METHOD EVENTS_VSCROLL
   METHOD FILL
   METHOD FONTCOLOR               SETGET
   METHOD FONTCOLORCODE           SETGET
   METHOD FONTCOLORSELECTED       SETGET
   METHOD FONTHANDLE              SETGET
   METHOD FORCEHIDE
   METHOD GETBITMAP
   METHOD GETDC
   METHOD GETMAXCHARSINWIDTH
   METHOD GETTEXTHEIGHT
   METHOD GETTEXTWIDTH
   METHOD HIDE
   METHOD HOTKEY
   METHOD IMAGELIST               SETGET
   METHOD ISVISUALSTYLED
   METHOD LINE
   METHOD LOOKFORKEY
   METHOD OBJECT
   METHOD PARENTDEFAULTS
   METHOD PIE
   METHOD PRERELEASE
   METHOD PRINT
   METHOD PROPERTY
   METHOD REDRAW
   METHOD REFRESHDATA
   METHOD RELEASE
   METHOD RELEASEATTACHED
   METHOD RELEASEDC
   METHOD ROUNDBOX
   METHOD RTL                     SETGET
   METHOD SAVEAS
   METHOD SAVEDATA
   METHOD SEARCHPARENT
   METHOD SETFOCUS
   METHOD SETHWND
   METHOD SETKEY
   METHOD SETREDRAW
   METHOD SETSPLITBOX
   METHOD SETSPLITBOXINFO
   METHOD SHOW
   METHOD STARTINFO
   METHOD STYLE                   SETGET
   METHOD TABSTOP                 SETGET
   METHOD VALUE
   METHOD VISIBLE                 SETGET
ENDCLASS

*------------------------------------------------------------------------------*
