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