Hello,

I have a modal panel with a list object for displaying non editable information, I want to change this list object with a cCjGrid with 1 column and did this like this:

Code:
    Object oModules is a cCJGrid
        Set Size to 95 112
        Set Location to 55 182
        Set pbShowHeader to False
        Set peHorizontalGridStyle to xtpGridNoLines
        Set peVerticalGridStyle to xtpGridNoLines
        Set pbAllowAppendRow to False
        Set pbAllowColumnRemove to False
        Set pbAllowColumnReorder to False
        Set pbAllowColumnResize to False
        Set pbAllowDeleteRow to False
        Set pbAllowEdit to False
        Set pbAutoAppend to False
        Set pbAllowInsertRow to False
        Set pbAutoSave to False
        Set pbEditOnClick to True
        Set pbEditOnTyping to False

        Object oActieveModules is a cCJGridColumn
            Set piWidth to 186
            Set pbAllowDrag to False
            Set pbAllowRemove to False
            Set pbComboEntryState to False
            Set pbEditable to False
            Set pbResizable to False
        End_Object

        Procedure LoadData
            String sModule
            Integer iColModules
            tDataSourceRow[] TheData

            Get piColumnId of oActieveModules to iColModules
            Move psModules to sModule
            If (Pos('A', sModule)) Begin
                Move "Module1" to TheData[SizeOfArray(TheData)].sValue[iColModules]
            End
            If (Pos('B', sModule)) Begin
                Move "Module2" to TheData[SizeOfArray(TheData)].sValue[iColModules] 
            End
            If (Pos('C', sModule)) Begin
                Move "Module3" to TheData[SizeOfArray(TheData)].sValue[iColModules]
            End
            If (Pos('D', sModule)) Begin
                Move "Module4" to TheData[SizeOfArray(TheData)].sValue[iColModules]
            End
            If (Pos('E', sModule)) Begin
                Move "Module5" to TheData[SizeOfArray(TheData)].sValue[iColModules]
            End
            If (Pos('F', sModule)) Begin                                           
                Move "Module6" to TheData[SizeOfArray(TheData)].sValue[iColModules]
            End
            If (Pos('G', sModule)) Begin
                Move "Module7" to TheData[SizeOfArray(TheData)].sValue[iColModules]
            End
            If (Pos('H', sModule)) Begin
                Move "Module8" to TheData[SizeOfArray(TheData)].sValue[iColModules]
            End      
            Send InitializeData TheData                                                
            Send MoveToFirstRow
        End_Procedure

        Procedure Activating
            Forward Send Activating
            Send LoadData
        End_Procedure
    End_Object
This is as described in https://docs.dataaccess.com/dataflex...ef/cCJGrid.htm
and this gives me the correct information in the new grid. As I want to close my application I receive the following error:
Click image for larger version. 

Name:	Exiting application.png 
Views:	27 
Size:	19.9 KB 
ID:	12939

Why do I get this error, and how can I solve this problem?

Regards,

Leon Raafs