Inicio
Lista de usuarios
Busca
Regístrate
Entrar
Archivo
No estás identificado, regístrate gratis para acceder a todas las funciones del foro o introduce tus datos de acceso .
Páginas: 1
Inicio » Delphi » Listview vsReport : Color de varias Filas
#1 16-05-2005 22:12:17
wence2001@hotmail.com
Invitado
Listview vsReport : Color de varias Filas
Hola Amigos, He buscando bastante en el grupo, pero no he podido solucionar mi problema: Tengo un listview donde muestro parejas de filas, ejemplo : A 1 Dato1 B 1 Dato1 A 2 Dato2 B 2 Dato2 A 3 Dato3 B 3 Dato3 A 4 Dato4 B 4 Dato4 Necesito diferenciar las parejas, para eso he pensado en colorear una de las parejas. Por ejemplo, pintar de mismo color A1,B1,A3,B3. Realice el siguiente codigo en el metodo lvUnoCustomDrawItem : procedure TfrmMain.lvUnoCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin if (TagPair = 2) and (TagColor = 0) then begin TagPair := 0; TagColor := 1; end else if (TagPair = 2) and (TagColor = 1) then begin TagPair := 0; TagColor := 0; end; if TagColor = 1 then lvUno.Canvas.Brush.Color := $FFCCCC; TagPair := TagPair + 1; end; Eso me funciona OK, pero cuando hago scroll o selecciono un item de la grilla pierdo el color de las columnas. Osea, no se mantienen las parejas de filas pintadas. PD. TagPair,TagColor son variables globales para controlar el pintado de las paejas de filas... Muchas Gracias y espero que puedan ayudarme. Wence.
Hoy 06:03:13
Ads
Invitado
Páginas: 1
Inicio » Delphi » Listview vsReport : Color de varias Filas
Temas relacionados
Tema
Respuestas
Vistas
Ultimo mensaje
ListView por delfin
1
48
25-07-2004 19:53:1
