Programowanie w języku Delphi » FAQ

Jak pokolorować co drugi element ListView

  • 2007-03-04 18:40
  • 0 komentarzy
  • 775 odsłon
  • Oceń ten tekst jako pierwszy
Zdarzenie OnCustomDrawItem komponentu ListView uzupełnij następująco:

if Odd(Item.Index) then ListView1.Canvas.Brush.Color := clYellow

Spowoduje to pokolorowanie co drugiej pozycji na żółto (począwszy od drugiej). Aby kolorować od pierwszego elementu:

if not Odd(Item.Index) then ListView1.Canvas.Brush.Color := clYellow;