Showing Progress

The progressbar control allows to show the completion status of an operation.

 #include "hmg.ch"
Function Main
    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 200 ;
        TITLE 'Tutor 13 - ProgressBar Test' ;
        MAIN 
        DEFINE MAIN MENU
           POPUP "First Popup"
             ITEM 'ProgressBar Test' ACTION  DoTest()
           END POPUP
        END MENU
        @ 10,10 PROGRESSBAR Progress_1 ;
            RANGE 0 , 65535
    END WINDOW
    ACTIVATE WINDOW Win_1
 Return

Procedure DoTest()
Local i
    For i = 0 To 65535 Step 25
        Win_1.Progress_1.Value := i
    Next i
Return

Procedure DoTest()
Local i
    For i = 0 To 65535 Step 25
        Win_1.Progress_1.Value := i
    Next i
Return