Testrtf5.prg - RichEdi5

Post Reply
Jorge_T
Posts: 36
Joined: Tue Jan 22, 2019 8:28 am

Testrtf5.prg - RichEdi5

Post by Jorge_T »

Hola,
Estoy mirando el programa de ejemplo Testrtf5.prg para trabajar con ficheros RTF, ¿Cómo se hace, si es posible, para seleccionar los colores al igual que se seleccionan las fuentes de letra? es decir, mediante un combobox. (ejemplo LibreOffice)
Gracias!
Image
image sharing

Image
Jorge
--------------------------------------------------
Fivewin 18.10 - Harbour - BCC 7 - PellesC
--------------------------------------------------
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Testrtf5.prg - RichEdi5

Post by cnavarro »

C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Jorge_T
Posts: 36
Joined: Tue Jan 22, 2019 8:28 am

Re: Testrtf5.prg - RichEdi5

Post by Jorge_T »

Si, es esto, muchas gracias....

Y aprovecho, como se puede hacer para que el texto se cargue en modo solo lectura, para editar se tenga que pulsar un botón y el cursor se situe en el inicio del texto.

Gracias de nuevo
cnavarro wrote:Algo asi como se comenta aqui?

http://forums.fivetechsupport.com/viewt ... on#p145263
Jorge
--------------------------------------------------
Fivewin 18.10 - Harbour - BCC 7 - PellesC
--------------------------------------------------
Jorge_T
Posts: 36
Joined: Tue Jan 22, 2019 8:28 am

Re: Testrtf5.prg - RichEdi5

Post by Jorge_T »

He logrado abrir en solo lectura:

@ 03, 0 RICHEDIT5 oRTF VAR cRTF OF oWnd File "TestRTF.RTF" READONLY


Como cambio para el que el RTF sea editable al pulsar un botón
DEFINE BUTTON obtns OF oBar resource "Edit";
MESSAGE "Editar Texto" TOOLTIP "Editar" NOBORDER;
ACTION oRTF:..

Gracias,
Jorge
--------------------------------------------------
Fivewin 18.10 - Harbour - BCC 7 - PellesC
--------------------------------------------------
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Testrtf5.prg - RichEdi5

Post by cnavarro »

Code: Select all

oRtf:SetReadOnly( .F. )
oRtf:SetPos( 0 )
 
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Jorge_T
Posts: 36
Joined: Tue Jan 22, 2019 8:28 am

Re: Testrtf5.prg - RichEdi5

Post by Jorge_T »

cnavarro wrote:

Code: Select all

oRtf:SetReadOnly( .F. )
oRtf:SetPos( 0 )
 
Muchas gracias!!!! funciona perfectamente.
Jorge
--------------------------------------------------
Fivewin 18.10 - Harbour - BCC 7 - PellesC
--------------------------------------------------
Post Reply