Иконки в TreeView

← →
Mischka (2002-12-29 07:04) [0]

Делаю типа проводника Windows. А как в TreeView отобразить иконки, соответствующие различным типам файлов, не знаю. TreeView хочет брать их из TImageList, я же не могу туда запихать все существующие иконки, тем более в будущем появятся и другие...
Что делать?

← →
ZEE (2002-12-30 01:07) [1]

Это простого - делай так:
в uses добавить ShellApi
в OnCreate
var Sfi:TShfileInfo; ... ImageList1.Handle:=SHGetFileInfo("",0,Sfi,SizeOf(TShfileInfo),SHGFI_SYSICONINDEX Or SHGFI_SMALLICON); ImageList1.ShareImages:=True; ...
во время добавления элемента в TreeView
var Sfi:TShfileInfo; ... SHGetFileInfo(PChar(filename),0,Sfi,SizeOf(Sfi),SHGFI_SYSICONINDEX); //filename - путь и имя файла, чью иконку надобно найти // присваиваем номер иконки TreeView1.Items.{какой-то итем :)}.ImageIndex:=Sfi.iIcon; ...
Все дальше думаю понятно...

← →
Rouse_ (2002-12-30 01:37) [2]

Круто :))

А это для чего придумано? ExtractAssociatedIcon()

Желаю успехов

← →
ZEE (2002-12-30 01:42) [3]

2 Rouse_
Так тоже можно, но SHGetFileInfo все-таки проще...

← →
Rouse_ (2002-12-30 01:50) [4]

Я промолчу, так как у Вас приведен более полный код, но он скорее всего не вызовет никаких ассоциаций у автора, судя по уровню постановки вопроса, к сожалению. Хотя, я могу и ошибаться.

Желаю успехов

← →
ZEE (2002-12-30 01:55) [5]

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

Иконки в TreeView Найти похожие ветки