Listview Subitem renklendirme problemi

[carsoft]

Listview'e eklenen subitem '0001kayıtlı' , '0002kayıtlı' şeklinde benim yapmak istedigim

eğer 'kayıtlı' kelimesi varsa o satırı kırmızı renk yapmak istiyorum.

[ikra]

viewtopic.php?f=2&t=35188

[carsoft]

ben seçli olan satırı veya belirli bir subitemi degil kayıtlar karışık mesela bir cümle içinde geçen bir kelime varsa o
satırı komple renklendirmek istiyorum

[ikra]

tamam güzel kardesim, ben de sana benzeri bir konunun link'ini verdim.
diger arkadas selected diye sartlandirmis, sen de kendi sartini belirleyeceksin.

[brs]

Kod: Tümünü seç

procedure TForm4.RecordsListViewCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if (Item.Index mod 2) = 0 then
  begin
    Sender.Canvas.Brush.Color := RGB(248, 248, 255);
  end
  else
  begin
    Sender.Canvas.Brush.Color := RGB(255, 255, 255);
  end;
  if Item.Selected then
  begin
    Sender.Canvas.Font.Style := [fsBold];
  end;
  if Item.SubItems[5] = 'Kayıtlı' then
  begin
      Sender.Canvas.Font.Style := [fsBold];
      Sender.Canvas.Font.Color := clWhite;
           Sender.Canvas.Brush.Color := clWebTomato;
  end;
  end;