Use Windows.pkg

Object oResInfo is a cObject

    Procedure DoStartResInfo 
        Send Initialize_StatusPanel of ghoStatusPanel "AnyFlex" "Working" ""
        Send Start_StatusPanel of ghoStatusPanel
    End_Procedure

    Procedure DoStopResInfo
        Send Update_StatusPanel of ghoStatusPanel ""
        Send Stop_StatusPanel of ghoStatusPanel
    End_Procedure

    Function callback String sText Integer iType Returns Integer
        Integer iStop
        Handle hStatus
        Case Begin
            Case (iType = DF_MESSAGE_PROGRESS_TITLE)
                Set Message_Text of ghoStatusPanel to sText
                Case Break
            Case (iType = DF_MESSAGE_PROGRESS_VALUE) 
                Send Update_StatusPanel of ghoStatusPanel (Replace(",", sText, " of "))
                Case Break
            Case Else
                Set Title_Text of ghoStatusPanel to sText
                Case Break
        Case End
        Get Check_StatusPanel of ghoStatusPanel to iStop
        Function_Return iStop
    End_Function

End_Object