Object resinfo is a toolPanel
    Set locate_mode to center_on_screen
    Set minimize_icon to False
    Set modal_state to False
    Set Label to "Information"
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set Size to 50 250
    Set Size to 28 239
    Object otext is a TextBox
        Set label to ""
        Set Size to 10 100
        Set Location to 5 10
    End_Object    // Textbox1
    Object oPrg is a TextBox
        Set label to ""
        Set Size to 10 100
        Set Location to 17 10
    End_Object    // Textbox1
        Function callback String s Integer i Returns Integer
                If i eq 1 Set label to s
                Else If i eq 7 Set value of (oText(Self)) to s
                Else If i eq 8 Set value of (oPrg(Self)) to (Replace(",",s," of "))
        End_Function
End_Object