topic-23376

Posts: 723

Joined: Tue Sep 04, 2007 08:45 AM

Why the meter does not show ?

Posted: Sun Jan 29, 2012 09:46 PM

Guys:
Why on the following code the meter does not show, even though the dialog do ? I've tried ON INIT also with the same results.

Code (fw): Select all Collapse

                .
                .
                .
        nActual := 0
        nTotal  := RECCOUNT()
        DEFINE DIALOG oDlg TITLE "Creating TAGs ..."

        @ 2, 1 METER oMeter  VAR nActual TOTAL nTotal OF oDlg SIZE 140 , 20

        ACTIVATE DIALOG oDlg ON PAINT EVAL({|| oMeter:settotal( nTotal ), ;
            DisableX (@oDlg, .T.), IndexTest (@oMeter, @nActual, @oDlg)})  ;
            CENTERED
                .
                .
                .


STATIC PROCEDURE IndexTest (oMeter, nActual, oDlg)
    oMeter:settotal( RECCOUNT() )
    INDEX ON Field1            TAG RefNo      EVAL({|| oMeter:Set( RecNo() ), SysRefresh(), .T.}) EVERY 25
    oMeter:settotal( RECCOUNT() )
    INDEX ON Field2            TAG RecNum   EVAL({|| oMeter:Set( RecNo() ), SysRefresh(), .T.}) EVERY 25
    oMeter:settotal( RECCOUNT() )
    INDEX ON DTOS(Field3) TAG Chrono     EVAL({|| oMeter:Set( RecNo() ), SysRefresh(), .T.}) EVERY 25
    oMeter:settotal( RECCOUNT() )
    INDEX ON Field4            TAG User FOR ! EMPTY(D0_userid) EVAL({|| oMeter:Set( RecNo() ), SysRefresh(), .T.}) EVERY 25
    oDlg:end()
RETURN

Thank you.

FiveTech Support Forums

Why the meter does not show ?

Continue the discussion