// CodeHdr.sl
// CodeHdr Lookup List

Use DFClient.pkg
Use cDbCJGridPromptList.pkg
Use cDbCJGridColumn.pkg
Use Windows.pkg

Use cCodeHdrDataDictionary.dd

CD_Popup_Object oCodeHdr_sl is a dbModalPanel
    Set Location to 5 5
    Set Size to 134 368
    Set Label to "Projects Lookup List"
    Set Border_Style to Border_Thick
    Set Minimize_Icon to False


    Object oCodeHdr_DD is a cCodeHdrDataDictionary
    End_Object

    Set Main_DD To oCodeHdr_DD
    Set Server  To oCodeHdr_DD

    Object oSelList is a cDbCJGridPromptList
        Set Size to 105 358
        Set Location to 5 5
        Set peAnchors to anAll
        Set psLayoutSection to "oCodeHdr_sl_oSelList"
        Set Ordering to 1
        Set pbAutoServer to True

        Object oCodeHdr_SWSFileName is a cDbCJGridColumn
            Entry_Item CodeHdr.SWSFileName
            Set piWidth to 172
            Set psCaption to "SWS Filename"
        End_Object

        Object oCodeHdr_Path is a cDbCJGridColumn
            Entry_Item CodeHdr.Path
            Set piWidth to 409
            Set psCaption to "Path"
        End_Object

        Object oCodeHdr_ID is a cDbCJGridColumn
            Entry_Item CodeHdr.ID
            Set piWidth to 45
            Set psCaption to "ID"
        End_Object


    End_Object

    Object oOk_bn is a Button
        Set Label to "&Ok"
        Set Location to 115 205
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send OK of oSelList
        End_Procedure

    End_Object

    Object oCancel_bn is a Button
        Set Label to "&Cancel"
        Set Location to 115 259
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send Cancel of oSelList
        End_Procedure

    End_Object

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

        Procedure OnClick
            Send Search of oSelList
        End_Procedure

    End_Object

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