Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Иконки в TreeView [D7, WinXP]


Mischka ©   (2002-12-29 07:04:00) 

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


ZEE   (2002-12-30 01:55:00) [1]

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


Rouse_   (2002-12-30 01:50:00) [2]

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

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


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

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


Rouse_   (2002-12-30 01:37:00) [4]

Круто :))

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

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


ZEE   (2002-12-30 01:07:00) [5]

Это простого - делай так:
в 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;
...

Все дальше думаю понятно...


Наверх

Титульная страница Поиск, карта сайта Написать письмо