// Audfiles.sl
// Audit Tables Lookup List

Use Dftable.pkg
Use Dfentry.pkg

Use AudFiles.DD

Cd_Popup_Object Audfiles_sl is a dbModalPanel
    Set Location to 5 5
    Set Size to 134 244
    Set Label To "Audit Tables Lookup List"
    Set Border_Style to Border_Thick
    Set Minimize_Icon to False

    Object oAudfiles_DD is a Audfiles_DataDictionary
    End_Object // oAudfiles_DD

    Set Main_DD To oAudfiles_DD
    Set Server  To oAudfiles_DD

    Object oSelList Is A dbList
        Set Size to 105 234
        Set Location to 5 5
        Set peAnchors to anAll
        Set Main_File to Audfiles.File_Number
        Set Ordering to 1
        Set peResizeColumn to rcAll
        Set Auto_Server_State to True
        Set pbHeaderTogglesDirection to True

        Begin_row
            Entry_Item Audfiles.Table
            Entry_Item Audfiles.Desc
            Entry_Item Audfiles.Audit
        End_row

        Set Form_Width 0 to 48
        Set Header_Label 0 to "Table"

        Set Form_Width 1 to 150
        Set Header_Label 1 to "Desc"

        Set Form_Width 2 to 26
        Set Header_Label 2 to "Audit"
        Set Column_Checkbox_State 2 to True

    End_Object // oSelList

    Object oOk_bn Is A Button
        Set Label to "&Ok"
        Set Location to 115 81
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send OK of oSelList
        End_Procedure

    End_Object // oOk_bn

    Object oCancel_bn Is A Button
        Set Label to "&Cancel"
        Set Location to 115 135
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send Cancel of oSelList
        End_Procedure

    End_Object // oCancel_bn

    Object oSearch_bn is a Button
        Set Label to "&Search..."
        Set Location to 115 189
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send Search of oSelList
        End_Procedure

    End_Object // oSearch_bn

    On_Key Key_Alt+Key_O Send KeyAction of oOk_bn
    On_Key Key_Alt+Key_C Send KeyAction of oCancel_bn
    On_Key Key_Alt+Key_S Send KeyAction of oSearch_bn


CD_End_Object // Audfiles_sl