ListBox с картинками!

unit Listemas;
 
interface
 
uses
 
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;
 
type
 
  TLTemas = class(TForm)
    ListBox1: TListBox;
    procedure FormActivate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
 
  LTemas: TLTemas;
 
implementation
 
{$R *.DFM}
 
procedure TLTemas.FormActivate(Sender: TObject);
var
 
  Dibujo: TIcon;
begin
 
  with ListBox1.Items do
  begin
    Dibujo := TIcon.create;
    Dibujo.LoadFromFile('D:\Delphi\Projects\Delphi5\DelphiWorld\base\images\ico.ico');
    AddObject('Delphi World - программа для всех', Dibujo);
    Dibujo := TIcon.create;
    Dibujo.LoadFromFile('D:\Delphi\Projects\Delphi5\DelphiWorld\base\images\ico.ico');
    AddObject('Delphi World - самый большой сборник', Dibujo);
  end;
end;
 
procedure TLTemas.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 
  Rect: TRect; State: TOwnerDrawState);
var
 
  Icon: TIcon;
  Offset: Integer; { ширина отступа текста }
begin
 
  with (Control as TListBox).Canvas do
    { рисуем на холсте элемента управления, не на форме }
  begin
    FillRect(Rect); { очищаем прямоугольник }
    Offset := 2; { обеспечиваем отступ по умолчанию }
    Icon := TIcon((Control as TListBox).Items.Objects[Index]);
      { получаем иконку для данного элемента }
    if Icon <> nil then
    begin
      Draw(Rect.Left + 1, Rect.Top + 2, TIcon((Control as
        TListBox).Items.Objects[Index]));
 
      Offset := Icon.width + 9;
        { добавляем четыре пикселя между иконкой и текстом }
    end;
    TextOut(Rect.Left + Offset, Rect.Top + 7, (Control as TListBox).Items[Index])
      { выводим текст }
  end;
end;
 
end.

procedure ListDrawItem(Control: TWinControl; Index:
  Integer; Rect: TRect; State: TOwnerDrawState);
var
  BitMap: TBitMap;
begin
  {Здесь инициализируем Bitmap.... например, загружаем в него изображение}
  with (Control as TListBox).Canvas do
  begin
    FillRect(Rect);
    Draw(Rect.Left, Rect.Top, BitMap);
    TextOut(Rect.Left + 2 + BitMap.Width, Rect.Top,
      DstList.items.strings[index]); {DstList - имя списка}
  end;
end;

procedure TForm1.Button1Click(Sender: TSender); 
var Icon: TIcon; 
begin 
 Icon := TIcon.Create; 
 Icon.LoadFromFile('DELPHI.ICO'); 
 ListBox1.Items.AddObject('Delphi', Icon); 
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; 
    Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
var
 
  Icon: TIcon;
  Offset: Integer; { Смещение текста }
begin
 
  with (Control as TListBox).Canvas do
    { Рисуем на управлении }
  begin
    FillRect(Rect); { Очищаем прямоугольник }
    Offset := 20; { Смещение по умолчанию }
    Icon := TIcon((Control as TListBox).Items.Objects[Index]);
      { Получаем иконку для этого пункта }
    if Icon <> nil then
    begin
      Draw(Rect.Left + 1, Rect.Top + 2, TIcon((Control as
        TListBox).Items.Objects[Index]));
 
      Offset := Icon.width + 9;
        { Добавляем пробел между иконкой и текстом }
    end;
    TextOut(Rect.Left + Offset, Rect.Top + 7, (
        Control as TListBox).Items[Index])
      { Вывод текста }
  end;
end;