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:
Why do I get this error, and how can I solve this problem?
Regards,
Leon Raafs