FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Como darle color a un TListColumn?
Hola a todos, soy nuevo en este forum, espero alguna vez poder ayudar en algun problema que se presente.
Resulta que estoy desarrollando una aplicación cuya interfaz utiliza un TListView con columnas (es decir TListView.ViewStyle=vsReport), el problema es que quisiera saber como puedo darle un color a cada TListColum que forma parte del conjunto de columnas del TListView. Gracias de antemano. |
#2
|
|||
|
|||
Hola, create un formulario pon en él un ListView, el ListView.ViewStyle a vsReport y el ShowColumnHeaders a True y enganchale estos eventos, lo que he marcado en verde sería para pintar las columnas de forma independiente, si tienes más de dos columnas las siguientes te las dejará con el color de la 2.
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); begin with Sender.Canvas do begin if subItem mod 2 = 0 then Brush.Color := clyellow else Brush.Color := clRed; { case subitem of 1: Brush.Color := clyellow; 2: Brush.Color := clRed; end} end; end; procedure TForm1.ListView1CustomDraw(Sender: TCustomListView; const ARect: TRect; var DefaultDraw: Boolean); begin Sender.Canvas.Brush.Color := clWhite; Sender.Canvas.FillRect(ARect); end; procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin with Sender.Canvas do begin Brush.Color := clBlue; end end; Un saludo. |
#3
|
|||
|
|||
Muchas gracias IUGRUL, la solución me la enviaste con rapidez, acabo de probar el código que me enviaste y da resultados. Estoy muy agradecido.
Tengo otra inquietud, quizas me puedas ayudar. Quisiera saber como cambiar el color de las cabeceras de las columnas del ListView, me refiero no al color de toda la columna, sino solo del título de la columna. Una vez mas gracias. |
#5
|
|||
|
|||
Una vez mas: Gracias IUGRUL
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|