Цветные строки

[Altera]

Всем привет
Случайно никто не знает, как сделать так, чтоб в компоненте tListBox
строки були разного цвета.
Просто очень интересно!

[Stilet]

Я знаю. Обработать событие OnDrawItem в котором делать отрисовку разными цветами

[Altera]

Что-то у меня не очень это получается, может вы напишете мне код...
допустим, когда я нажму button1, то добавлялась бы строка красного цвета, а когда нажму button2 - синего...
Спасибо заранее...

[mihali4]

Сообщение от Altera

Что-то у меня не очень это получается, может вы напишете мне код...

Так он уже написан ! Программистами Борланда.
Откройте хэлп по указанному событию - там есть прекрасный пример...
Заодно научитесь и картинки в листбоксе рисовать...
Будьте же самостоятельнее в поиске. Нельзя же про каждую ерундовину отдельную тему заводить. Нужно ведь и "рогом шевелить"...

[Alter]

Я обычно храню цвета в качестве объекта строки.
Например:

.......................................................................
Var Tcl :TColor;
begin
 WITH ListBox1 DO
 begin
     // 0...N-1 - Номера строк
  Items.Objects[0] := Pointer( clRed ); // Помещаем нужное на хранение
  Tcl := TColor( Items.Objects[0] ); // Извлекаем сохранёное
  Items.Objects[0] := Nil; // Сбрасываем значение
 end
end;