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