[Wipahacker]

Код:

procedure TForm1.Button1Click(Sender: TObject);

var

S : String;

begin

// Очистка

ListBox1.Clear;

S := 'C:\Windows\*.bmp';

// Даем команду листбоксу чтобы он нашел все картинки в папке Windows

// и занес их имена к себе

ListBox1.Perform(LB_DIR, DDL_READWRITE, Longint(@S[1]));

end;

 

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState);

begin

with (Control as TListBox).Canvas do

begin

   // очищаем прямоугольник

   FillRect(Rect);

   // В зависимости от индекса - определяем цвет

   Font.Color := clBlack;

   case Index of

     0: Font.Color := clBlue;

     1: Font.Color := clRed;

     2, 4: Font.Color := clGreen;

   end;

   // Выводим текст

   TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);

end;

end;

end.