| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Иконки файлов в дереве [D5, WinXP]
harismatik © (2003-02-12 11:40:00)Как файлам в дереве отобразтить ассоциированные с ними иконки?
Я слышал, что это делается как-то через Shell..., но как конкретно - не знаю. Подскажите.
dimich1978 (2003-02-12 12:23:00) [1]Что у меняделается:
1. Все пути до файлов хранятся в БД(просто мне было необходимо в дерево выводить пути и сам исполняемый файл)
2. Потом по этим путям я извлекаю иконки у файлов и добавляю их в дерево.
with TreeView1.Items do
begin
Clear;
for i:=1 to table1.RecordCount do begin
MyTreeNode1 := Add(nil, table1.Fields[1].asstring);
for j:=1 to table2.RecordCount do begin
ChildNode:=AddChild(MyTreeNode1,table2.Fields[1].asstring);
strpcopy(apchar,table2.fields[4].asstring);
Icon := ExtractIcon(HInstance,apchar,0);
YIcon := TIcon.Create;
YIcon.Handle := icon;
imagelist1.AddIcon(YIcon);
ChildNode.ImageIndex := imagelist2.AddIcon(YIcon);
table2.next;
end;
table1.next;
end;
end;
harismatik (2003-02-12 12:13:00) [2]А еще? Попроще бы как-то.
крот (2003-02-12 11:54:00) [3]Посмотри пример в дельфи Demos\Virtual ListView
| |
