Форум: "Media";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];
ВнизИконки в TreeView Найти похожие ветки
← →
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;
...
Все дальше думаю понятно...
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.009 c