Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Выделение элементов Listbox цветом

Автор: Jaxx 18.04.2006 20:46

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

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

Автор: Ozzя 19.04.2006 12:45

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

Цитата
Как в 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