Форум: "Основная";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
ВнизИконки файлов в дереве Найти похожие ветки
← →
harismatik (2003-02-12 11:40) [0]Как файлам в дереве отобразтить ассоциированные с ними иконки?
Я слышал, что это делается как-то через Shell..., но как конкретно - не знаю. Подскажите.
← →
крот (2003-02-12 11:54) [1]Посмотри пример в дельфи Demos\Virtual ListView
← →
harismatik (2003-02-12 12:13) [2]А еще? Попроще бы как-то.
← →
dimich1978 (2003-02-12 12:23) [3]Что у меняделается:
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c