Отрисовка элементов ListBox

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

   ListBox1: TListBox;

   Button1: TButton;

   procedure Button1Click(Sender: TObject);

   procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;

     Rect: TRect; State: TOwnerDrawState);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

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.