картинка в listbox-e

[blackstersl]

привет всем. как можно впихнуть картинку в listbox: есть listbox и картинка, например image1.bmp, как сделать так чтобы в каждом добавленом item-e была вставлена эта картинка? Спасибо.

[spamer]

ставим свойство Style := lbOwnerDrawFixed
В обработчике OnDrawItem описываем, как будет отрисовываться элемент, например:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if index mod 2 = 0 then
ListBox1.Canvas.StretchDraw(Rect, Image1.Picture.Graphic);
if index mod 2 = 1 then
ListBox1.Canvas.StretchDraw(Rect, Image2.Picture.Graphic);
end;

Тут у меня в Image1 и Image2 разные картинки.
В чётные элементы списка отрисовывается Image2 а в нечётные соответственно Image1.

Это только пример, под свои нужды добей самостоятельно

Взято отсюда http://www.programmersforum.ru/showthread.php?t=2609

А также посмотри вот это http://delphidevelop.ru/publ/12-1-0-192

[Ntlegend]

есть пару вариантов
1) рисовать ее ручками на канве листбокса. прощитую позицыи итемов
2) взять ТListView на вкладке Win32 и не мучиться

[blackstersl]

ставим свойство Style := lbOwnerDrawFixed
В обработчике OnDrawItem описываем, как будет отрисовываться элемент, например:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if index mod 2 = 0 then
ListBox1.Canvas.StretchDraw(Rect, Image1.Picture.Graphic);
if index mod 2 = 1 then
ListBox1.Canvas.StretchDraw(Rect, Image2.Picture.Graphic);
end;

Тут у меня в Image1 и Image2 разные картинки.
В чётные элементы списка отрисовывается Image2 а в нечётные соответственно Image1.

Это только пример, под свои нужды добей самостоятельно

после этого не видно выделеного item-a, что делать?

[Alter]

Всё отрисовывайте сами! Оно не будет само рисовать, когда выбран не дефолтный стиль отрисовки.

[mutabor]

Сообщение от Ntlegend

2) взять ТListView на вкладке Win32 и не мучиться

+1
К тому же в него можно красивые иконки загрузить со сглаженными краями.