| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Cerúleo
Master
Registrado: 04 Ago 2003Mensajes: 332Ubicación: Santander, España
|
 Publicado: Lun 26 Dic, 2005 1:27 pm Asunto: Alternar color de filas en un TListView |
 |
|
Hola.
Estuve probando hace tiempo un código de _Leo para dar color a filas de un TStringGrid. El código es perfecto y funciona.
El otro día intenté "adaptar" ese código a un TListView (estilo informe) y después de muchos intentos logré que me pintara las líneas de color, pero no he conseguido "pintar" los textos. He probado los eventos OnDrawItem, OnCustomDrawItem y OnCustomDrawSubItem, y me gustaría que alguien me indicara cómo utilizarlos. En los eventos "custom" no aparece el TRect &R, es decir, la superficie pintable donde encajar mis textos y gráficos. He guardado el R del OnDrawItem en una variable global para luego llamar a los eventos "custom", pero no funciona.
¿Alguna sugerencia?
Saludos a todos y Feliz Navidad.
_________________
Nunca digas "Es imposible" sin intentarlo antes. |
|
| Volver arriba |
|
 |
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
| Publicado: Lun 26 Dic, 2005 2:58 pm Asunto: |
|
|
A mi con el siguiente código me funciona bién:
| Código: |
void __fastcall TForm1::ListView1CustomDrawItem(TCustomListView *Sender,
TListItem *Item, TCustomDrawState State, bool &DefaultDraw)
{
if (Item->Index&1){
Sender->Canvas->Brush->Color = clGray;
Sender->Canvas->Font->Color = clYellow;
}
else {
Sender->Canvas->Brush->Color = clWhite;
Sender->Canvas->Font->Color = clNavy;
}
}
|
Prueba y ya me dirás qué tal. Feliz año.
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
|
Cerúleo
Master
Registrado: 04 Ago 2003Mensajes: 332Ubicación: Santander, España
|
| Publicado: Mar 27 Dic, 2005 8:15 am Asunto: |
|
|
Hola Tugui.
Funciona perfectamente. El problema estaba en que había puesto la propiedad OwnerDraw a true y por eso no me dibujaba los items, porque no había ninguna función que lo hiciera.
Si quisiera dibujar los SubItems a mano (para incluir dibujos, estilos de texto, etc)... ¿cómo se podría hacer?
Un saludo y Feliz Año Nuevo.
_________________
Nunca digas "Es imposible" sin intentarlo antes. |
|
| Volver arriba |
|
|
mopa
Cmdr
Registrado: 29 Jun 2004Mensajes: 145
|
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
