FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambiar el color de letras en texto
Posts: 41
Joined: Tue May 13, 2008 01:53 AM
Cambiar el color de letras en texto
Posted: Thu Sep 04, 2014 01:10 AM

Hola amigos, preciso de ayuda para resolver esto.
Tengo el siguiente texto en un Get When .F. CAL/LOM/STR/POR, son codigos separados por una barra y para que quede mas facil de visulizar el cliente me pidio que cada conjunto de letras separadas por la barra sean de un color diferente, por ejemplo CAL en rojo, LOM en azul etc.
Alguien tiene alguna idea de como hacerlo?

Buenos Aires - Argentina - Viviendo en Porto Alegre - RS - Brasil
daniel_halon@portobakers.com.br
FW 2.7- xHarbour 0.99.71 - PellesC
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Re: Cambiar el color de letras en texto
Posted: Thu Sep 04, 2014 01:41 AM
daniel_halon:

Se me ocurre algo muy simple para lo que solicitas siempre y cuando el texto a mostrar se componga como lo indicas:

Puedes usar 4 gets independientes uno para cada variable y 3 say para separar con "/", armalo lo m谩s junto posible en tu editor de forma que quedecomo si fuera un solo control:



Solo una idea..

saludos..
Soluciones y Dise帽o de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Posts: 990
Joined: Wed Oct 19, 2005 02:17 PM
Re: Cambiar el color de letras en texto
Posted: Thu Sep 04, 2014 07:52 AM
Daniel,

mira si puedes adaptar el c贸digo que coloc贸 aqu铆 Paco Garc铆a:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29031

Saludos
Posts: 41
Joined: Tue May 13, 2008 01:53 AM
Re: Cambiar el color de letras en texto
Posted: Thu Sep 04, 2014 08:56 PM

Voy a ver como puedo adaptar el programa de Paco o tal vez me incline por poner el texto en un array, desde ya gracias a todos.

Buenos Aires - Argentina - Viviendo en Porto Alegre - RS - Brasil
daniel_halon@portobakers.com.br
FW 2.7- xHarbour 0.99.71 - PellesC
Posts: 41
Joined: Tue May 13, 2008 01:53 AM
Re: Cambiar el color de letras en texto
Posted: Tue Sep 09, 2014 02:58 PM
Amigos, no he conseguido todavia hacer lo que me pide el cliente
Imaginen que estoy tomando un pedido por telefono en una pizzaria donde digito el codigo del produto y la descripcion del mismo va automaticamente en el get del qual estamos hablando, por ejemplo: digito CO2 y la descripcion es 'COCA COLA 2 LITROS', hasta ahi todo bien , pero cuando el cliente quiere colocar varios sabores en la pizza el operador digita ZZG asi el sistema reconoce este c贸digo como pizza y a traves de 4 gets va digitando los codigos de los sabores de la pizza, ejemplo: CAL/POR/FRA, en la momento de terminar de formatar los tres sabores, en el get en question aparece la suma de todos los tres o cuatro gets con los sabores con la barra de separa莽茫o entre ellos, es ahi donde deve aparecer cada codigo diferente del sabor de las pizzas en colores diferentes, asi: CAL/POR/FRA estes datos estan en un Get con la opcion When .F. Para el cliente parece simples demas pero no consigo hacerlo.

Vean abajo la pantalla para dar una idea

https://www.dropbox.....41.19.png?dl=0
Buenos Aires - Argentina - Viviendo en Porto Alegre - RS - Brasil
daniel_halon@portobakers.com.br
FW 2.7- xHarbour 0.99.71 - PellesC
Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Re: Cambiar el color de letras en texto
Posted: Tue Sep 09, 2014 06:31 PM

Daniel, me parece que la 煤nica soluci贸n va a ser crear una nueva clase TGET. Copia la antigua, c谩mbiale el nombre y despu茅s modif铆cala.

Supongo que tendr谩s que cambiar el m茅todo PAINT para que te escriba en diferentes colores. Tendr谩s que a帽adir un array bidimensional con los posibles c贸digos y colores asociados, y en el PAINT comprobar con ASCAN si se ha escrito alguno de los c贸digos del array. Para pintarlos te aconsejo DRAWTEXT y medir lo que ocupa cada c贸digo con GETTEXTWIDTH.

Otra soluci贸n ser铆a modificar el m茅todo KEYCHAR para identificar los c贸digos durante la construcci贸n del CAPTION, y podr铆as a帽adir un c贸digo oculto entre cada c贸digo. Por ejemplo #1CAL/#5LOM/#2POR, y en el PAINT pintar CAL con el color 1 del array, LOM con el color 5 y POR con el 2.

De todas formas te vas a tener que calentar la cabeza.

Suerte

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55
Posts: 41
Joined: Tue May 13, 2008 01:53 AM
Re: Cambiar el color de letras en texto
Posted: Tue Sep 09, 2014 07:20 PM
Buenos Aires - Argentina - Viviendo en Porto Alegre - RS - Brasil
daniel_halon@portobakers.com.br
FW 2.7- xHarbour 0.99.71 - PellesC
Posts: 41
Joined: Tue May 13, 2008 01:53 AM
Re: Cambiar el color de letras en texto
Posted: Tue Sep 09, 2014 07:24 PM

Es verdad Antolin, es mas, no se si vale la pena todo ese trabajo para agradar un cliente con algo que me parece que no es tan indispensable, de todas maneras muchas gracias. Abrazos

Buenos Aires - Argentina - Viviendo en Porto Alegre - RS - Brasil
daniel_halon@portobakers.com.br
FW 2.7- xHarbour 0.99.71 - PellesC

Continue the discussion