topic-34732

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

ERROR EN XBROWSE 17.09
Posted: Mon Oct 16, 2017 12:23 PM

Hola,
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 (fw): Select all Collapse

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 (fw): Select all Collapse

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.

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: ERROR EN XBROWSE 17.09
Posted: Mon Oct 23, 2017 02:02 PM

Alguna nov???

Antonio Linares

Posts: 44162