[Gman]

Всем привет!
Необходимо чтобы при сравнении итемсов 2 листбоксов, текст тех итемсов в листбоксе1, стал красного цвета, которых нет в листбоксе2.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

for i:=0 to ListBox1.Count - 1 do  for j:=0 to ListBox2.Count - 1 do   if ListBox1.Items[i]=ListBox2.Items[j] then begin cvt:=i; xcv:=0; break; end else begin cvt:=i; xcv:=1; end;   Код процедуры листбокса1: procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;   Rect: TRect; State: TOwnerDrawState); var ij,ji:integer; begin with (Control as TListBox).Canvas do  Begin   if xcv=0 then if index=cvt then font.Color:=clgreen;   if xcv=1 then if index=cvt then font.Color:=clred;   FillRect(Rect);   TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);  end; end;

Admin: Не забываем про теги, при рецедиве бан! Не обессудь за минус...

ПОМОГИТе пож.! Мучаюсь скока времени!!! Код, что я привёл один из множества вариантов, которые я испробовал - но выходит не то!(((

[dimsog]

Т.е. если item'a из первого листбокса нету во втором листбоксе, то выделить его красным цветом?
Если я правильно понял, то вот простейший код:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;   Rect: TRect; State: TOwnerDrawState); begin  With ListBox1 do begin    If Listbox2.Items.IndexOf(Items[index]) = -1 then begin       Canvas.Font.color := clred;    end else       Canvas.Font.Color := clgreen;    Canvas.TextOut(Rect.Left +1,Rect.Top +1,items[index]);  end; end;

ListBox1 - OwnerDrawFixed