kolor wierszy w listview

0

Mam problem ze zmiana koloru wiersza w listview.
Dokładnie chodzi mi o to zeby cały wiersz zmieniał kolor po spełnieniu określonego warunku

Próbuje tak:

if (DataModule2.ADOQuery3.FieldByName('tytul').AsString='Herbie') then
Listview1.Canvas.Brush.Color:=clLime;
ale cosik nie smiga

prosze o odpowiedz ( a najlepiej z kodem )

0
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState;
  var DefaultDraw: Boolean);
const
  cStripe = $CCFFCC;  // colour of alternate list items
begin
  if Odd(Item.Index) then
    // odd list items have green background
    ListView1.Canvas.Brush.Color := cStripe
  else
    // even list items have window colour background
    ListView1.Canvas.Brush.Color := clWindow;
end;

Tutaj co drugi wiersz jest kolorowany na cStripe.
Przerób ten kod na swoje zachcianki.
Hmm wiesz co to google i szukanie tam? :>

0

Heh wiem co to google i szukanie tam :>
Niestety google nie spełnia moich zachcianek tak jakbym tego chciala ;-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0