Скачать: CL | DM;

Добавление иконки в 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c