ListBox + color + items

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
ListBox2: TListBox;
procedure ListBox1Click(Sender: TObject);
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ListBox1Click(Sender: TObject);
var
LB: TListBox;
begin
LB := TListBox(Sender);
if LB.Items.Objects[LB.ItemIndex]<>nil then Exit;
if LB.Itemindex=-1 then Exit;
if Random(4)<2
then LB.Items.Objects[LB.ItemIndex] := Pointer(clGreen)
else LB.Items.Objects[LB.ItemIndex] := Pointer(clRed);
end;
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
LB: TListBox;
cl: TColor;
begin
LB := TListBox(Control);
case Integer(LB.Items.Objects[Index]) of
0:
begin
if (odSelected in State)
then cl := clHighLight
else cl := clWindow;
end;
else cl := Integer(LB.Items.Objects[Index]);
end;
LB.Canvas.Brush.Color := cl;
LB.Canvas.FillRect(Rect);
LB.Canvas.TextOut(Rect.Left+2,Rect.Top,LB.Items[Index]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add('asdasdasdasdasd');
end;
end.