edwinhp2 Lt JG

Registrado: 19 Nov 2005Mensajes: 67
|
Publicado: Vie 11 Abr, 2008 7:59 am Asunto: Color de fondo de una fila del TListView |
|
|
Hola compañeros,
Hace tiempo les pedí apoyo para pintar las líneas horizontales del listivew como lo hace el outlook, el gran _Leo ( como siempre ) me proporcionó el código, ahora le agregué unas variantes, el fondo de las filas.
Cuando pinto el fondo de una fila y esta tiene una imagen, no me pinta el fondo del area donde se encuentra la imagen, ¿¿¿ alguien le ha pasado ???
les anexo el código que utilizo.
Saludos y gracias.
[code]
void __fastcall TForm4::ListView1AdvancedCustomDrawItem(TCustomListView *Sender,
TListItem *Item, TCustomDrawState State, TCustomDrawStage Stage,
bool &DefaultDraw)
{
div_t x;
x = div(Item->Index,2);
if (Stage == cdPrePaint || Stage == cdPostPaint)
{
TRect r = Item->DisplayRect(drBounds);
if ( x.rem == 0 )
Sender->Canvas->Brush->Color = clWhite;
else
Sender->Canvas->Brush->Color = 0xFFEFE3;
Sender->Canvas->Pen->Color = (TColor)0xCF9365;
Sender->Canvas->MoveTo(r.Left, r.Bottom-1);
Sender->Canvas->LineTo(r.Right, r.Bottom-1);
}
}
[/code] |
|