Строки в ListBox

[Ray1987]

Как можно сделать так, чтобы любую строку в ListBox можно было окрасить в свой цвет (как фон так и текст)

[dron-s]

на событие OnDrawItem попробуй повесить такой код

with ListBox1 do
begin
  If odSelected in State then
    Canvas.Brush.Color:=clTeal
  else
    begin
      Canvas.Brush.Color:=clWindow;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
    end;

писал здесь... могут быть ошибки

[RSLoader]

Тема была почти такая же, только про изменение стиля текста там умолчалось. Чуть переделанный код, приведённый там Квэнди:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do
  begin
    if odSelected in State then
    begin
      Brush.Color:=clWhite;
      Font.Color:=clBlack;
      Font.Style:=[fsBold];
    end
    else
    begin
      Brush.Color:=clRed;
      Font.Color:=clYellow;
    end;
    Windows.FillRect(Handle,Rect,Brush.Handle);
    TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);
  end;
end;