ERROR EN XBROWSE 17.09
Posted: Mon Oct 16, 2017 12:23 pmHola,
el nuevo código usa simpre ALLTRIM () y a veces se necesitan los espacio de la izquierda
the new code uses simpre ALLTRIM () and sometimes you need the left space.
Current code
Solution, old code:
Saludos.
el nuevo código usa simpre ALLTRIM () y a veces se necesitan los espacio de la izquierda
the new code uses simpre ALLTRIM () and sometimes you need the left space.
Current code
- Code: Select all Expand view
METHOD PaintCell() LINE 12574
....
//----------------------------------------------------------------------------//
// READ DATA
//----------------------------------------------------------------------------//
cData := AllTrim( cValToChar( ::StrData ) )
if isrtf( cData )
cData := "<RichText>"
elseif isGtf( cData )
cData := GtfToTxt( cData )
endif
Solution, old code:
- Code: Select all Expand view
METHOD PaintCell() LINE 12574
....
//----------------------------------------------------------------------------//
// READ DATA
//----------------------------------------------------------------------------//
// New code always uses ALLTRIM (), old code no.
if ::bStrData != nil //.and. !::hChecked
cData := Eval( ::bStrData )
if ValType( cData ) != 'C'
cData := cValToChar( cData )
endif
if ! Empty( ::nDataStrAlign )
cData := AllTrim( cData )
endif
if isrtf( cData )
cData := "<RichText>"
elseif isGtf( cData )
cData := GtfToTxt( cData )
endif
else
cData := ""
endif
Saludos.