Cambiar estilo de fuente en columna de ListView

[andre]

Hola Amigos,

Estoy buscando la manera de cambiar el estilo de la fuente en solo una de las columnas o solo una fila de un ListView. La propiedad Font lo hace pero para todo el componente y lo necesito para una celda, fila o columna separado.

Muchas gracias.

[__cadetill]

Hola

Para poder cambiar el font del Item tendras que programar el evento CustomDrawItem

Te pongo un ejemplo para pintar una determinada fila sabiendo el texto de esta

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
     if Item.Caption = 'ComboBox1' then
        ListView1.Canvas.Font.Color := clRed;
end;

Y para los subitems el evento CustomDrawSubItem. Un ejemplillo

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
     if Item.Caption = 'ComboBox1' then
       case SubItem of
            1 : ListView1.Canvas.Font.Color := clMaroon;
            2 : ListView1.Canvas.Font.Color := clYellow;
            3 : ListView1.Canvas.Font.Color := clPurple;
            4 : ListView1.Canvas.Font.Color := clTeal;
       end;
end;

Espero te sirva

[__cadetill]

Hola Andre

Acabo de subir a mi web una ampliación que tenía de funcionamiento del TListView

He añadido la funcionalidad de dar color por filas y/o por columnas por si te interesa y quieres descargártelo.

Espero que sea esto lo que buscas

[andre]

Gracias cadetill por contestar esta pregunta y muchisimas gracias por el programa que subiste a tu pagina, esta espectacular, estoy aprendiendo mucho de el.

Saludos.