Club Builder

[Federico]

Lo que necesito es cambiar el color de fondo de una sola linea,en un richedit

[_Leo]

Hola Federico:

A ver si te sirve esta función, la he probado en BCB1, 3 y 5.

 //---
 void PintarFondoLinea(TRichEdit *RichEdit, int Linea, TColor Color)
 {
    // Seleccionamos la linea
    int iStart = RichEdit->Perform(EM_LINEINDEX, Linea-1, 0);
    int iEnd = RichEdit->Perform(EM_LINEINDEX, Linea, 0);
    RichEdit->Perform(EM_SETSEL, iStart, iEnd);

    // Pintamos el fondo de la selección del color especificado
    ::CHARFORMAT2 cf;
    cf.cbSize = sizeof(cf);
    cf.dwMask = CFM_BACKCOLOR;
    cf.crBackColor = ColorToRGB(Color);
    RichEdit->Perform(EM_SETCHARFORMAT, SCF_SELECTION, (int)&cf);

    // Quitamos la selección
    RichEdit->Perform(EM_SETSEL, 0,0);
 }
 //---

y la usamos por ejemplo así:

    // Pintamos la linea 4 del RichEdit1 de amarillo
    PintarFondoLinea(RichEdit1, 4, clYellow);

---
Saludos.
_Leo

PD: Esto solo funciona en la versión 2 del richedit o superior, por lo que en las primeras versiones de Windows95 sin actualizar podría no funcionar.

[likibuay]

buen día _Leo! probando tu función la utilice con QRRichText en un QReport y no me da error pero tampoco me pinta las lineas... puede ser?

gracias de antemano.
_________________
><(((((º> From °l||l° §ÂN ÅNЮ€$ i§Lã$ °l||l°
_____________________

[_Leo]

No estaba pensado para usarla con "TQRRichText", el problema es que este componente no desciende del RichEdit, crea un RichEdit internamente que no es lo mismo. Puedes usarla asi:

    TRichEdit* edit = static_cast<TRichEdit*>(QRRichText1->Controls[0]);
    PintarFondoLinea(edit, 4, clYellow);