Module cCJGridDataSourceColumn.pkg

     1// defines the required column interface for a DataSource. These are the only messages that the
     2// Datasource is allowed to send to column objects. We expect this object to be a child of the
     3// column object and therefore we just delegate these messages. 
     4
     5Use UI
     6
     7{ Visibility=Private }
     8Class cCJGridDataSourceColumn is a cObject
     9    
    10    Procedure Construct_Object
    11        Forward Send Construct_Object
    12        Property Boolean pbInOnChange False
    13    End_Procedure
    14
    15    Function Validating Returns Boolean
    16        Boolean bCancel
    17        Delegate Get Validating to bCancel
    18        Function_Return bCancel
    19    End_Function
    20
    21//    Function UpdateCalculatedColumn Returns Boolean
    22//        Boolean bCancel
    23//        Delegate Get UpdateCalculatedColumn to bCancel
    24//        Function_Return bCancel
    25//    End_Function
    26
    27    Function InitialValue Returns String
    28        String sValue
    29        Delegate Get InitialValue to sValue
    30        Function_Return sValue
    31    End_Function
    32
    33    Procedure UpdateDataToExternalSource String sValue Integer iUpdateFlag Integer iFlags
    34        Delegate Send UpdateDataToExternalSource sValue iUpdateFlag iFlags
    35    End_Procedure
    36    
    37    Function DataType Returns Integer
    38        Integer eType
    39        Delegate Get peDataType to eType
    40        Function_Return eType
    41    End_Function
    42
    43    Procedure NotifySelectedRowChanged String sOldValue String sValue
    44        Boolean bInOnChange
    45        Get pbInOnChange to bInOnChange
    46        If bInOnChange Begin
    47            Error DFERR_PROGRAM "assert: OnSelectedRowDataChanged recursion"
    48            Procedure_Return
    49        End
    50        Set pbInOnChange to True
    51        Delegate Send OnSelectedRowDataChanged sOldValue sValue
    52        Set pbInOnChange to False
    53    End_Procedure
    54        
    55End_Class
    56