Выделение элементов Listbox цветом Опции

[Jaxx]

Короче, есть такая проблема. Пишу программку одну, и застрял на последнем этапе. Есть два Листбокса. В них выводятся старое значение CRC и новое значение соответственно. Так вот надо, чтобы если CRC изменилось, то вывести его новое значение CRC например, красным цветом. Проблема имеет место быть на последней вкадке, "Контроль файлов, стоящих на учете".
Заодно может, кто еще какие-нить недостатки обнаружит.

PS Прошу удалить предыдущее сообщение, нечаянно послал не то, что надо...  temp.rar ( 40.39 килобайт ) Кол-во скачиваний: 452


Сообщение отредактировано: Jaxx - 18.04.2006 20:55

[Ozzя]

В ДРКБ смотрел?

Как в ListBox нарисовать Item своим цветом?

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;  
Rect: TRect; State: TOwnerDrawState);  
begin  
 With ListBox1 do   
 
  
 begin   
 
  
 If odSelected in State then   
 
   Canvas.Brush.Color:=clTeal { твой цвет }   
 
 else   
 
   Canvas.Brush.Color:=clWindow;   
 
 Canvas.FillRect(Rect);   
 
 Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);   
 
  
 end;   
 
  
end;

Hе забудьте установить свойство Style у своего ListBox в lbOwnerDrawFixed или в
lbOwnerDrawVariable.
Взято из http://forum.sources.ru