caboutinfo
caboutnote
cagent
caskviewarg
caskviewargpgf
cbuttonimage
cintroform
clinklabel
cmapi
cmeter
cmeterdlg
cnavcont

Class: caboutinfo

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton

Properties Methods Objects

Properties

Name	Initial value
Caption	"Info ..."
ToolTipText	"Display the About() text"

Methods

caboutinfo.Click
LOCAL loform

loform = CREATEOBJECT("CAboutNote",THISFORM)

loform.SHOW()

Class: caboutnote

Class: cform in vfxobj.vcx
Baseclass: form

Properties Methods Objects

Properties

Name	Initial value
Caption	"Informations ..."
DoCreate	.T.

Methods

caboutnote.langsetup
**__VFX_WIZARD_HEADER - 04.10.98 00:59:38

thisForm.Caption = CAP_FRMINFORMATIONS
thisform.cmdclose.Caption = CAP_CMDCLOSE
thisform.clabel1.Caption = CAP_LBLFONTNAME
thisform.clabel2.Caption = CAP_LBLFONTSIZE
thisform.cmdgetfonr.Caption = CAP_CMD

return .T.
**__VFX_WIZARD_FOOTER
***********************************************************
caboutnote.Destroy
IF USED("info")
USE IN INFO
ENDIF
RETURN DODEFAULT()
caboutnote.Init
LPARAMETERS toobject

IF !(TYPE("toObject") = "O" AND !ISNULL(toobject) AND pemstatus(toobject,'About',5))
    RETURN .F.
ENDIF

lctextfile = SYS(3) + ".TXT"

DO WHILE FILE(lctextfile)
    lctextfile = SYS(3) + ".TXT"
ENDDO

SET TEXTMERGE ON NOSHOW
SET TEXTMERGE TO (lctextfile)

toobject.about()

SET TEXTMERGE TO
SET TEXTMERGE OFF

CREATE CURSOR INFO (text1 m, text2 m, text3 m)

SELECT INFO
APPEND BLANK
APPEND MEMO text1 FROM (lctextfile)

* strip off the initial CR/LF:

REPLACE text1 WITH ALLTRIM(INFO.text1) IN info

DO WHILE LEFT(INFO.text1,1) = CHR(13) OR LEFT(INFO.text1,1) = CHR(10)
    REPLACE text1 WITH RIGHT(INFO.text1,LEN(INFO.text1)-1) IN info
ENDDO

ERASE (lctextfile)

* further massage the text:
LOCAL xx, lnsetmemo, lcline, lccrlf

lccrlf = CHR(13) + CHR(10)
lnsetmemo = SET("MEMOWIDTH")

SET MEMOWIDTH TO 150

_MLINE = 0

LOCAL lladdcrlf, llallcrlfsection, llpreviouslineindented, lcholder, ;
    llpreviouslineholder, llholderflag, llnewparagraph

lcholder = CHR(127) + CHR(33)

FOR xx = 1 TO MEMLINES(INFO.text1)
    lcline = RTRIM(MLINE(INFO.text1,1,_MLINE))
    IF UPPER(ALLTRIM(lcline)) == "TEXT" OR UPPER(ALLTRIM(lcline)) = "ENDTEXT"
        LOOP
    ENDIF
    IF EMPTY(lcline)
        llallcrlfsection = .F.
    ENDIF

    IF "EXAMPLES" $ lcline
        llallcrlfsection = .T.
    ENDIF

    llholderflag = .F.

    DO CASE
    CASE "COPYRIGHT" $ UPPER(lcline)
        REPLACE text3 WITH INFO.text3 + lcline IN info

    CASE "AUTHOR:" $ UPPER(lcline)
        REPLACE text3 WITH INFO.text3 + lccrlf + lcline IN info

    CASE EMPTY(lcline)
        IF !EMPTY(INFO.text2)
            REPLACE text2 WITH INFO.text2 + lccrlf IN info
        ENDIF

        IF llpreviouslineholder
            llnewparagraph = .T.
        ENDIF

    OTHERWISE
        IF RIGHTC(lcline,1) = "."
            lcline = lcline + SPACE(2)
        ELSE
            lcline = lcline + SPACE(1)
        ENDIF

        * figure out if we need to preceed this line with a CRLF
        lladdcrlf = .F.
        DO CASE
        CASE llnewparagraph
            lladdcrlf = .T.
            llnewparagraph = .F.
        CASE EMPTY(LEFTC(lcline,1))
            lladdcrlf = .T.
        CASE ISDIGIT(LEFTC(lcline,1))
            lladdcrlf = .T.
        CASE INLIST(LEFTC(lcline,5),REPL("=",5),REPL("-",5))
            lladdcrlf = .T.
        CASE llallcrlfsection
            lladdcrlf = .T.
        CASE llpreviouslineindented AND !EMPTY(LEFTC(lcline,1))
            lladdcrlf = .T.
        OTHERWISE
            llholderflag = .T.
            lcline = lcline + lcholder
        ENDCASE
        IF lladdcrlf
            lcline = lccrlf + lcline
        ENDIF
        REPLACE INFO.text2 WITH INFO.text2 + lcline
        lcline = STRTRAN(lcline,lccrlf,SPACE(0))
        llpreviouslineindented = EMPTY(LEFTC(lcline,1))
    ENDCASE
    llpreviouslineholder = llholderflag
ENDFOR

SET MEMOWIDTH TO lnsetmemo

LOCAL lc2crlf, lnlength

lc2crlf = lccrlf + lccrlf

REPLACE text2 WITH STRTRAN(INFO.text2,lcholder,SPACE(0)) IN info
REPLACE text2 WITH INFO.text2 + lc2crlf + INFO.text3 IN info

IF EMPTY(INFO.text2)
    REPLACE text2 WITH "If there was any About() text in " + ;
        toobject.NAME + ", it would be here" IN info
ENDIF

THIS.edttext.CONTROLSOURCE = "INFO.Text2"
THIS.edttext.FORMAT = SPACE(0)

THIS.txtfontname.VALUE = PROPER(THIS.edttext.FONTNAME)
THIS.spnfontsize.VALUE = THIS.edttext.FONTSIZE

RETURN DODEFAULT()

Objects

Baseclass	Class	Object name
commandbutton	ccommandbutton	caboutnote.cmdClose
		caboutnote.cmdGetFonr
editbox	ceditbox	caboutnote.edtText
label	clabel	caboutnote.Clabel1
		caboutnote.Clabel2
spinner	cspinner	caboutnote.spnFontSize
textbox	ctextbox	caboutnote.txtFontName

caboutnote.cmdClose

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"\<Close"
TabIndex	7

Methods

caboutnote.cmdClose.Click
THISFORM.RELEASE()

caboutnote.cmdGetFonr

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"..."
TabIndex	4

Methods

caboutnote.cmdGetFonr.Click
LOCAL lcstyle, ;
    lcgetfont, ;
    lcfontname, ;
    lnfontsize, ;
    llfontbold, ;
    llfontitalic

WITH THISFORM.edttext
    lcstyle = IIF(.FONTBOLD,"B","")
    lcstyle = lcstyle + IIF(.FONTITALIC,"I","")

    IF EMPTY(lcstyle)
        lcstyle = "N"
    ENDIF

    DEFINE WINDOW changefont AT 0,0 SIZE 1,1 ;
        FONT (.FONTNAME),.FONTSIZE ;
        STYLE (lcstyle)

    ACTIVATE WINDOW changefont NOSHOW

    lcgetfont = GETFONT()

    RELEASE WINDOW changefont

    IF !EMPTY(lcgetfont)

        lcfontname  = LEFT(lcgetfont,AT(",",lcgetfont)-1)

        lcfontstyle  = SUBSTR(lcgetfont,AT(",",lcgetfont,2)+1)
        llfontbold   = "B" $ lcfontstyle
        llfontitalic = "I" $ lcfontstyle

        lnfontsize  = LEFT(lcgetfont,LEN(lcgetfont)-(LEN(lcfontstyle)+1))

        lnfontsize  = STRTRAN(lnfontsize,lcfontname+",","")

        lnfontsize  = INT(VAL(lnfontsize))

        IF .FONTNAME#lcfontname ;
                OR .FONTSIZE#lnfontsize ;
                OR .FONTBOLD#llfontbold ;
                OR .FONTITALIC#llfontitalic
            .FONTNAME   = lcfontname
            .FONTSIZE   = lnfontsize
            .FONTBOLD   = llfontbold
            .FONTITALIC = llfontitalic

            THISFORM.spnfontsize.VALUE = .FONTSIZE
            THISFORM.txtfontname.VALUE = .FONTNAME
        ENDIF
    ENDIF
ENDWITH

caboutnote.edtText

Class: ceditbox in vfxobj.vcx
Baseclass: editbox
Properties Methods Objects

Properties

Name	Initial value
DisabledBackColor	255,255,255
FontBold	.T.
FontSize	10
ReadOnly	.T.
TabIndex	1
lautosetup	.F.

caboutnote.Clabel1

Class: clabel in vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Caption	"Font Name"
TabIndex	2

caboutnote.Clabel2

Class: clabel in vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Caption	"Font Size"
TabIndex	5

caboutnote.spnFontSize

Class: cspinner in vfxobj.vcx
Baseclass: spinner
Properties Methods Objects

Properties

Name	Initial value
KeyboardHighValue	126
KeyboardLowValue	1
SpinnerHighValue	126.00
SpinnerLowValue	1.00
TabIndex	6
lautosetup	.F.

Methods

caboutnote.spnFontSize.InteractiveChange
IF BETWEEN(THIS.VALUE,THIS.SPINNERLOWVALUE,THIS.SPINNERHIGHVALUE)
THISFORM.edttext.FONTSIZE = THIS.VALUE
ENDIF

caboutnote.txtFontName

Class: ctextbox in vfxobj.vcx
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
Enabled	.F.
TabIndex	3
lautosetup	.F.

Class: cagent

Class: form
Baseclass: form

Properties Methods Objects

Properties

Name	Initial value
Caption	"VFX Agent Class"
DoCreate	.T.

Name Initial value Comment

ccharacter Peedy

loaded .f.

status .f.

Name	Initial value	Comment
ccharacter	Peedy
loaded	.f.
status	.f.

Methods

cagent.changestatus
IF THIS.loaded
    THIS.STATUS=!THIS.STATUS
    SET MARK OF BAR 3 OF HELP TO THIS.STATUS
    IF THIS.STATUS
        WITH THIS.agent
            .characters(THIS.ccharacter).TOP=_SCREEN.TOP+200
            .characters(THIS.ccharacter).LEFT=_SCREEN.LEFT+50
            .characters(THIS.ccharacter).SHOW
            .characters(THIS.ccharacter).PLAY("greet")
            .characters(THIS.ccharacter).speak(msg_hereiam)
            INKEY(4)
            .characters(THIS.ccharacter).HIDE
        ENDWITH
    ENDIF
ENDIF
cagent.welcome
LOCAL x
IF THIS.STATUS
    WITH THIS.agent
        .characters(THIS.ccharacter).TOP=_SCREEN.TOP+200
        .characters(THIS.ccharacter).LEFT=_SCREEN.LEFT+50
        .characters(THIS.ccharacter).SHOW()
        .characters(THIS.ccharacter).PLAY("greet")
        IF VARTYPE(gu_user_name)="C"
            x=ALLTRIM(m.gu_user_name)
            x=LEFT(m.x,AT(" ",m.x)-1)
        ELSE
            x=""
        ENDIF
        DO CASE
        CASE TIME()<"12"
            .characters(THIS.ccharacter).speak(msg_goodmorning+" "+m.x+"!")
        CASE TIME()<"18"
            .characters(THIS.ccharacter).speak(msg_hello+" "+m.x+"!")
        OTHERWISE
            .characters(THIS.ccharacter).speak(msg_goodevening+" "+m.x+"!")
        ENDCASE
        .characters(THIS.ccharacter).PLAY("greetreturn")
        .characters(THIS.ccharacter).HIDE
    ENDWITH
ENDIF
cagent.message - Displays a message in the status bar at the bottom of the screen.
LPARAMETERS toobject,tctext
LOCAL loparent
THIS.agent.characters(THIS.ccharacter).TOP=_SCREEN.TOP+toobject.TOP+toobject.HEIGHT+40
THIS.agent.characters(THIS.ccharacter).LEFT=_SCREEN.LEFT+toobject.LEFT+10
loparent=toobject
DO WHILE TYPE("loparent.parent.name")="C"
    loparent=loparent.PARENT
    IF TYPE("loparent.top")="N"
        THIS.agent.characters(THIS.ccharacter).TOP=THIS.agent.characters(THIS.ccharacter).TOP+loparent.TOP
        THIS.agent.characters(THIS.ccharacter).LEFT=THIS.agent.characters(THIS.ccharacter).LEFT+loparent.LEFT
    ENDIF
    IF LOWER(loparent.BASECLASS)=="page"
        IF loparent.PARENT.TABS=.T.
            THIS.agent.characters(THIS.ccharacter).TOP=THIS.agent.characters(THIS.ccharacter).TOP+loparent.FONTSIZE+25
        ENDIF
    ENDIF
ENDDO
RELEASE loparent
THIS.agent.characters(THIS.ccharacter).SHOW()
THIS.agent.characters(THIS.ccharacter).PLAY("gestureright")
THIS.agent.characters(THIS.ccharacter).speak(tctext)
THIS.agent.characters(THIS.ccharacter).HIDE()
cagent.wait
IF THIS.STATUS
    WITH THIS.agent
        .characters(THIS.ccharacter).TOP=_SCREEN.TOP+200
        .characters(THIS.ccharacter).LEFT=_SCREEN.LEFT+200
        .characters(THIS.ccharacter).SHOW()
        .characters(THIS.ccharacter).PLAY("processing")
    ENDWITH
    INKEY(2)
ELSE
    WAIT WINDOW msg_working NOWAIT
ENDIF
cagent.waitclear
WAIT CLEAR
IF THIS.STATUS
THIS.agent.characters(THIS.ccharacter).stop
THIS.agent.characters(THIS.ccharacter).HIDE
ENDIF
cagent.play
LPARAMETERS tcvalue
THIS.showagent()
LOCAL lconerror
lconerror=ON("ERROR")
ON ERROR *
THIS.agent.characters(THIS.ccharacter).PLAY(tcvalue)
ON ERROR &lconerror
cagent.showagent
LOCAL lconerror
lconerror=ON("ERROR")
ON ERROR *
THIS.agent.characters(THIS.ccharacter).SHOW()
ON ERROR &lconerror
cagent.hideagent
LOCAL lconerror
lconerror=ON("ERROR")
ON ERROR *
THIS.agent.characters(THIS.ccharacter).HIDE()
ON ERROR &lconerror
cagent.stop
THIS.agent.characters(THIS.ccharacter).stop()
cagent.setcharacter
LPARAMETERS tccharacter
LOCAL llerror,lcerror
IF EMPTY(tccharacter) OR !(UPPER(tccharacter) $ "PEEDY MERLIN ROBBY GENIE")
tccharacter="Merlin"
ENDIF
llerror=.F.
lcerror=ON("error")
ON ERROR llerror=.T.
THIS.agent.characters.LOAD(tccharacter,tccharacter+".acs")
ON ERROR &lcerror
THIS.ccharacter=tccharacter
RETURN llerror
cagent.speak
LPARAMETERS tctext
THIS.agent.characters(THIS.ccharacter).SHOW()
THIS.agent.characters(THIS.ccharacter).speak(tctext)
cagent.setposition
LPARAMETERS totop,toleft
THIS.agent.characters(THIS.ccharacter).TOP=totop
THIS.agent.characters(THIS.ccharacter).LEFT=toleft
cagent.Init
LPARAMETERS tccharacter
LOCAL lcerror,llerror
IF VARTYPE(THIS.agent)#"O"
    RETURN .F.
ENDIF
IF THIS.setcharacter(tccharacter)
    THIS.loaded=.F.
    THIS.STATUS=.F.
    RETURN .F.
ELSE
    THIS.loaded=.T.
    IF POPUP("help")
        IF TYPE("gu_agent")="L" AND gu_agent
            DEFINE BAR 3 OF HELP PROMPT cap_agenthelp
            ON SELECTION BAR 3 OF HELP goagent.changestatus()
            SET MARK OF BAR 3 OF HELP TO .T.
            THIS.STATUS=.T.
        ELSE
            SET MARK OF BAR 3 OF HELP TO .F.
            THIS.STATUS=.F.
        ENDIF
    ENDIF
ENDIF
RETURN .T.

Objects

Baseclass	Class	Object name
olecontrol	olecontrol	cagent.Agent

cagent.Agent

Class: olecontrol
Baseclass: olecontrol
Properties Methods Objects

Class: caskviewarg

Class: cmodalform in vfxform.vcx
Baseclass: form

Properties Methods Objects

Properties

Name	Initial value
Caption	"CAskViewArg"
DataSession	1
DoCreate	.T.

Name Initial value Comment

^asymboltable[1,0] .f.

nsymbolcount 0

omasterform .NULL.

Name	Initial value	Comment
^asymboltable[1,0]	.f.
nsymbolcount	0
omasterform	.NULL.

Methods

caskviewarg.clearfilter
IF VARTYPE(THISFORM.omasterform)="O"
    WITH THISFORM.omasterform
        IF !EMPTY(.cfilterexpr)
            lcfilterexpr = UPPER(.cfilterexpr)
        ELSE
            lcfilterexpr = ''
        ENDIF

        SELECT(.cworkalias)

        SET FILTER TO &lcfilterexpr

        .orecord.gotop()

        .CAPTION = STRTRAN(.CAPTION, " ["+msg_filter_on+"]", "")
        .lfilteron = .F.

        .refreshtoolbar(.T.)
        .DRAW()
    ENDWITH
ENDIF
caskviewarg.requery - Requeries the row source to which the ListBox or ComboBox control is bound.
IF VARTYPE(THISFORM.omasterform)="O"
    THISFORM.omasterform.REQUERY(.F.,.T.)

    IF RECCOUNT() = 0
        =MESSAGEBOX(msg_no_record_found,64,_SCREEN.CAPTION)
    ENDIF

    THISFORM.omasterform.DRAW()
ENDIF
caskviewarg.makesymbol
LOCAL locontrol, j, lncount

lncount = 0

FOR j = 1 TO THISFORM.CONTROLCOUNT

    locontrol = THISFORM.CONTROLS[j]

    IF pemstatus(locontrol,'cViewParameter',5)
        IF !EMPTY(locontrol.cviewparameter)
            LOCAL lcsymbol

            lncount = lncount + 1

            DIMENSION THISFORM.asymboltable[lnCount,3]

            locontrol.lautosetup = .F.

            lcsymbol = locontrol.cviewparameter

            PUBLIC (lcsymbol)

            THISFORM.nsymbolcount = lncount

            THISFORM.asymboltable[lnCount,1] = locontrol
            THISFORM.asymboltable[lnCount,2] = locontrol.cviewparameter

            *!* Enhanced to allow the use of cpickdate
            IF INLIST(LOWER(locontrol._vfxclassname),"cpickfield","cpickdate")

                IF LOWER(locontrol._vfxclassname) = "cpickdate"
                    lotextfield = locontrol.txtdate
                ELSE
                    lotextfield = locontrol.txtfield
                ENDIF

                loeffectivecontrol = lotextfield
            ELSE
                loeffectivecontrol = locontrol
            ENDIF

            THISFORM.asymboltable[lnCount,3] = TYPE(loeffectivecontrol.CONTROLSOURCE)

            &lcsymbol = EVAL(loeffectivecontrol.CONTROLSOURCE)
            IF LOWER(LEFT(loeffectivecontrol.CONTROLSOURCE, 9))  <> "thisform."
                ** don't overwrite when programmer used thisform.properties!
                loeffectivecontrol.CONTROLSOURCE = locontrol.cviewparameter
            ENDIF
        ENDIF
    ENDIF
NEXT
caskviewarg.clearsymbol
LOCAL j, lcsymbol

FOR j = 1 TO THISFORM.nsymbolcount
    THISFORM.asymboltable[j,1] = .NULL.

    lcsymbol = THISFORM.asymboltable[j,2]

    RELEASE (lcsymbol)
NEXT
caskviewarg.trimcontrols
LOCAL j, lcsymbol, locontrol

FOR j = 1 TO THISFORM.nsymbolcount
    IF THISFORM.asymboltable[j,3] == "C"

        locontrol = THISFORM.asymboltable[j,1]
        lcsymbol  = THISFORM.asymboltable[j,2]

        IF LOWER(locontrol._vfxclassname)="cpickfield"
            &lcsymbol. = ALLTRIM(locontrol.txtfield.VALUE)
        ELSE
            &lcsymbol. = ALLTRIM(locontrol.VALUE)
        ENDIF
    ENDIF
NEXT
caskviewarg.Activate
DODEFAULT()
THISFORM.REFRESH()
caskviewarg.Destroy
LOCAL lnlastkey
lnlastkey = LASTKEY()

IF lnlastkey = 27
    KEYBOARD "{MOUSE}" PLAIN CLEAR
    WAIT WINDOW SPACE(0)

    IF VARTYPE(THISFORM.omasterform)="O"
        THISFORM.omasterform.extrabuffer = "CANCEL"
    ENDIF
ENDIF

THIS.omasterform = .NULL.
THIS.clearsymbol()
RETURN DODEFAULT()
caskviewarg.Init
LPARAMETER tomasterform

THIS.omasterform = tomasterform

THISFORM.clearfilter()

THISFORM.makesymbol()

THIS.AUTOCENTER = .T.

RETURN DODEFAULT()

Objects

Baseclass	Class	Object name
commandbutton	ccommandbutton	caskviewarg.cmdApply
		caskviewarg.cmdCancel

caskviewarg.cmdApply

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.F.
Caption	"\<OK"
Comment	""
TabIndex	1

Methods

caskviewarg.cmdApply.Refresh
THIS.ENABLED = THISFORM.nsymbolcount > 0
caskviewarg.cmdApply.Click
WITH thisform
    IF .VALID()
        .trimcontrols()
        IF VARTYPE(.omasterform)="O"
            ** this quarantees that the form refreshes correctly
            .omasterform.noldrecno = 0

            .REQUERY()

            .omasterform.extrabuffer = "OK"
        ENDIF
        .RELEASE()
    ENDIF
ENDWITH

caskviewarg.cmdCancel

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"\<Cancel"
TabIndex	2

Methods

caskviewarg.cmdCancel.Click
IF VARTYPE(THISFORM.omasterform)="O"
THISFORM.omasterform.extrabuffer = "CANCEL"
ENDIF
THISFORM.RELEASE()

Class: caskviewargpgf

Class: cmodalform in vfxform.vcx
Baseclass: form

Properties Methods Objects

Properties

Name	Initial value
Caption	"CAskViewArgPgf"
DataSession	1
DoCreate	.T.

Name Initial value Comment

^agriddata[1,0] .f.

^asymboltable[1,0] .f.

cgridsource .f.

cviewname ("")

lsilentmode .f. Set to .t. to suppresses the message "no records forund" when no records exist after requery

nsymbolcount 0

omasterform .NULL.

Name	Initial value	Comment
^agriddata[1,0]	.f.
^asymboltable[1,0]	.f.
cgridsource	.f.
cviewname	("")
lsilentmode	.f.	Set to .t. to suppresses the message "no records forund" when no records exist after requery
nsymbolcount	0
omasterform	.NULL.

Methods

caskviewargpgf.clearfilter
IF VARTYPE(THISFORM.omasterform)="O"
    WITH THISFORM.omasterform
        IF !EMPTY(.cfilterexpr)
            lcfilterexpr = UPPER(.cfilterexpr)
        ELSE
            lcfilterexpr = ''
        ENDIF

        SET FILTER TO &lcfilterexpr

        .orecord.gotop()

        .CAPTION = STRTRAN(.CAPTION, " ["+msg_filter_on+"]", "")
        .lfilteron = .F.

        .refreshtoolbar(.T.)
        .DRAW()
    ENDWITH
ENDIF
caskviewargpgf.requery - Requeries the row source to which the ListBox or ComboBox control is bound.
IF VARTYPE(THISFORM.omasterform)="O"
    WITH THISFORM.omasterform
        .REQUERY(.F.,.T.)

        IF RECCOUNT(.cworkalias) = 0 AND !THISFORM.lsilentmode
            =MESSAGEBOX(msg_no_record_found,64,_SCREEN.CAPTION)
        ENDIF

        .DRAW()
    ENDWITH
ENDIF
caskviewargpgf.makesymbol
LPARAMETERS tocontainer

IF (TYPE("toContainer")!="O" AND !ISNULL(tocontainer))
    tocontainer = THISFORM
ENDIF

LOCAL locontrol, j, lncount, loeffectivecontrol

lncount = 0

FOR j = 1 TO tocontainer.CONTROLCOUNT

    locontrol = tocontainer.CONTROLS[j]

    IF pemstatus(locontrol,'cViewParameter',5)
        IF !EMPTY(locontrol.cviewparameter)
            LOCAL lcsymbol

            lncount = lncount + 1

            DIMENSION THISFORM.asymboltable[lnCount,3]

            locontrol.lautosetup = .F.

            lcsymbol = locontrol.cviewparameter

            PUBLIC (lcsymbol)

            THISFORM.nsymbolcount = lncount

            THISFORM.asymboltable[lnCount,1] = locontrol
            THISFORM.asymboltable[lnCount,2] = locontrol.cviewparameter

            IF INLIST(LOWER(locontrol._vfxclassname),"cpickfield","cpickdate")

                IF LOWER(locontrol._vfxclassname) = "cpickdate"
                    lotextfield = locontrol.txtdate
                ELSE
                    lotextfield = locontrol.txtfield
                ENDIF

                loeffectivecontrol = lotextfield
            ELSE
                loeffectivecontrol = locontrol
            ENDIF

            THISFORM.asymboltable[lnCount,3] = TYPE(loeffectivecontrol.CONTROLSOURCE)

            &lcsymbol = EVAL(loeffectivecontrol.CONTROLSOURCE)
            IF LOWER(LEFT(loeffectivecontrol.CONTROLSOURCE, 9))  <> "thisform."
                ** don't overwrite when programmer used thisform.properties!
                loeffectivecontrol.CONTROLSOURCE = locontrol.cviewparameter
            ENDIF
        ENDIF
    ENDIF
NEXT
caskviewargpgf.clearsymbol
LOCAL j, lcsymbol

FOR j = 1 TO THISFORM.nsymbolcount
    THISFORM.asymboltable[j,1] = .NULL.

    lcsymbol = THISFORM.asymboltable[j,2]

    RELEASE (lcsymbol)
NEXT
THISFORM.nsymbolcount=0
DIMENSION THISFORM.asymboltable[1,1]
THISFORM.asymboltable=.NULL.
caskviewargpgf.trimcontrols
LOCAL j, lcsymbol, locontrol

FOR j = 1 TO THISFORM.nsymbolcount

    locontrol = THISFORM.asymboltable[j,1]
    lcsymbol  = THISFORM.asymboltable[j,2]

    IF TYPE("loControl") <> "O"  .OR.  ISNULL("loControl")
        LOOP
    ENDIF
    IF TYPE("lcSymbol") <> "C"  .OR.  ISNULL("lcSymbol")
        LOOP
    ENDIF

    *-- rest ...
    IF INLIST(LOWER(locontrol._vfxclassname),"cpickfield","cpickdate")
        IF LOWER(locontrol._vfxclassname) = "cpickdate"
            lotextfield = locontrol.txtdate
        ELSE
            lotextfield = locontrol.txtfield
        ENDIF

        locontrol = lotextfield
        lotextfield = .NULL.
    ENDIF

    IF THISFORM.asymboltable[j,3] == "C"
        &lcsymbol = ALLTRIM(locontrol.VALUE)
    ELSE
        &lcsymbol = locontrol.VALUE
    ENDIF

    LOCAL lctag
    lctag = locontrol.TAG

    IF (!EMPTY(lctag))
        LOCAL lccommand
        lccommand = STRTRAN(lctag, "", lcsymbol)
        &lcsymbol = &lccommand
    ENDIF
    *--    endif
NEXT
caskviewargpgf.addviewname
LPARAMETERS tcviewdescr, tcviewname

INSERT INTO cboviews (DESCR, VIEW);
VALUES (tcviewdescr, tcviewname)
caskviewargpgf.findpagebycaption
LPARAMETERS tcpagecaption

LOCAL lnretval
lnretval = 0

tcpagecaption = UPPER(ALLTRIM(tcpagecaption))

WITH THISFORM.pgfpageframe
    LOCAL lnpage, lnpagecount

    lnpagecount = .PAGECOUNT

    FOR lnpage = 1 TO lnpagecount
        IF (UPPER(ALLTRIM(.PAGES[lnPage].CAPTION)) == tcpagecaption)
            lnretval = lnpage
        ENDIF
    NEXT
ENDWITH

RETURN lnretval
caskviewargpgf.hideargsbut
LPARAMETERS tnvisiblepage
* Hide (make not visible) all Pages on the Pageframe but the one
* specified in tnVisiblePage
THISFORM.pgfpageframe.ACTIVEPAGE = tnvisiblepage
caskviewargpgf.filltabcaptions
LOCAL lcalias, i, lnpagecnt
lcalias   = ALIAS()
lnpagecnt = 0
i         = 0

*-- check if the user several items for
*-- combo "cboViews" has defined
IF USED("cboviews")
    *-- yes
    SELECT cboviews
ELSE
    *-- no, nothing to do
    RETURN .F.
ENDIF

*-- define the captions for each tab
lnpagecnt = THIS.pgfpageframe.PAGECOUNT
i       = 1
SCAN
    IF i < lnpagecnt
        THIS.pgfpageframe.PAGES(i).CAPTION = cboviews.VIEW
    ENDIF
ENDSCAN

IF !EMPTY(lcalias) AND USED(lcalias)
    SELECT (lcalias)
ENDIF

RETURN .T.
caskviewargpgf.savegriddata
LOCAL logrid

logrid = THISFORM.getgrid()
IF (TYPE("loGrid")="O" AND !ISNULL(logrid))
    WITH logrid

        .savestatus()

        * save RecordSource
        THISFORM.cgridsource = .RECORDSOURCE

        * destroy RecordSource
        * preserves Columns
        .RECORDSOURCE = "xx"
    ENDWITH
ENDIF
caskviewargpgf.restoregriddata
LOCAL logrid
logrid = THISFORM.getgrid()

IF (TYPE("loGrid")="O" AND !ISNULL(logrid))
    WITH logrid
        * restore Record Source
        .RECORDSOURCE = THISFORM.cgridsource

        * set Control Sources of the Columns
        .restorestatus()
    ENDWITH
ENDIF
caskviewargpgf.getgrid
LOCAL loretval
loretval = .NULL.
IF VARTYPE(THISFORM.omasterform)="O"
    WITH THISFORM.omasterform
        LOCAL lopage
        DO CASE
        CASE LOWER(._vfxclassname) $ "cdataformpage,conetomany"

            * cDataFormPage
            IF TYPE(".npagelist")="N"
                lopage = .pgfpageframe.PAGES[.npagelist]
                WITH lopage
                    IF (TYPE(".grdGrid")="O" AND !ISNULL(.grdgrid))
                        loretval = .grdgrid
                    ENDIF
                ENDWITH
            ENDIF

        CASE LOWER(._vfxclassname) == "ctableform"
            loretval = .cntpanel.grdgrid
        ENDCASE
    ENDWITH
ENDIF
RETURN loretval
caskviewargpgf.setparmval
LPARAMETERS tcviewname, tcparmname, tuvalue

tcparmname = LOWER(ALLTRIM(tcparmname))

LOCAL lnpage
lnpage = THIS.findpagebycaption(tcviewname)
IF (lnpage > 0)
    *-- set active page
    THISFORM.pgfpageframe.ACTIVEPAGE = lnpage

    * set viewname to retrieve
    THISFORM.cviewname = tcviewname

    LOCAL lopage
    lopage = THISFORM.pgfpageframe.PAGES(lnpage)
    WITH lopage
        LOCAL lncontrol, locontrol
        FOR lncontrol = 1 TO .CONTROLCOUNT
            locontrol = .CONTROLS(lncontrol)
            IF pemstatus(locontrol,"cViewParameter",5)
                IF !EMPTY(NVL(locontrol.cviewparameter, ""))
                    IF LOWER(ALLTRIM(locontrol.cviewparameter)) = tcparmname
                        locontrol.VALUE = tuvalue
                    ENDIF
                ENDIF
            ENDIF
        NEXT
    ENDWITH
ELSE
    MESSAGEBOX("View "+tcviewname+" not found")
ENDIF
caskviewargpgf.run - Occurs when an Active Document is ready to execute your application code.
WITH THISFORM
    LOCAL lnpage
    lnpage = .findpagebycaption(THISFORM.cviewname)
    IF (lnpage > 0)
        .makesymbol(THISFORM.pgfpageframe.PAGES[lnPage])
        .cmdapply.CLICK()
    ENDIF
ENDWITH
caskviewargpgf.Destroy
LOCAL lnlastkey
lnlastkey = LASTKEY()

IF lnlastkey = 27
    KEYBOARD "{MOUSE}" PLAIN CLEAR
    WAIT WINDOW SPACE(0)

    IF VARTYPE(THISFORM.omasterform)="O"
        THISFORM.omasterform.extrabuffer = "CANCEL"
    ENDIF
ENDIF

SELECT(THIS.omasterform.cworkalias)
THIS.omasterform = .NULL.
THIS.clearsymbol()
DODEFAULT()
caskviewargpgf.Init
LPARAMETER tomasterform

THIS.omasterform = tomasterform
THISFORM.clearfilter()

THIS.AUTOCENTER = .T.

THISFORM.fillviewnames()

* set first as a default
THISFORM.cboviews.VALUE = THISFORM.cboviews.LIST[1,thisform.cboViews.BoundColumn]
THISFORM.cboviews.INTERACTIVECHANGE()

DODEFAULT()
caskviewargpgf.Load
CREATE CURSOR cboviews (DESCR c(150), VIEW c(20))

Objects

Baseclass	Class	Object name
combobox	ccombobox	caskviewargpgf.cboViews
commandbutton	ccommandbutton	caskviewargpgf.cmdApply
		caskviewargpgf.cmdCancel
label	clabel	caskviewargpgf.Clabel1
pageframe	cpageframe	caskviewargpgf.pgfPageFrame

caskviewargpgf.cboViews

Class: ccombobox in vfxobj.vcx
Baseclass: combobox
Properties Methods Objects

Properties

Name	Initial value
BoundColumn	2
ColumnCount	2
ColumnLines	.F.
ColumnWidths	"368,0"
RowSource	"cboviews"
RowSourceType	2
Style	2
lautosetup	.F.

Methods

caskviewargpgf.cboViews.Destroy
IF USED("cboviews")
USE IN cboviews
ENDIF
caskviewargpgf.cboViews.InteractiveChange
LOCAL lnpage
WITH THISFORM
    lnpage = .findpagebycaption(THIS.VALUE)
    IF (lnpage > 0)
        .hideargsbut(lnpage)
        .clearsymbol()
        .makesymbol(.pgfpageframe.PAGES[lnPage])
        .REFRESH()
        .cviewname = ALLTRIM(THIS.VALUE)
    ENDIF
ENDWITH

caskviewargpgf.cmdApply

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.F.
Caption	"\<OK"
Comment	""
Default	.T.
TabIndex	4

Methods

caskviewargpgf.cmdApply.Click
IF VARTYPE(THISFORM.omasterform)="O" AND THISFORM.VALID()
    LOCAL lnoldpointer
    lnoldpointer = THISFORM.MOUSEPOINTER
    THISFORM.MOUSEPOINTER = mouse_hourglass

    THISFORM.trimcontrols()

    THISFORM.savegriddata()

    SELECT (THISFORM.omasterform.cworkalias)

    LOCAL lckey, lcfilter , lcidx, lldescending
    lckey            = KEY()
    lcfilter        = FILTER()
    lcidx            = ORDER()
    lldescending    = DESCENDING()

    USE (THISFORM.cviewname) IN (THISFORM.omasterform.cworkalias) ALIAS (THISFORM.omasterform.cworkalias) NODATA

    IF !EMPTY(lckey)
        IF EMPTY(lcfilter)
            INDEX ON &lckey TO (lcidx) ADDITIVE
        ELSE
            INDEX ON &lckey TO (lcidx) FOR &lcfilter ADDITIVE
        ENDIF
        IF lldescending
            SET ORDER TO TAG (lcidx) DESCENDING
        ENDIF
    ENDIF

    THISFORM.restoregriddata()

    ** this quarantees that the form refreshes correctly
    THISFORM.omasterform.noldrecno = 0

    THISFORM.omasterform.extrabuffer = "OK"

    THISFORM.MOUSEPOINTER = lnoldpointer

    * set caption according to Expressiont defined
    * in Page.Comment
    LOCAL lnpage, lopage
    *--    lnPage = thisform.findPageByCaption(thisform.cViewName)
    lnpage = THISFORM.pgfpageframe.ACTIVEPAGE
    IF (lnpage > 0)
        lopage = THISFORM.pgfpageframe.PAGES(lnpage)
        WITH lopage
            LOCAL lccaption, lccaptionexpr
            lccaption = ""
            lccaptionexpr = .COMMENT
            IF !EMPTY(lccaptionexpr)
                lccaption = EVALUATE(lccaptionexpr)
            ENDIF

            IF (!EMPTY(lccaption))
                THISFORM.omasterform.CAPTION = lccaption
            ENDIF
        ENDWITH

        THISFORM.REQUERY()

    ELSE
        MESSAGEBOX("Page '"+THISFORM.cviewname+"' was not found", 0, "ProgErr")
    ENDIF

    IF RECCOUNT(THISFORM.omasterform.cworkalias) = 0
        THISFORM.omasterform.extrabuffer="CANCEL"
    ENDIF

    THISFORM.RELEASE()
ENDIF
caskviewargpgf.cmdApply.Refresh
THIS.ENABLED = THISFORM.nsymbolcount > 0

caskviewargpgf.cmdCancel

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"\<Cancel"
TabIndex	5

Methods

caskviewargpgf.cmdCancel.Click
IF VARTYPE(THISFORM.omasterform)="O"
THISFORM.omasterform.extrabuffer = "CANCEL"
ENDIF
THISFORM.RELEASE()

caskviewargpgf.Clabel1

Class: clabel in vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Caption	"Search by:"
TabIndex	1

caskviewargpgf.pgfPageFrame

Class: cpageframe in vfxobj.vcx
Baseclass: pageframe
Properties Methods Objects

Properties

Name	Initial value
ErasePage	.T.
TabIndex	3
Tabs	.F.
lautosetup	.F.

Methods

caskviewargpgf.pgfPageFrame.Init
* Tabs are not visible
THIS.TABS = .F.

* hide all Pages
THISFORM.hideargsbut(0)

Objects

Baseclass	Class	Object name
zzz	zzz	caskviewargpgf.pgfPageFrame.Page1

caskviewargpgf.pgfPageFrame.Page1

Class: zzz
Baseclass: zzz
Properties Methods Objects

Class: cbuttonimage

Class: container
Baseclass: container

Properties Methods Objects

Properties

Name	Initial value
BackStyle	0
BorderColor	192,192,192
BorderWidth	0
SpecialEffect	0

Name Initial value Comment

cbuttondown .f.

cbuttonfocus .f.

cbuttonup .f.

l3state .f.

nbuttonstatus 0

Name	Initial value	Comment
cbuttondown	.f.
cbuttonfocus	.f.
cbuttonup	.f.
l3state	.f.
nbuttonstatus	0

Methods

cbuttonimage.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord
THIS.oninteractivechange()

Objects

Baseclass	Class	Object name
image	image	cbuttonimage.oImage
label	label	cbuttonimage.oLabel

cbuttonimage.oImage

Class: image
Baseclass: image
Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\about.bmp
Stretch	2

Methods

cbuttonimage.oImage.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord
THIS.PARENT.MOUSEMOVE()
cbuttonimage.oImage.Click
THIS.PARENT.CLICK()

cbuttonimage.oLabel

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Button Text"

Class: cintroform

Class: cmodalform in vfxform.vcx
Baseclass: form

Properties Methods Objects

Properties

Name	Initial value
Caption	"Introductory Form"
DoCreate	.T.
WindowState	0

Methods

cintroform.Unload
RETURN THISFORM.extrabuffer

Objects

Baseclass	Class	Object name
checkbox	ccheckbox	cintroform.chkShowIntro
commandbutton	ccommandbutton	cintroform.cmdContinue
		cintroform.cmdExit
label	clabel	cintroform.Clabel1
		cintroform.Clabel2
		cintroform.lblWelcome

cintroform.chkShowIntro

Class: ccheckbox in vfxobj.vcx
Baseclass: checkbox
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
Caption	"\<Show This Form at Startup"
TabIndex	4
lautosetup	.F.

cintroform.cmdContinue

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"\<Continue"
TabIndex	5

Methods

cintroform.cmdContinue.Click
THISFORM.extrabuffer = .T.
THISFORM.RELEASE()

cintroform.cmdExit

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"\<Exit"
TabIndex	6

Methods

cintroform.cmdExit.Click
THISFORM.extrabuffer = .F.
THISFORM.RELEASE()

cintroform.Clabel1

Class: clabel in vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Caption	"This application demonstrates a broad sample of features and development techniques of Visual FoxPro in a discoverable environment."
TabIndex	2
WordWrap	.T.

cintroform.Clabel2

Class: clabel in vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Caption	"The goal of the sample is to provide a single integrated business application designed around realistic business scenarios to illustrate many of the new features and capabilities of application development in Visual FoxPro."
TabIndex	3
WordWrap	.T.

cintroform.lblWelcome

Class: clabel in vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Caption	"Welcome to Visual Extend 7.0"
FontBold	.T.
FontSize	18
TabIndex	1

Class: clinklabel

Class: clabel in vfxobj.vcx
Baseclass: label

Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
Caption	"Linklabel"
FontUnderline	.T.
ForeColor	0,0,255
MouseIcon	..\bitmap\h_point.cur
MousePointer	99

Methods

clinklabel.Click
goprogram.runform("vfxopen")

Class: cmapi

Class: custom
Baseclass: custom

Properties Methods Objects

Name Initial value Comment

omapi

Name	Initial value	Comment
omapi

Methods

cmapi.openmapisession
LPARAMETERS tlforcenewinstance, tlvisible
LOCAL llretval
llretval = .F.

WAIT WINDOW MSG_OPENEXCHANGE NOWAIT

LOCAL lcerror, llgetobjectfailed
lcerror = ON("ERROR")
ON ERROR llgetobjectfailed = .T.

IF !tlforcenewinstance

    * An error occurs if outlook is currently not running.
    llgetobjectfailed = .F.
    THIS.omapi = GETOBJECT("mapi.session")

ENDIF

IF llgetobjectfailed OR tlforcenewinstance

    * An error occurs if outlook is not installed on this machine.
    llgetobjectfailed = .F.
    THIS.omapi = CREATEOBJECT("mapi.session")

ENDIF

ON ERROR &lcerror

WAIT CLEAR

IF TYPE("this.oMapi")#"O" OR ISNULL(THIS.omapi)
    =MESSAGEBOX(MSG_OPENEXCHANGEFAILED, 16, _SCREEN.CAPTION)
    llretval = .F.
ENDIF

RETURN llretval
cmapi.sessionlogon
LPARAMETERS tcuser

THIS.omapi.logon(tcuser)
cmapi.addmessage
LPARAMETERS tcsubject, tctext, tcattachments

LOCAL lomessage

lomessage = THIS.omapi.outbox.MESSAGES.ADD()

lomessage.subject        = tcsubject
lomessage.TEXT            = tctext
lomessage.importance    = 1

IF !EMPTY(tcattachments)
    THIS.addattachments(lomessage, tcattachments)
ENDIF

RETURN (lomessage)
cmapi.addrecipient
LPARAMETERS tomessage, tcname, tntype

LOCAL lorecipient

lorecipient            = tomessage.recipients.ADD
lorecipient.NAME    = tcname
lorecipient.TYPE    = tntype
cmapi.resolverecipients
LPARAMETERS tomessage

LOCAL lni

FOR lni = 1 TO tomessage.recipients.COUNT
tomessage.recipients(lni).resolve(.F.)
NEXT lni
cmapi.addattachments
LPARAMETERS tomessage, tcfile

LOCAL loattachment

loattachment    = tomessage.attachments.ADD

WITH loattachment
    .NAME            = tcfile
    .SOURCE            = FULLPATH(tcfile)
ENDWITH
cmapi.sendmessage
LPARAMETERS tomessage

tomessage.SEND(.T.)

Class: cmeter

Class: container
Baseclass: container

Properties Methods Objects

Name Initial value Comment

nmax 1

nstarttime 0

Name	Initial value	Comment
nmax	1
nstarttime	0

Methods

cmeter.setvalue
LPARAMETERS tnvalue

WITH this
    * width left
    .lblmeter.WIDTH = tnvalue / .nmax * (.WIDTH-2)
    .lblrest.LEFT = .lblmeter.LEFT + .lblmeter.WIDTH
    .lblrest.WIDTH = .WIDTH-2-.lblmeter.WIDTH

    *captions
    .lblmeter.CAPTION = STR(100 / .nmax * tnvalue,6,2)+"%"

    LOCAL lntime, lnremaining, lcremaining
    lcremaining = "stopped"

    IF (tnvalue = 0)
        .nstarttime = SECONDS()
    ELSE
        lntime = SECONDS()
        LOCAL lnhrs, lnmin, lnsec, lnremainingtime
        IF .nmax=tnvalue
            lnremainingtime = 0
        ELSE
            lnremainingtime = ((lntime - .nstarttime) / tnvalue) * (.nmax - tnvalue)
        ENDIF
        lnhrs = INT(lnremainingtime / 3600)
        lnremainingtime = lnremainingtime - lnhrs * 3600
        lnmin = INT(lnremainingtime / 60)
        lnremainingtime = lnremainingtime - lnmin * 60
        lnsec = INT(lnremainingtime)

        lcremaining = IIF(lnhrs>0, ALLTRIM(STR(lnhrs)) + "h","") +;
            IIF(lnmin>0, ALLTRIM(STR(lnmin)) + "m","") +;
            IIF(lnsec>0, ALLTRIM(STR(lnsec)) + "s","")
    ENDIF

    .lblrest.CAPTION = lcremaining
ENDWITH
cmeter.setmaxvalue
LPARAMETERS tnmax
THIS.nmax = tnmax
cmeter.reset - Resets the Timer control so that it starts counting from 0.
THIS.nmax = 1
THIS.setvalue(0)
cmeter.Init
THIS.RESET()

Objects

Baseclass	Class	Object name
label	label	cmeter.lblMeter
		cmeter.lblRest

cmeter.lblMeter

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	2
BackColor	0,0,255
Caption	"x Min"
FontBold	.T.
ForeColor	255,255,255

cmeter.lblRest

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	2
BackColor	0,255,255
Caption	"x Min"
FontBold	.T.

Class: cmeterdlg

Class: form
Baseclass: form

Properties Methods Objects

Properties

Name	Initial value
AutoCenter	.T.
BorderStyle	0
Caption	""
Closable	.F.
ControlBox	.F.
DoCreate	.T.
MaxButton	.F.
MinButton	.F.

Name Initial value Comment

lautoreleaseoncomplete .T. Defines whether this form class should be released automatically on completion

Name	Initial value	Comment
lautoreleaseoncomplete	.T.	Defines whether this form class should be released automatically on completion

Objects

Baseclass	Class	Object name
container	cmeter	cmeterdlg.cntMeter

cmeterdlg.cntMeter

Class: cmeter in vfxtools.vcx
Baseclass: container
Properties Methods Objects

Methods

cmeterdlg.cntMeter.setvalue
LPARAMETERS tnvalue

WITH this
    * width left
    .lblmeter.WIDTH = tnvalue / .nmax * (.WIDTH-2)
    .lblrest.LEFT = .lblmeter.LEFT + .lblmeter.WIDTH
    .lblrest.WIDTH = .WIDTH-2-.lblmeter.WIDTH

    *captions
    .lblmeter.CAPTION = STR(100 / .nmax * tnvalue,6,2)+"%"

    LOCAL lntime, lnremaining, lcremaining
    lcremaining = ""

    IF (tnvalue = 0)
        .nstarttime = VAL(SYS(2))
    ELSE
        lntime = VAL(SYS(2))

        LOCAL lnhrs, lnmin, lnsec, lnremainingtime
        lnremainingtime = (lntime - .nstarttime) / tnvalue * (.nmax - tnvalue)

        lnhrs = INT(lnremainingtime / 3600)
        lnremainingtime = lnremainingtime - lnhrs * 3600
        lnmin = INT(lnremainingtime / 60)
        lnremainingtime = lnremainingtime - lnmin * 60
        lnsec = INT(lnremainingtime)

        lcremaining = IIF(lnhrs>0, ALLTRIM(STR(lnhrs)) + "h","") +;
            IIF(lnmin>0, ALLTRIM(STR(lnmin)) + "m","") +;
            IIF(lnsec>0, ALLTRIM(STR(lnsec)) + "s","")
    ENDIF

    .lblrest.CAPTION = lcremaining

    * Extension to close Window when completed
    IF THISFORM.lautoreleaseoncomplete
        IF (tnvalue = .nmax)
            THISFORM.RELEASE
        ENDIF
    ENDIF
ENDWITH

Objects

Baseclass	Class	Object name
zzz	zzz	cmeterdlg.cntMeter.lblMeter
		cmeterdlg.cntMeter.lblRest

cmeterdlg.cntMeter.lblMeter

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmeterdlg.cntMeter.lblRest

Class: zzz
Baseclass: zzz
Properties Methods Objects

Class: cnavcont

Class: container
Baseclass: container

Properties Methods Objects

Properties

Name	Initial value
BackStyle	0
BorderWidth	0

Methods

cnavcont.centerme
THIS.TOP = (_SCREEN.HEIGHT - THIS.HEIGHT) / 2
THIS.LEFT = (_SCREEN.WIDTH - THIS.WIDTH) / 2
THIS.oneventhook("CenterMe",THIS)
cnavcont.onrefresh
THIS.cbuttonimage1.BORDERWIDTH=0
THIS.cbuttonimage2.BORDERWIDTH=0
THIS.cbuttonimage3.BORDERWIDTH=0
THIS.cbuttonimage4.BORDERWIDTH=0
THIS.cbuttonimage5.BORDERWIDTH=0
THIS.cbuttonimage6.BORDERWIDTH=0
cnavcont.oneventhook
LPARAMETERS tcevent, toobject
RETURN eventhookhandler(tcevent,toobject)
cnavcont.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord

THIS.centerme()

THIS.cbuttonimage1.REFRESH()
THIS.cbuttonimage2.REFRESH()
THIS.cbuttonimage3.REFRESH()
THIS.cbuttonimage4.REFRESH()
THIS.cbuttonimage5.REFRESH()
THIS.cbuttonimage6.REFRESH()
cnavcont.Init
WITH THIS
    .BACKCOLOR = _SCREEN.BACKCOLOR
    .pageframe1.SETALL("backcolor", _SCREEN.BACKCOLOR)
    .cbuttonimage1.MOUSEMOVE()
    .centerme()
    .pageframe1.SETALL("backcolor",EVAL("rgb("+SUBSTR(RGBSCHEME(1,10),AT(",",RGBSCHEME(1,10),3)+1)))
ENDWITH

Objects

Baseclass	Class	Object name
container	cbuttonimage	cnavcont.Cbuttonimage1
		cnavcont.Cbuttonimage2
		cnavcont.Cbuttonimage3
		cnavcont.Cbuttonimage4
		cnavcont.Cbuttonimage5
		cnavcont.Cbuttonimage6
pageframe	pageframe	cnavcont.Pageframe1

cnavcont.Cbuttonimage1

Class: cbuttonimage in vfxtools.vcx
Baseclass: container
Properties Methods Objects

Properties

Name	Initial value
BorderWidth	2
ZOrderSet	1
l3state	.F.

Methods

cnavcont.Cbuttonimage1.oninteractivechange
IF THIS.PARENT.pageframe1.ACTIVEPAGE <> 1
    THIS.PARENT.pageframe1.ACTIVEPAGE = 1
    THIS.PARENT.onrefresh()
    THIS.BORDERWIDTH=4
ENDIF

Objects

Baseclass	Class	Object name
zzz	zzz	cnavcont.Cbuttonimage1.oImage
		cnavcont.Cbuttonimage1.oLabel

cnavcont.Cbuttonimage1.oImage

Class: zzz
Baseclass: zzz
Properties Methods Objects

cnavcont.Cbuttonimage1.oLabel

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	12

cnavcont.Cbuttonimage2

Class: cbuttonimage in vfxtools.vcx
Baseclass: container
Properties Methods Objects

Properties

Name	Initial value
ZOrderSet	2
l3state	.F.

Methods

cnavcont.Cbuttonimage2.oninteractivechange
IF THIS.PARENT.pageframe1.ACTIVEPAGE <> 2
    THIS.PARENT.pageframe1.ACTIVEPAGE = 2
    THIS.PARENT.onrefresh()
    THIS.BORDERWIDTH=4
ENDIF

Objects

Baseclass	Class	Object name
zzz	zzz	cnavcont.Cbuttonimage2.oImage
		cnavcont.Cbuttonimage2.oLabel

cnavcont.Cbuttonimage2.oImage

Class: zzz
Baseclass: zzz
Properties Methods Objects

cnavcont.Cbuttonimage2.oLabel

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	12

cnavcont.Cbuttonimage3

Class: cbuttonimage in vfxtools.vcx
Baseclass: container
Properties Methods Objects

Properties

Name	Initial value
ZOrderSet	3
l3state	.F.

Methods

cnavcont.Cbuttonimage3.oninteractivechange
IF THIS.PARENT.pageframe1.ACTIVEPAGE <> 3
    THIS.PARENT.pageframe1.ACTIVEPAGE = 3
    THIS.PARENT.onrefresh()
    THIS.BORDERWIDTH=4
ENDIF

Objects

Baseclass	Class	Object name
zzz	zzz	cnavcont.Cbuttonimage3.oImage
		cnavcont.Cbuttonimage3.oLabel

cnavcont.Cbuttonimage3.oImage

Class: zzz
Baseclass: zzz
Properties Methods Objects

cnavcont.Cbuttonimage3.oLabel

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	12

cnavcont.Cbuttonimage4

Class: cbuttonimage in vfxtools.vcx
Baseclass: container
Properties Methods Objects

Properties

Name	Initial value
ZOrderSet	4
l3state	.F.

Methods

cnavcont.Cbuttonimage4.oninteractivechange
IF THIS.PARENT.pageframe1.ACTIVEPAGE <> 4
    THIS.PARENT.pageframe1.ACTIVEPAGE = 4
    THIS.PARENT.onrefresh()
    THIS.BORDERWIDTH=4
ENDIF

Objects

Baseclass	Class	Object name
zzz	zzz	cnavcont.Cbuttonimage4.oImage
		cnavcont.Cbuttonimage4.oLabel

cnavcont.Cbuttonimage4.oImage

Class: zzz
Baseclass: zzz
Properties Methods Objects

cnavcont.Cbuttonimage4.oLabel

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	12

cnavcont.Cbuttonimage5

Class: cbuttonimage in vfxtools.vcx
Baseclass: container
Properties Methods Objects

Properties

Name	Initial value
ZOrderSet	5
l3state	.F.

Methods

cnavcont.Cbuttonimage5.oninteractivechange
IF THIS.PARENT.pageframe1.ACTIVEPAGE <> 5
    THIS.PARENT.pageframe1.ACTIVEPAGE = 5
    THIS.PARENT.onrefresh()
    THIS.BORDERWIDTH=4
ENDIF

Objects

Baseclass	Class	Object name
zzz	zzz	cnavcont.Cbuttonimage5.oImage
		cnavcont.Cbuttonimage5.oLabel

cnavcont.Cbuttonimage5.oImage

Class: zzz
Baseclass: zzz
Properties Methods Objects

cnavcont.Cbuttonimage5.oLabel

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	12

cnavcont.Cbuttonimage6

Class: cbuttonimage in vfxtools.vcx
Baseclass: container
Properties Methods Objects

Properties

Name	Initial value
ZOrderSet	5
l3state	.F.

Methods

cnavcont.Cbuttonimage6.oninteractivechange
IF THIS.PARENT.pageframe1.ACTIVEPAGE <> 6
    THIS.PARENT.pageframe1.ACTIVEPAGE = 6
    THIS.PARENT.onrefresh()
    THIS.BORDERWIDTH=4
ENDIF

Objects

Baseclass	Class	Object name
zzz	zzz	cnavcont.Cbuttonimage6.oImage
		cnavcont.Cbuttonimage6.oLabel

cnavcont.Cbuttonimage6.oImage

Class: zzz
Baseclass: zzz
Properties Methods Objects

cnavcont.Cbuttonimage6.oLabel

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	12

cnavcont.Pageframe1

Class: pageframe
Baseclass: pageframe
Properties Methods Objects

Properties

Name	Initial value
BorderColor	0,0,0
BorderWidth	0
ErasePage	.T.
PageCount	6
SpecialEffect	2
TabStyle	0
ZOrderSet	0

Methods

cnavcont.Pageframe1.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord
THIS.PARENT.centerme()
cnavcont.Pageframe1.Init
THIS.TABS = .F.

Objects

Baseclass	Class	Object name
zzz	zzz	cnavcont.Pageframe1.Page1
		cnavcont.Pageframe1.Page2
		cnavcont.Pageframe1.Page3
		cnavcont.Pageframe1.Page4
		cnavcont.Pageframe1.Page5
		cnavcont.Pageframe1.Page6

cnavcont.Pageframe1.Page1

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	14

Methods

cnavcont.Pageframe1.Page1.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord

WITH THIS.PARENT.PARENT
    .cbuttonimage1.REFRESH()
    .cbuttonimage2.REFRESH()
    .cbuttonimage3.REFRESH()
    .cbuttonimage4.REFRESH()
    .cbuttonimage5.REFRESH()
    .cbuttonimage6.REFRESH()
    .centerme()
ENDWITH
cnavcont.Pageframe1.Page1.Click
THIS.PARENT.PARENT.cbuttonimage1.CLICK()

Objects

Baseclass	Class	Object name
label	label	cnavcont.Pageframe1.Page1.Label1
		cnavcont.Pageframe1.Page1.Label2

cnavcont.Pageframe1.Page1.Label1

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Page 1"
FontSize	14
TabIndex	1

Methods

cnavcont.Pageframe1.Page1.Label1.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage1.CLICK()

cnavcont.Pageframe1.Page1.Label2

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Example"
TabIndex	2
WordWrap	.T.

Methods

cnavcont.Pageframe1.Page1.Label2.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage1.CLICK()

cnavcont.Pageframe1.Page2

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	14

Methods

cnavcont.Pageframe1.Page2.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord

WITH THIS.PARENT.PARENT
    .cbuttonimage1.REFRESH()
    .cbuttonimage2.REFRESH()
    .cbuttonimage3.REFRESH()
    .cbuttonimage4.REFRESH()
    .cbuttonimage5.REFRESH()
    .cbuttonimage6.REFRESH()
    .centerme()
ENDWITH
cnavcont.Pageframe1.Page2.Click
THIS.PARENT.PARENT.cbuttonimage2.CLICK()

Objects

Baseclass	Class	Object name
label	label	cnavcont.Pageframe1.Page2.Label1
		cnavcont.Pageframe1.Page2.Label2

cnavcont.Pageframe1.Page2.Label1

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Page 2"
FontSize	14
TabIndex	1

Methods

cnavcont.Pageframe1.Page2.Label1.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage2.CLICK()

cnavcont.Pageframe1.Page2.Label2

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Example"
TabIndex	2
WordWrap	.T.

Methods

cnavcont.Pageframe1.Page2.Label2.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage1.CLICK()

cnavcont.Pageframe1.Page3

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	14

Methods

cnavcont.Pageframe1.Page3.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord

WITH THIS.PARENT.PARENT
    .cbuttonimage1.REFRESH()
    .cbuttonimage2.REFRESH()
    .cbuttonimage3.REFRESH()
    .cbuttonimage4.REFRESH()
    .cbuttonimage5.REFRESH()
    .cbuttonimage6.REFRESH()
    .centerme()
ENDWITH
cnavcont.Pageframe1.Page3.Click
THIS.PARENT.PARENT.cbuttonimage3.CLICK()

Objects

Baseclass	Class	Object name
label	label	cnavcont.Pageframe1.Page3.Label1
		cnavcont.Pageframe1.Page3.Label2

cnavcont.Pageframe1.Page3.Label1

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Page 3"
FontSize	14
TabIndex	1

Methods

cnavcont.Pageframe1.Page3.Label1.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage3.CLICK()

cnavcont.Pageframe1.Page3.Label2

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Example"
TabIndex	2
WordWrap	.T.

Methods

cnavcont.Pageframe1.Page3.Label2.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage1.CLICK()

cnavcont.Pageframe1.Page4

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	14

Methods

cnavcont.Pageframe1.Page4.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord

WITH THIS.PARENT.PARENT
    .cbuttonimage1.REFRESH()
    .cbuttonimage2.REFRESH()
    .cbuttonimage3.REFRESH()
    .cbuttonimage4.REFRESH()
    .cbuttonimage5.REFRESH()
    .cbuttonimage6.REFRESH()
    .centerme()
ENDWITH
cnavcont.Pageframe1.Page4.Click
THIS.PARENT.PARENT.cbuttonimage4.CLICK()

Objects

Baseclass	Class	Object name
label	label	cnavcont.Pageframe1.Page4.Label1
		cnavcont.Pageframe1.Page4.Label2

cnavcont.Pageframe1.Page4.Label1

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Page 4"
FontSize	14
TabIndex	1

Methods

cnavcont.Pageframe1.Page4.Label1.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage4.CLICK()

cnavcont.Pageframe1.Page4.Label2

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Example"
TabIndex	2
WordWrap	.T.

Methods

cnavcont.Pageframe1.Page4.Label2.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage1.CLICK()

cnavcont.Pageframe1.Page5

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""
FontSize	14

Methods

cnavcont.Pageframe1.Page5.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord

WITH THIS.PARENT.PARENT
    .cbuttonimage1.REFRESH()
    .cbuttonimage2.REFRESH()
    .cbuttonimage3.REFRESH()
    .cbuttonimage4.REFRESH()
    .cbuttonimage5.REFRESH()
    .cbuttonimage6.REFRESH()
    .centerme()
ENDWITH
cnavcont.Pageframe1.Page5.Click
THIS.PARENT.PARENT.cbuttonimage5.CLICK()

Objects

Baseclass	Class	Object name
label	label	cnavcont.Pageframe1.Page5.Label1
		cnavcont.Pageframe1.Page5.Label2

cnavcont.Pageframe1.Page5.Label1

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Page 5"
FontSize	14
TabIndex	1

Methods

cnavcont.Pageframe1.Page5.Label1.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage5.CLICK()

cnavcont.Pageframe1.Page5.Label2

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Example"
TabIndex	2
WordWrap	.T.

Methods

cnavcont.Pageframe1.Page5.Label2.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage5.CLICK()

cnavcont.Pageframe1.Page6

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Caption	""

Methods

cnavcont.Pageframe1.Page6.Click
THIS.PARENT.PARENT.cbuttonimage6.CLICK()
cnavcont.Pageframe1.Page6.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord

WITH THIS.PARENT.PARENT
    .cbuttonimage1.REFRESH()
    .cbuttonimage2.REFRESH()
    .cbuttonimage3.REFRESH()
    .cbuttonimage4.REFRESH()
    .cbuttonimage5.REFRESH()
    .cbuttonimage6.REFRESH()
    .centerme()
ENDWITH

Objects

Baseclass	Class	Object name
label	label	cnavcont.Pageframe1.Page6.Label1
		cnavcont.Pageframe1.Page6.Label2

cnavcont.Pageframe1.Page6.Label1

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Page 6"
FontSize	14
TabIndex	1

Methods

cnavcont.Pageframe1.Page6.Label1.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage6.CLICK()

cnavcont.Pageframe1.Page6.Label2

Class: label
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
AutoSize	.T.
BackStyle	0
Caption	"Example"
TabIndex	2
WordWrap	.T.

Methods

cnavcont.Pageframe1.Page6.Label2.Click
THIS.PARENT.PARENT.PARENT.cbuttonimage6.CLICK()