Testrtf5.prg - RichEdi5

Testrtf5.prg - RichEdi5

Postby Jorge_T » Tue Oct 15, 2019 5:16 pm

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
--------------------------------------------------
Jorge_T
 
Posts: 38
Joined: Tue Jan 22, 2019 8:28 am

Re: Testrtf5.prg - RichEdi5

Postby cnavarro » Tue Oct 15, 2019 6:22 pm

Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6501
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Testrtf5.prg - RichEdi5

Postby Jorge_T » Thu Oct 17, 2019 10:34 am

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: 38
Joined: Tue Jan 22, 2019 8:28 am

Re: Testrtf5.prg - RichEdi5

Postby Jorge_T » Thu Oct 17, 2019 5:52 pm

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
--------------------------------------------------
Jorge_T
 
Posts: 38
Joined: Tue Jan 22, 2019 8:28 am

Re: Testrtf5.prg - RichEdi5

Postby cnavarro » Thu Oct 17, 2019 6:23 pm

Code: Select all  Expand view

oRtf:SetReadOnly( .F. )
oRtf:SetPos( 0 )
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6501
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Testrtf5.prg - RichEdi5

Postby Jorge_T » Thu Oct 17, 2019 7:30 pm

cnavarro wrote:
Code: Select all  Expand view

oRtf:SetReadOnly( .F. )
oRtf:SetPos( 0 )
 


Muchas gracias!!!! funciona perfectamente.
Jorge
--------------------------------------------------
Fivewin 18.10 - Harbour - BCC 7 - PellesC
--------------------------------------------------
Jorge_T
 
Posts: 38
Joined: Tue Jan 22, 2019 8:28 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 11 guests