//AB/ Project Refresh Timer
//AB/ Object prj is a Dialog_Project
    //AB/ Set ProjectName to "Refresh Timer"
    //AB/ Set ProjectFileName to "RefreshTimer.dg"
    //AB/ Set GenerateFileName to "NONAME"
    //AB/ Set Size to 140 235

// Project Object Structure
//   RefreshTimer is a ModalPanel
//     oTextBox1 is a Textbox
//     oSpinForm1 is a SpinForm
//     oOK_btn is a Button
//     oCancel_btn is a Button

// Register all objects
Register_Object oCancel_btn
Register_Object oOK_btn
Register_Object oSpinForm1
Register_Object oTextBox1
Register_Object RefreshTimer


//AB-StoreTopStart

//AB-StoreTopEnd

//AB-IgnoreStart
Use Windows.pkg
Use dfSpnFrm.pkg
//AB-IgnoreEnd



Object RefreshTimer is a ModalPanel

    //AB-StoreTopStart
    Property Integer piChangedTo public -1
    
    //AB-StoreTopEnd

    Set Border_Style to Border_Thick
    Set Label to "Set timer for autorefreshing Anyflex"
    Set Location to 2 2
    Set Size to 108 217
    Set piMinSize to 104 217

    //AB-DDOStart


    //AB-DDOEnd

    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

        //AB-StoreStart
        
        On_Key kEnter Send KeyAction Of oOK_btn
        
        //Procedure OnChange
        //    String sValue
        //
        //    Get Value To sValue
        //End_Procedure // OnChange
        //AB-StoreEnd

    End_Object    // oSpinForm1

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

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

    End_Object    // oOK_btn

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

        //AB-StoreStart
        Procedure OnClick
           Send Close_Panel
        End_Procedure // OnClick
        //AB-StoreEnd

    End_Object    // oCancel_btn


    //AB-StoreStart
    
    Procedure Activate_group
        Forward Send activate_group
        Set piChangedTo To -1
    End_Procedure
    
    //AB-StoreEnd

End_Object    // RefreshTimer

//AB/ End_Object    // prj