FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour colorizar frase en tRichedit
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
colorizar frase en tRichedit
Posted: Tue Nov 06, 2007 07:27 PM

Buenas tardes,
Necesitaría que dentro de un archivo que edito con la clase richedit, una frase o alguna palabra que previamente defina, salga "colorizada" en todas las posiciones que esta se encuentre.
Esto es para poder distinguir la frase palabra buscada dentro del .RTF que estoy editando.
¿Es esto posible?. Uso FWH 2.7 + xHarbour.
Gracias. :D

Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
colorizar frase en tRichedit
Posted: Tue Nov 06, 2007 07:45 PM

creo que el amigo "verce" te podria ayudar con eso ya que el lo hace en verce, valga la redundancia

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
colorizar frase en tRichedit
Posted: Tue Nov 06, 2007 08:30 PM

Rolando,

Revisa el código del método Colorize() de la Clase TRichEdit.

Hace exactamente lo que quieres

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
colorizar frase en tRichedit
Posted: Wed Nov 07, 2007 12:52 AM

Buenas noches,

Revisé el método Colorize() y, en principio me sirve para lo que necesito.

Ahora necesitaría un método o función para obtener todas las posiciones nStart en la que se encuentra la palabra para pasarle como parámetro al método y me "colorice" todas las palabras. ¿Existe o debo crearlo?. Si debo crearlo, por favor alguna ayuda. Gracias. Rolando :D

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
colorizar frase en tRichedit
Posted: Wed Nov 07, 2007 08:22 AM
Rolando,

Tienes que hacerlo tu recorriendo cada una de las líneas del richedit.

Fíjate en como lo hacemos en el método HighLightAllText():
   for nLine := 1 to ::GetLineCount()
       ::HighLightLine( nLine )
       SysRefresh()
   next

Desde ::HighLightLine() llamamos a ::GetLine( nLine ) que nos da el texto de cada línea
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
colorizar frase en tRichedit
Posted: Wed Nov 07, 2007 11:41 AM

Mi idea es que una función me entregue todos los nStart en un array para poder de este modo "colorizar".
Ahora tengo una orientación y trataré de crear esa función.
Antonio, muchas Gracias por la Ayuda.
Rolando :D

Continue the discussion