FiveTech Software tech support forums

... METHOD InvMinMay() // Invert Lower -> Upper and Upper -> Lower 5) METHOD InsertTable() Insert table and dialog configuration table 6) METHOD IsRTF() // if any file is RTF or not 7) METHOD SetSubInd( lOnOff ) 8) METHOD SetSuperInd( lOnOff ) 9) METHOD GetParaFormat( lInfo ) 10) METHOD SetParaFormat( ...

... METHOD InvMinMay() // Invert Lower -> Upper and Upper -> Lower 5) METHOD InsertTable() Insert table and dialog configuration table 6) METHOD IsRTF() // if any file is RTF or not 7) METHOD SetSubInd( lOnOff ) 8) METHOD SetSuperInd( lOnOff ) 9) METHOD GetParaFormat( lInfo ) 10) METHOD SetParaFormat( ...

Dear Antonio,
can you please help to Change this pseudocode

if isrtf( cText )
oRTF:print
else
TextOut( ::oPrn:hDCOut, nRow, nCol, cText )
endif

in valid FW code.
Thanks in advance
Otto

Hello, maybe we can extend method say Pseudocode if isrtf( cText ) oRTF:print else TextOut( ::oPrn:hDCOut, nRow, nCol, cText ) endif Best regards, Otto METHOD Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) CLASS VRD IF ::oPrn:hDC ...

... usas el setcheck 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

... (cText)  // does not workoRTF:Refresh()//oRtf:LoadFromRTFFile( "Register.rtf" )  / from a file it is working IsRTF (cText) returns .t., but it´s only working if I load it from a file. Any help appreciated

... para evaluar el bloque de código bChanged, por defecto es TRUE (Compatibilidad con versiones anteriores). * Mejora: Se ha mejorado la función IsRtf() en gtf.prg. * XBROWSE: Correcciones: (a) Corrección en el método nWithChr() en xbrowse.prg para evitar errores en tiempo de ejecución con datos ...

... Class DBCombo, SetItems recive a lChanged parameter, flag to evaluate codeblock bChanged, by default is true (compatibility with old versions) * IsRtf() function in gtf.prg improved. * XBROWSE: Fixes: (a) Fix in method nWidthChr in xbrowse.prg to avoid runtime errors with invalid data in some ...

... que inicien con el TEXTO "RTF" al mostrarlo en el xbrowse, simplemente sale una leyenda <RitchText>. Como funciona la funcion isrtf()? Solo pasa cuando el texto "RTF" está al inicio del campo. Alguna ayuda?

... el mensaje <RichText> esto pasa porque hay una función que valida si es o no RichText. Está es la función que hace el display function IsRTF( cText ) return (Upper( SubStr( cText, At( "\rtf", cText ) + 1, 3 ) ) == "RTF") Y ...

Otto, Please check that you have this code in Class TXBrowse: (search for "isrtf" in xbrowse.prg) if ::bStrData != nil cData := Eval( ::bStrData ) if ValType( cData ) != 'C' cData := cValToChar( cData ) endif if ! Empty( ::nDataStrAlign ...

... Argument error: AT Args: [ 1] = C \rtf [ 2] = N 32 Stack Calls =========== Called from: => AT(0) Called from: .\source\function\GTF.PRG => ISRTF(0) Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(0) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(0) ...

... error: AT Args: [ 1] = C \rtf [ 2] = A { ... } Stack Calls =========== Called from: => AT(0) Called from: .\source\function\GTF.PRG => ISRTF(0) Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(0) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(0) ...

The function IsRTF() works.
Seems you have already done displaying RTF in xbrowse cell. Is it the same code you are using? Can you post your full code for display of rtf ?

Maybe someone can help - Does "IsRTF()" work? I saw the function in fget class. - What does TRichEdit need as a container? Regards, Otto method paintdata ... if IsRTF( cdata ) ??? define a window without frame from {nRow, nCol, nRow + nHeight, ...