| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
tyloya Master

Registrado: 20 Ago 2002Mensajes: 175
|
Publicado: Mie 18 Jun, 2003 11:03 pm Asunto: Poner palabra en negrita en TRichEdit |
|
|
Tengo un problema tonto....pero que no consigo resolver....y por eso os escribo.
Quiero poner en un TRichEdit una línea en negrita, y para eso hago esto:
RICHEDIT->SelAttribute->Style <<fsBold
a continuación añado una línea y no aparece en negrita......Por qué es?
RICHEDIT->Lines->Add("HOLA") |
|
| Volver arriba |
|
 |
lycopersium Lt


Registrado: 12 Oct 2002Mensajes: 90Ubicación: Roquetas de Mar - Almería
|
Publicado: Jue 19 Jun, 2003 8:04 pm Asunto: |
|
|
Hola que tal
prueba a poner esto:
Rich->SelAttributes->Style=Rich->SelAttributes->Style<<fsBold;
Saludos. |
|
| Volver arriba |
|
 |
tyloya Master

Registrado: 20 Ago 2002Mensajes: 175
|
Publicado: Vie 20 Jun, 2003 12:11 am Asunto: |
|
|
Pues sí, con eso me funciona, y fíjate que lo había probado antes y no me resultaba....no sé que haría mal..
Ah!!otra cosilla de los richedit, si quiero poner una línea en la que antes de los dos puntos las palabras aparezcan en negrita y lo que siga en la misma línea aparezca sin estar en negrita, cómo debería hacerlo para que aparezca en la misma línea combinando una parte en negrita y otra en estilo normal
Muuuuchas gracias |
|
| Volver arriba |
|
 |
lycopersium Lt


Registrado: 12 Oct 2002Mensajes: 90Ubicación: Roquetas de Mar - Almería
|
Publicado: Vie 20 Jun, 2003 1:25 am Asunto: |
|
|
Hola de nuevo. Eso lo puedes hacer con SelStart y SelLength. Seguramente habrá alguna manera de hacerlo más rápida, pero ahi va un ejemplillo para q te de una idea
| Código: |
//en un boton por ejemplo pon
int longitud=RichEdit1->Text.Length();
RichEdit1->Lines->Add("antes: despues");
RichEdit1->SelStart=longitud;
RichEdit1->SelLength=RichEdit1->Lines->Strings[RichEdit1->Lines->Count-1].Pos(":");
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
|
lo que hace es seleccionar el texto desde el comienzo de cada linea hasta que encuentra los : y le aplica el SelAttributes.
espero q te sirva, bye!. |
|
| Volver arriba |
|
 |
tyloya Master

Registrado: 20 Ago 2002Mensajes: 175
|
Publicado: Vie 20 Jun, 2003 9:09 am Asunto: |
|
|
La verdad es que me ha servido de mucho, porque no era tan obvio como podría parecer...
Otra vez gracias por tu ayuda  |
|
| Volver arriba |
|
 |
tyloya Master

Registrado: 20 Ago 2002Mensajes: 175
|
Publicado: Sab 21 Jun, 2003 8:58 am Asunto: |
|
|
| Código: |
//en un boton por ejemplo pon
int longitud=RichEdit1->Text.Length();
RichEdit1->Lines->Add("antes: despues");
RichEdit1->SelStart=longitud;
RichEdit1->SelLength=RichEdit1->Lines->Strings[RichEdit1->Lines->Count-1].Pos(":");
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
|
¿Cómo consigo que el texto que escriba después de poner el Stylo a negrita vuelva a ser el normal? |
|
| Volver arriba |
|
 |
lycopersium Lt


Registrado: 12 Oct 2002Mensajes: 90Ubicación: Roquetas de Mar - Almería
|
Publicado: Sab 21 Jun, 2003 10:05 am Asunto: |
|
|
Saca el estilo negrita del Set:
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style>>fsBold; |
|
| Volver arriba |
|
 |
tyloya Master

Registrado: 20 Ago 2002Mensajes: 175
|
Publicado: Sab 21 Jun, 2003 10:22 am Asunto: |
|
|
Muchísimas gracias, no sabes las vueltas que le he dado.
Hasta pronto  |
|
| Volver arriba |
|
 |
|