FiveTech Software tech support forums

Falta añadir este método en la Clase TRichEdit:

Code: Select all  Expand view

  METHOD GetDlgCode( nLastKey ) INLINE ::nDlgCode

y esta línea en nuestro código:

#define DLGC_WANTCHARS 0x0080

oRich:nDlgCode = DLGC_WANTALLKEYS

aún asi, sigue sin comportarse como debiera.

De momento con el ejemplo de FWH testrich.prg de la carpeta samples, añadiendo estas dos líneas:

oRich:bKeyDown = { | nKey | MsgInfo( nKey ) }
oRich:nDlgCode = DLGC_WANTALLKEYS

sigue sin detectar la tecla de tabulación...

Buenas, estoy intentando generar un fichero rtf siguiendo el ejemplo testtrich.prg hago esto: oRich = TRichEdit():Redefine( 4001, { || " " }, oDlg ) oRich:LoadFromRTFFile( cGetFile( "RTF file (*.rtf) | *.rtf" ) ) oRich:SaveToRTFFile( cGetFile( "RTF ...

Hello Antonio,
I tried your Suggestion.
I inserted a button like this:
REDEFINE BUTTONBMP ID 4002 OF oDlg ;
ACTION msginfo( oRich:gettext() )

When I drop files from Explorer oRich:gettext() is empty.
Best regards,
Otto

how to capture the line where the cursor is positioned?

ex:

aaaaa
bbbbb <--cursor here
ccccc

? orich:cLine -> bbbbb

thanks

Lucas, Por favor haz la siguiente prueba en Harbour y xHarbour con el RTF que te falla: local cRTF := MemoRead( "tu_rtf.rtf" ) MemoWrit( "harbour.rtf", cRTF ) y para xharbour: MemoWrit( "xharbour.rtf", cRTF ) y ahora compara a nivel binario (puedes usar UEStudio, o un e...

Hola Antonio,

¿Has podido averiguar algo?.

Gracias.

Antonio, Muchas gracias por tu atención, incluso en fines de semana. Una vez más, quiero agradecer el excelente soporte de Fivetech. Ojalá las demás compañías del mundo xBase fueran así. ¿Y sabes qué han podido tocar?. Continuamente en Harbour están obsesionados con la pureza del lenguaje C y no man...

Lucas,

Ese método usa MemoRead() de Harbour/xHarbour y puede ser que ahi esté la diferencia

Antonio,

Efectivamente, el bug no está en el código, sino en el archivo rtf.

Prueba a abrir por favor este archivo .rtf:
http://ul.to/rpefaltg

Con Harbour no se abre, con xHarbour sí.

Me estaba volviendo loco con el código.

Lucas,

Tu ejemplo funciona aqui correctamente, probado en Windows 8. Que versión de Harbour usas ? Que versión de Windows ?

Antonio,

El de samples funciona OK.

El mio no funciona. Funcionaba con 11.09. Y funciona con xHarbour y FWHX 12.06.

El único cambio que veo es el redefine.

No lo entiendo.

Te paso el link a ver qué sucede:
http://ul.to/hmb02ph2

El .rc es el mismo que el de samples.


Muchas gracias.

Lucas,

Por favor prueba FWH\samples\TestRich.prg y verifica si te funciona correctamente.

Luego compara el código del ejemplo con tu código. Algo debes haber cambiado.

Antonio,

¿Y por qué mi código, que antes funcionaba, ahora no?.

Por cierto, sí que funciona con xHarbour y FWH 12.06.

Lucas,

Este es el ejemplo FWH\samples\TestRich.prg, construido con FWH 12.06 y Harbour, y pulsando el botón Load RTF y cargando un fichero RTF. Funciona correctamente: