Colors in TListBox

[Spent]

Is it possible to have a TListBox on which different lines to have a different color for example:
line1 // red color
line2 // green color

Thanks !

Spent
mail:spentbg@yahoo.com

 

[towerbase]

Set the Style property of your listbox to

lbOwnerDrawFixed

.

Write an OnDrawItem event handler along the lines of:

[COLOR=blue]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 case index of
  0: ListBox1.Canvas.Brush.Color := clRed;
  1: ListBox1.Canvas.Brush.Color := clBlue;
  2: ListBox1.Canvas.Brush.Color := clGreen;
  3: ListBox1.Canvas.Brush.Color := clAqua;
 end;
 ListBox1.Canvas.TextRect(rect,rect.Left,rect.Top,ListBox1.Items[index]);
end;

[/color]

Andrew
Hampshire, UK