Module cDbCJGridColumnEdit.pkg

     1Use UI
     2Use cCJGridColumnEdit.pkg
     3
     4{ Visibility=Private }
     5Class cDbCJGridColumnEdit is a cCJGridColumnEdit
     6    
     7    Procedure Construct_Object
     8        Forward Send Construct_Object
     9        
    10        Property Handle phoWatched 0
    11         Set Floating_Menu_Object to Default_dbFloating_Menu_ID
    12        
    13        On_Key kFind_Previous       Send Find_Previous
    14        On_Key kFind                Send Find_GE      
    15        On_Key kFind_Next           Send Find_Next    
    16    End_Procedure
    17
    18    
    19    Function Deo_Find_Object Returns Boolean
    20        Function_Return True
    21    End_Function  
    22
    23    Function DEO_Control_Object Returns Boolean
    24        Function_Return True
    25    End_Function  
    26        
    27    
    28    Function DEO_Object Returns Boolean
    29        Function_Return True
    30    End_Function  
    31    
    32    // required to set server changed states
    33    Procedure Set Changed_State Boolean bChanged
    34        Handle hoGrid
    35// The following would not set changeon no-put fields. This actually makes more sense
    36// and would work but it would make this behave differently than the other DEOs where
    37// changing anything triggers a changed state in the DD. We will go with consistency.
    38//        Boolean bNoPut
    39//        // if a noput column, we will not set changed state
    40//        Delegate Get DDNoPut to bNoPut
    41//        If not bNoPut Begin
    42//            Get phoGrid to hoGrid
    43//            Set Changed_State of hoGrid to bChanged
    44//        End
    45          Get phoGrid to hoGrid
    46          Set Changed_State of hoGrid to bChanged
    47    End_Procedure
    48    
    49    Function Auto_Fill_state Returns Integer
    50        Function_Return 0
    51    End_Function
    52    
    53    Procedure Activating
    54        Handle hoServer
    55        Integer iMain iMainDD
    56        Get Server to hoServer
    57        Get piBindingTable to iMain
    58        Get Main_File of hoServer to iMainDD
    59        Set phoWatched to 0
    60        If hoServer Begin
    61            Send Add_User_Interface of hoServer Self
    62            If (iMain<>iMainDD) Begin
    63                Get Which_Data_Set of hoServer iMain to hoServer
    64                If hoServer Begin
    65                    Send Add_User_Interface of hoServer Self True
    66                    Set phoWatched to hoServer
    67                End
    68            End
    69        End
    70        Forward Send Activating
    71    End_Procedure
    72
    73    Procedure Deactivating 
    74        Handle hoServer
    75        Get Server to hoServer
    76        Set Changed_State to False
    77        Set Item_Changed_State 0 to False
    78        If hoServer Begin
    79            Send Remove_User_Interface of hoServer Self
    80        End
    81        Get phoWatched to hoServer
    82        If hoServer Begin
    83            Send Remove_User_Interface of hoServer Self True
    84        End
    85        Forward Send Deactivating
    86    End_Procedure
    87    
    88End_Class
    89