[FreddyZSX]

Подскажите, пожалуйста...

Как сделать
1. чтобы строки в ListBox по признаку, допустим bAlarm, закрашивались красным цветом?
2. При добавлении новой строки красная строка бы сдвигалась вместе со всем списком?
3. При сохранении и последующем чтении из файла в ListBox строки сохраняли свой цвет? (если возможно..)

[NumLock]

ручная отрисовка

[Alegun]

Что такое "по признаку, допустим bAlarm"?

А так, вот пример из drkb

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
 myBrush: TBrush;
begin
 myBrush := TBrush.Create;
 with (Control as TListBox) do
 begin
  if Items[index] = 'bAlarm'  then
  myBrush.Color := clRed else myBrush.Color := clWhite;
  myBrush.Style := bsSolid;
  Windows.FillRect(Canvas.Handle, Rect, myBrush.Handle);
  Brush.Style := bsClear;
  Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
  MyBrush.Free;
 end;
end;

чтоб это заработало, выставите свойство Style как lbOwnerDrawFixed

[FreddyZSX]

Спасибо всем, разобрался!
помогло:
http://www.cyberforum.ru/delphi-begi...tml#post614684

[FreddyZSX]

Хорошо в ListBox цветные кнопки пишутся...
А как же их сохранять в файл и потом при загрузке из файла в ListBox строки сохраняли свои цвета?

[Alegun]

Есть несколько вариантов, конкретно - показывайте свой код, и по нему можно определить какой из них подойдёт больше всего

[NumLock]

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

Хорошо в ListBox цветные кнопки пишутся...
А как же их сохранять в файл и потом при загрузке из файла в ListBox строки сохраняли свои цвета?

например как это делают в html