Несколько изображений в listbox

[Tony.]

Столкнулся с проблемой: необходимо в listbox в начале каждой строки прикрепить изображение, нашел вариант как сделать одно изображение для всего списка, но мне необходимо чтобы была возможность изменять изображение у конкретной строки, а не у всего списка сразу.

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var
  Bitmap: TBitmap;
  Offset: Integer;
  BMPRect: TRect;
begin
  with (Control as TListBox).Canvas do
  begin
     FillRect(Rect);
    Bitmap := TBitmap.Create;
    Bitmap.LoadFromFile('2.bmp');
    Offset := 0;
    if Bitmap <> nil then
    begin
      BMPRect := Bounds(Rect.Left+2, Rect.Top+2,
      (Rect.Bottom-Rect.Top-2)*2, Rect.Bottom-Rect.Top-2);
      {StretchDraw(BMPRect, Bitmap); Можно просто нарисовать, но лучше сначала убрать фон}
      BrushCopy(BMPRect,Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height),
      Bitmap.Canvas.Pixels[0, Bitmap.Height-1]);
      Offset := (Rect.Bottom-Rect.Top+1)*2;
    end;
    TextOut(Rect.Left+Offset, Rect.Top, ListBox1.Items[index]);
    Bitmap.Free;
  end;

Или может можно использовать похожий компонент, необходимо чтобы в строке было изображение и текст. Помогите

[Stilet]

Тебе нужно напхатьки картинок в TImageList, а в отрисовке:

ImageList1.Draw(ListBox1.Canvas,rect.left+x,rect.top,<Номер картинки>);
x:=x+ImageList1.Width;
ListBox1.Canvas.TextOut(Rect.Left+x,Rect.Top,s[i]);

Выводить сначала картинку, потом текст.

[Tony.]

а переменные x s i что?

[Tony.]

Решил проблему

[Stilet]

а переменные x s i что?

ImageList1.Draw(ListBox1.Canvas,rect.left,rect.top,<Номер картинки>);
ListBox1.Canvas.TextOut(Rect.Left+ImageList1.Width,Rect.Top,ListBox1.Items[i]);