Добавление иконки в ListView

← →
kofman (2003-03-12 21:37) [0]

Столкнулся с такой проблемой: в ListView хочу напротив каждого добавленного пункта нарисовать иконку (там список файлов и иконка соотв. типу этого файла), выставляю свойство OwnerDraw в true и обрабатываю событие OnDrawItem, иконки рисуются замечательно, но напрочь пропадает прямоугольник которым обводится выделенный пункт списка, что надо сделать, может кто-нибудь подскажет?

← →
Gorik (2003-03-12 21:45) [1]

ListView1.LargeImages := ImageList1;
ListView1.SmallImages := ImageList2;

/////
with ListView1.Items.Add do
begin
Caption := FileName;
if IsDirectory(FileName) then ImageIndex := 1
else ImageIndex := 2
end;
/////

← →
kDenis (2003-03-12 21:48) [2]

Помойму, там можна рисовать по канве ( TCanvas), как в PaintBox

← →
KpeHgeJIb (2003-03-12 22:31) [3]

Зачем их рисовать в ручную? добавляй их и TImageList и присваевай войству ImageIndex элемента номер иконки в листе. Воспользуйся приблезительным примеом который тебе Gorik написал.

← →
kofman (2003-03-13 21:39) [4]

Спасибо за совет, я че-то и не подумал о ImageIndex, но может кто-то с OnDrawItem примерчик кинет, ведь не всегда удобно использовать imageList

Добавление иконки в ListView Найти похожие ветки