// Project Object Structure
//   oMode is a ModalPanel
//     oRadioGroup1 is a RadioGroup
//       oEQ is a Radio
//       oNE is a Radio
//       oLT is a Radio
//       oLE is a Radio
//       oGT is a Radio
//       oGE is a Radio
//       oContains is a Radio
//       oMatches is a Radio
//       oUppercase is a Radio
//       oNotUppercase is a Radio
//     oOK_btn is a Button
//     oCancel_btn is a Button

// Register all objects
Register_Object oCancel_btn
Register_Object oContains
Register_Object oEQ
Register_Object oGE
Register_Object oGT
Register_Object oLE
Register_Object oLT
Register_Object oMatches
Register_Object oMode
Register_Object oNE
Register_Object oNotUppercase
Register_Object oOK_btn
Register_Object oRadioGroup1
Register_Object oUppercase




Use Windows.pkg
Use dfRadio.pkg



Object oMode is a ModalPanel

    Property Integer piSelectedMode public -1
    Set Minimize_Icon to FALSE
    Set Label to "Choose mode"
    Set Location to 6 18
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set Size to 210 215
    Set Size to 190 204
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set piMaxSize to 210 215
    Set piMaxSize to 190 204
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set piMinSize to 210 215
    Set piMinSize to 188 204




    Object oRadioGroup1 is a RadioGroup
        Set Size to 155 155
        Set Location to 9 27
        Set Label to "Mode"
        Object oEQ is a Radio
            Set Label to "="
            Set Size to 10 21
            Set Location to 12 12
        End_Object    // oEQ

        Object oNE is a Radio
            Set Label to "<>"
            Set Size to 10 25
            Set Location to 26 12
        End_Object    // oNE

        Object oLT is a Radio
            Set Label to "<"
            Set Size to 10 21
            Set Location to 40 12
        End_Object    // oLT

        Object oLE is a Radio
            Set Label to "<="
            Set Size to 10 25
            Set Location to 54 12
        End_Object    // oLE

        Object oGT is a Radio
            Set Label to ">"
            Set Size to 10 21
            Set Location to 68 12
        End_Object    // oGT

        Object oGE is a Radio
            Set Label to ">="
            Set Size to 10 25
            Set Location to 82 12
        End_Object    // oGE

        Object oContains is a Radio
            Set Label to "Contains"
            Set Size to 10 44
            Set Location to 96 12
        End_Object    // oContains

        Object oMatches is a Radio
            Set Label to "Matches"
            Set Size to 10 44
            Set Location to 110 12
        End_Object    // oMatches

        Object oUppercase is a Radio
            Set Label to "Contains (case insensitive)"
            Set Size to 10 100
            Set Location to 122 12
        End_Object    // oUppercase

        Object oNotUppercase is a Radio
            Set Label to "Does Not Contains (case insensitive)."
            Set Size to 10 134
            Set Location to 137 12
        End_Object    // oNotUppercase


        Procedure Notify_Select_State Integer iToItem Integer iFromItem
            Forward Send Notify_Select_State iToItem iFromItem
            //for augmentation
        End_Procedure // Notify_Select_State

        // If you set Current_radio you must set this after the
        // radio objects have been created AND after Notify_select_State has been
        // created. i.e. Set in bottom-code at end!!
        // Set Current_Radio To 0



    End_Object    // oRadioGroup1

    Object oOK_btn is a Button
        Set Label to "&OK"
        Set Location to 172 37
        Set peAnchors to anBottomRight

        Procedure OnClick
            Integer iMode
            Get Current_radio Of oRadioGroup1 To iMode
            Set piSelectedMode To iMode
            Send Close_Panel
        End_Procedure // OnClick

    End_Object    // oOK_btn

    Object oCancel_btn is a Button
        Set Label to "&Cancel"
        Set Location to 172 125
        Set peAnchors to anBottomRight

        Procedure OnClick
           Send Close_Panel
        End_Procedure // OnClick

    End_Object    // oCancel_btn



    On_Key kEnter Send KeyAction Of oOK_btn
    On_Key kCancel Send close_panel

    Procedure Activate_group
        Forward Send activate_group
        Set piSelectedMode To -1
    End_Procedure


End_Object    // oMode