вопрос по listview

[denis76560]

Здравствуйте уважаемые форумчане.
Пишу менеджер своих паролей, возник такой вопрос, в listview с несколькими колонками уже забиты данные, мне нужно если Caption у строки повторяется с какой либо другой строкой и SubItems[1] у них тоже совпадают они выделялись другим цветом.
Переписал другой код из вэба, получилось что он их просто отмечает чекбоксами, а вот как ни пытался поменять цвет таких уже существующих строк - не смог победить злосчастный listview.
Вот код который отмечает их чекбоксами.

procedure MarkLines(const LV:TListView);
var
  i,j: Integer;
begin
  LV.Items.BeginUpdate;
  LV.SortType := stText;
  try
    for i := LV.Items.Count-1 downto 0 do // <- this loop now counts _down_
    begin
      for j:= LV.Items.Count-1 downto i+1 do // <- this loop now counts _down_
      begin
        if  SameText(LV.Items[i].Caption, LV.Items[j].Caption) and
            SameText(LV.Items[i].SubItems[1], LV.Items[j].SubItems[1]) then
            begin
            LV.Items[j].Checked:=True;
            LV.Items[i].Checked:=True;
            end;
      end;
    end;
  finally
    LV.SortType := stNone;
    LV.Items.EndUpdate;
  end;
  ShowMessage('Отмечены одинаковые сервисы с одинаковыми паролями');
end;

использую так

MarkLines(ListView2);

помогите пожалуйста его переделать чтоб он отмечал их цветом, заранее благодарен любой помощи.

[min@y™]

для раскрашивания и прочих свистоперделок есть жэ события

190.jpg

[denis76560]

Спасибо, но как я понимаю это можно указать только при добавлении новой ячейки или как их скрестить с моим кодом ?

[min@y™]

Спасибо, но как я понимаю это можно указать только при добавлении новой ячейки или как их скрестить с моим кодом ?

тебя в гугле забанили?
погуглить за тебя?

[denis76560]

Сообщение от min@y™

тебя в гугле забанили?
погуглить за тебя?

да я это уже читал, проблема в том как это связать с вышеуказанной процедурой.

[min@y™]

проблема в том как это связать с вышеуказанной процедурой.

никак. выкинь её и напиши хороший, годный код.