Foros Club Delphi - Cambiar estilo de fuente en columna de ListView

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Cambiar estilo de fuente en columna de ListView (https://www.clubdelphi.com/foros/showthread.php?t=111)

Cambiar estilo de fuente en columna de ListView

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.

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

Código:

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

Código:

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

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

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.