Use Windows.pkg
Use dfSpnFrm.pkg

Object RefreshTimer is a ModalPanel

    Property Integer piChangedTo public -1
    Set Label to "Set timer for autorefreshing Anyflex"
    Set Location to 2 2
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set Size to 108 217
    Set Size to 89 213
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set piMinSize to 104 217




    Object oTextBox1 is a Textbox
        Set Label to "Set number of seconds between every refresh of Anyflex. (0 = autorefreshing off)."
        Set Auto_Size_State to FALSE
        Set Location to 9 11
        Set Size to 26 183
        Set Justification_Mode to jMode_Left
        Set TypeFace to "MS Sans Serif"
    End_Object    // oTextBox1

    Object oSpinForm1 is a SpinForm
        Set Label to "Seconds:"
        Set Size to 13 36
        Set Location to 41 97
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right
        Set Maximum_Position to 10
        Set Minimum_Position to 0


        On_Key kEnter Send KeyAction Of oOK_btn

        //Procedure OnChange
        //    String sValue
        //
        //    Get Value To sValue
        //End_Procedure // OnChange

    End_Object    // oSpinForm1

    Object oOK_btn is a Button
        Set Label to "&OK"
        Set Location to 71 98
        Set peAnchors to anBottomRight

        Procedure OnClick
            Integer iValue
            Get value Of oSpinForm1 Item 0 To iValue
            Set piChangedTo To iValue
            Send Close_Panel
        End_Procedure // OnClick

    End_Object    // oOK_btn

    Object oCancel_btn is a Button
        Set Label to "&Cancel"
        Set Location to 71 157
        Set peAnchors to anBottomRight

        Procedure OnClick
           Send Close_Panel
        End_Procedure // OnClick

    End_Object    // oCancel_btn



    Procedure Activate_group
        Forward Send activate_group
        Set piChangedTo To -1
    End_Procedure


End_Object    // RefreshTimer