Нет, Вы меня не совсем правильно поняли.
Есть ListBox c набором записей и есть ListView c несколькими колонками в каждой из которых имеется набор записей. Мне надо, чтобы в ListBox записи имели красный цвет если в ListView в первой колонке не было такой же записи и зелёным если имелась.
Код:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if ListBox2.Items.IndexOf(ListBox1.Items[Index]) =-1
then TListBox(Control).Canvas.font.Color := clRed; TListBox
else TListBox(Control).Canvas.font.Color := clgreen;
end;
Т.е. у меня было первоначально сравнение с таким же ListBox, а я сейчас хочу сравнить с ListView.