Изменение строки в ListBox

[Ericnex]

У меня в ListBox заносятся элементы массива в столбец. Как можно изменить цвет строки или цвет шрифта, если элемент массива < 0?

[ReportCube]

А зачем массив заносится в TListBox? Массив в массив?

[Gregor]

а массив какие индексы у вас имеет? О каком элементе <0 идет речь?

[evg_m]

задать процедуру обработки события OnDrawItem.
в которой на основе предоставленых данных либо рисовать самому методами Canvas c установкой нужных свойств (Brush, Pen) либо управлять стандартной отрисовкой с помощью параметров.

[Dux]

Попробуйте это. Прорисовка разными цветами самого текста в строках:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AddLog(const aStr : String; const aColor : TColor);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AddLog(const aStr: String; const aColor: TColor);
begin
  //Добавляем в качестве очередного элемента пару: строка + объект.
  //Но в качестве объекта передаём на самом деле сведения о цвете.
  //Т. е. таким образом мы добавляем информацию - строку и цвет шрифта,
  //которым будет прорисован текст этой строки.
  ListBox1.Items.AddObject(aStr, TObject(aColor));
end;
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  OldColor : TColor;
begin
  with ListBox1.Canvas do begin
    //Запоминаем действующий цвет шрифта.
    OldColor := Font.Color;
    //Извлекаем сведения о цвете шрифта и задаём для шрифта канвы этот цвет.
    Font.Color := TColor( ListBox1.Items.Objects[Index] );
    //Выводим текст строки.
    TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
    //Восстанавливаем прежний цвет шрифта.
    Font.Color := OldColor;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  AddLog(
    'Строка №' + IntToStr(ListBox1.Items.Count),
    RGB(Random(11) * 20 , Random(11) * 20, Random(11) * 20)
  );
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Clear;
end;
 
end.