Ver Mensaje Individual
  #12  
Antiguo 02-11-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita