Listview da Renk Problemi

[kurtel]

Arkadaşlar bir problemim var, Yardımcı olabilirseniz sevinirim.
Problemim;
Listview ın Report (View Style) özelliğini kullanarak Query den verileri okuyup Listview a aktarma yapıyorum. Yalnız benim istediğim Bazı kayıtlarda Listviewın satır Fontunun renkli olması.(Mesela Kırmızı) Dbgrid Componentinde bunu yapabiliyorum ama Listview componentinde yapamadım.

Bu konu da yardımcı olabilirseniz memnun olurum.
Teşekkürler

[salvation]

Bu kodla istediğin satırları renklendirebilrsin.

Kod: Tümünü seç

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; 
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
  with ListView1.Canvas.Brush do 
  begin 
    case Item.Index of 
      0: Color := clBlue; 
      1: Color := clGreen; 
      2: Color := clRed;
      3: Color := clPink 
    end; 
  end; 
end;

[kurtel]

salvation Teşekkürler, gönderdiğin bilgi işime yaradı