Module Calendar_Categories.sl

     1//==============================================================================
     2// Contributions
     3// =============
     4//
     5// When       Who          What
     6// ========== ============ =====================================================
     7// 2009-01-09 Nick Wright  Original Implementation
     8//
     9//==============================================================================
    10
    11Use DFClient.pkg
    12Use DFSelLst.pkg
    13Use Windows.pkg
    14
    15Use CAL_CATS.DD
    16
    17Cd_Popup_Object Calendar_Categories_sl is a dbModalPanel
    18    Set Location to 5 5
    19    Set Size to 134 299
    20    Set Label to "Calendar Categories Lookup List"
    21    Set Border_Style to Border_Thick
    22    Set Minimize_Icon to False
    23
    24
    25    Object oCal_Cats_DD Is A Cal_Cats_DataDictionary
    26    End_Object // oCal_Cats_DD
    27
    28    Set Main_DD To oCal_Cats_DD
    29    Set Server  To oCal_Cats_DD
    30
    31
    32
    33    Object oSelList Is A dbList
    34        Set Size to 105 289
    35        Set Location to 5 5
    36        Set peAnchors to anAll
    37        Set Main_File to Cal_Cats.File_Number
    38        Set Ordering to 1
    39        Set peResizeColumn to rcAll
    40        Set Auto_Server_State to True
    41        Set pbHeaderTogglesDirection to True
    42
    43        Begin_row
    44            Entry_Item Cal_Cats.Id
    45            Entry_Item Cal_Cats.Short_Desc
    46            Entry_Item Cal_Cats.Long_Desc
    47        End_row
    48
    49        Set Form_Width 0 to 26
    50        Set Header_Label 0 to "Id"
    51
    52        Set Form_Width 1 to 96
    53        Set Header_Label 1 to "Short Desc"
    54
    55        Set Form_Width 2 to 150
    56        Set Header_Label 2 to "Long Desc"
    57
    58    End_Object // oSelList
    59
    60    Object oOk_bn Is A Button
    61        Set Label to "&Ok"
    62        Set Location to 115 135
    63        Set peAnchors to anBottomRight
    64
    65        Procedure OnClick
    66            Send OK of oSelList
    67        End_Procedure
    68
    69    End_Object // oOk_bn
    70
    71    Object oCancel_bn Is A Button
    72        Set Label to "&Cancel"
    73        Set Location to 115 189
    74        Set peAnchors to anBottomRight
    75
    76        Procedure OnClick
    77            Send Cancel of oSelList
    78        End_Procedure
    79
    80    End_Object // oCancel_bn
    81
    82    Object oSearch_bn Is A Button
    83        Set Label to "&Search..."
    84        Set Location to 115 243
    85        Set peAnchors to anBottomRight
    86
    87        Procedure OnClick
    88            Send Search of oSelList
    89        End_Procedure
    90
    91    End_Object // oSearch_bn
    92
    93    On_Key Key_Alt+Key_O Send KeyAction of oOk_bn
    94    On_Key Key_Alt+Key_C Send KeyAction of oCancel_bn
    95    On_Key Key_Alt+Key_S Send KeyAction of oSearch_bn
    96
    97
    98Cd_End_Object
    99