Ver Mensaje Individual
  #2  
Antiguo 06-05-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Reputación: 25
__cadetill Va por buen camino
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
Responder Con Cita