Problema curioso con listview

[ecfisa]

Hola Choclito.

Creo entender que buscas que el valor de la propiedad Caption del Item aparezca pintado cuando el valor del SubItem cumpla determinada condición.
Si te entendí bien, entonces creo que tendrías que hacer la evaluación en el evento OnCustomDrawItem, por ejemplo:

Código Delphi [-]
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.SubItems[0] = 'C2' then
  begin
    Sender.Canvas.Brush.Color:= clRed;
    Sender.Canvas.Font.Color:= clWhite;
  end;
end;

Un saludo.

[Choclito]

muchas gracias amigo por el post, lo probare pero cuan desesperado estaba lo cambie con un dbgrid
Mi intencion es hacer un sistema de colas y es por eso que queria mostrar los datos en un tlistview en la parte inferior del formulario, lo cambie con un dbgrid que lo puse al extremo derecho del formulario
NUevamente preguntando a los amigos de foro:
MI pregunta es: puedo cambiar los colores de las celdas de un dbgird desde un boton ?? que codigo tendria que colocar
Bueno tengo lo siguiente::

Código Delphi [-]
procedure TF_Egreso_Med_Q.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if column.Index=2 then
begin
    if gdFocused in State then begin
    DBGrid2.Canvas.Brush.Color := clyellow;    // Color que quieras que tenga el fondo si la línea tiene foco;
      DBGrid2.Canvas.Font.Color  := clblue;   // Color del Font que quieras que tenga si la línea tiene foco
        dbgrid2.Canvas.Font.Size := 10;
        dbgrid2.Canvas.Font.Style := [fsBold]

    end;
    end;
      if MDOQ_Med_Q.FieldByName('valor').AsString='N' then
  begin
  dbgrid2.Canvas.Brush.Color:=clred;
  dbgrid2.Canvas.Font.Color:=clblack;
  end;
     if MDOQ_Med_Q.FieldByName('valor').AsString='F' then
  begin
  dbgrid2.Canvas.Brush.Color:=clyellow;
  dbgrid2.Canvas.Font.Color:=clblack;
  end;
  dbgrid2.DefaultDrawColumnCell(Rect,Datacol,Column,State);

end;

pero esto es un evento del dbgrid
lo que quisiera es desde un boton o un event en el form
Espero haber sido entendido y estare atento a sus comentarios amigos del foro
PD:era necesario abrir otro post???

[ecfisa]

Hola Choclito.

PD:era necesario abrir otro post???

Si no te incomoda hacerlo, te lo agradecería. De ese modo es más fácil que otros compañeros encuentren respuesta a un problema similar cuando realizen las búsquedas.

Un saludo.

[Choclito]

Disculpas por la torpeza, lo hare inmediatamente