DO FORM HOME(2) + "solution\ffc\therm.scx"

Scan...Endscan

FUNCTION Thermo
    LPARA lnThermoCounter,pMess1,pMess2,pMess3, tlType
*: При первом вызове m.lnThermoCounter=-1
*: В цикле  m.lnThermoCounter должен быть между 0 и 100
*:    Чтобы закончить процесс m.lnThermoCounter>100
*:  Пример:
*:       do thermo with -1,"aa","bb"
*:       for i=10 to 100 step 10
*:               do thermo with i,"aa","bb"
*:       next
*:       do thermo with 101,"aa","bb"

    m.tlType = EVL(m.tlType,0)
    LOCAL lcTitle, ll, lnSelect
    PUBLIC goTherm
    m.lnThermoCounter=EVL(m.lnThermoCounter,0)
    IF m.lnThermoCounter > 100
        IF TYPE("m.goTherm.name") = "C"
            goTherm.RELEASE
            m.goTherm=0
        ENDIF
        RETU .F.
    ENDIF
    m.lnSelect = SELECT()
    IF m.lnThermoCounter<0 OR TYPE("goTherm.name") # "C"
        IF WEXIST('thermometer')
            RELEASE WINDOWS thermometer
            m.goTherm = 0
        ENDIF
        m.lcTitle=EVL(m.pMess1,"")
        DOEVENTS FORCE
        IF m.lnThermoCounter<0 OR TYPE('m.goTherm.Name') # 'C'
            DO CASE
                CASE m.tlType = 0
                    m.ll=EMPTY(m.pMess3) OR TYPE('ggIconView')#'N' OR ggIconView#1
                    m.goTherm = CREATEOBJECT(IIF(m.ll,"Thermometer","Thermometer1"), IIF(m.lnThermoCounter<0,m.lcTitle,pMess2 ))
                CASE m.tlType = 1
                    m.goTherm = CREATEOBJECT("Thermometer",m.lcTitle)
                CASE m.tlType=2
                    m.goTherm = CREATEOBJECT("Thermometer1",m.lcTitle)
            ENDCASE
*       =Transparent(m.goTherm)
        ENDIF
        m.goTherm.VISIBLE = .T.
        m.goTherm.UPDATE(MAX(0,EVL(m.lnThermoCounter,0)),EVL(m.pMess2,''))
        m.goTherm.HIDDEN.SETFOCUS
        SELECT(m.lnSelect)
        RETU .T.
    ENDIF
    IF NOT EMPTY(m.pMess1) && AND TYPE("goTherm.Name")="C"
        m.goTherm.SetTitle(m.pMess1)
    ENDIF
    m.goTherm.UPDATE(m.lnThermoCounter, EVL(m.pMess2, ''))
    m.goTherm.lblPercentage.REFRESH
    RETURN

Local loTherm, loTherm2, lcTask, lnPercent, lnCount
lnCount = 100500

* Way 1
loTherm = Newobject("_thermometer", Home() + "ffc\_therm", "", "Title")
With loTherm
    .Show()
    For i = 1 To lnCount 
        lnPercent = i / lnCount * 100
        .Update(lnPercent, "Count: " + Trans(i))
    Endfor
    .Complete()
Endwith

* Way 2
loTherm2 = Newobject("_thermometer", Home() + "ffc\_therm", "", "Title", lnCount)
With loTherm2
    .Show()
    For i = 1 To lnCount 
        .Update(i, "Count: " + Trans(i))
    Endfor
    .Complete()
Endwith