Here's the code Rao. Thank you for responding. I've placed '//9788' on the offending line below
function XbrowseNew( oWnd, nRow, nCol, nWidth, nHeight,;
aFlds, aHeaders, aColSizes, ;
bChange, bLDblClick, bRClick, ;
oFont, oCursor, nClrFore, nClrBack, ;
cMsg, lUpdate, cDataSrc, bWhen, ;
lDesign, bValid, lPixel, nResID, lAutoSort, lAddCols, ;
aPics, aCols, aJust, aSort, lFooter, lFastEdit, ;
lCell, lLines, aRows )
local oBrw, n, i, oCol
// This function is intended only to support command syntax
// and not to be used directly in application program
oBrw := TXBrows():New( oWnd )
oBrw:lAutoSort := lAutoSort
oBrw:bLDblClick := bLDblClick
oBrw:bRClicked := bRClick
aFlds := CheckArray( aFlds )
aHeaders := CheckArray( aHeaders )
aColSizes := CheckArray( aColSizes )
aPics := CheckArray( aPics )
aCols := CheckArray( aCols )
aJust := CheckArray( aJust )
aSort := CheckArray( aSort )
XbrwSetDataSource( oBrw, cDataSrc, lAddCols, lAutoSort, aCols, aRows )
DEFAULT aHeaders := {}, aPics := {}, aColSizes := {}, aSort := {}
if ! Empty( aFlds )
for n := 1 to Len( aFlds )
oBrw:AddCol():bEditValue := aFlds[ n ]
next
endif
for i := 1 to Len( oBrw:aCols )
oCol := oBrw:aCols[ i ]
if Len( aPics ) >= i .and. ! Empty( aPics[ i ] )
oCol:cEditPicture := aPics[ i ]
endif
if Len( aHeaders ) >= i .and. ! Empty( aHeaders[ i ] )
oCol:cHeader := aHeaders[ i ]
endif
if Len( aColSizes ) >= i
if aColSizes[ i ] < 0 // 9788
n := -aColSizes[ i ]
oCol:nDataLen := Int( n )
if n > oCol:nDataLen
n := Int( 10 * ( n - oCol:nDataLen ) )
oCol:nDataDec := n
endif
else
oCol:nWidth := aColSizes[ i ]
endif
endif
if Len( aSort ) >= i .and. ! Empty( aSort[ i ] )
oCol:cSortOrder := aSort[ i ]
endif
next i
.
.
