Форум: "Media";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];




Вниз

Иконки в 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]

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




Форум: "Media";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
14-6674           race1                 2003-03-18 15:26  2003.04.03  
gdi


1-6439            Серега                2003-03-23 00:14  2003.04.03  
Клавиши!!


3-6345            dim111                2003-03-13 17:12  2003.04.03  
Помогите с группировкой


14-6683           Soft                  2003-03-18 11:44  2003.04.03  
Отображение дампа памяти


6-6647            gn                    2003-02-07 18:21  2003.04.03  
irc