//AB/ Project Mode
//AB/ Object prj is a Dialog_Project
    //AB/ Set ProjectName to "Mode"
    //AB/ Set ProjectFileName to "Mode.dg"
    //AB/ Set GenerateFileName to "NONAME"
    //AB/ Set Size to 282 312

// 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


//AB-StoreTopStart

//AB-StoreTopEnd

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



Object oMode is a ModalPanel

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

    Set Border_Style to Border_Thick
    Set Minimize_Icon to FALSE
    Set Label to "Choose mode"
    Set Location to 6 18
    Set Size to 210 215
    Set piMaxSize to 210 215
    Set piMinSize to 210 215

    //AB-DDOStart


    //AB-DDOEnd

    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


        //AB-StoreStart
        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
        
        
        //AB-StoreEnd

    End_Object    // oRadioGroup1

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

        //AB-StoreStart
        Procedure OnClick
            Integer iMode
            Get Current_radio Of oRadioGroup1 To iMode
            Set piSelectedMode To iMode
            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 172 125
        Set peAnchors to anBottomRight

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

    End_Object    // oCancel_btn


    //AB-StoreStart
    
    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
    
    //AB-StoreEnd

End_Object    // oMode

//AB/ End_Object    // prj