Не правильно устанавливается иконка, почему то только к этой папке не могу разобраться помогите))
Использую:
- Код: Выделить всё
FilePathToTreeNode(TreeView1, nil, ExtractFileDir(OpenDialog1.FileName) + '\', True);
Сам код функции:
- Код: Выделить всё
//Функция Вывод каталога в TreeView1
procedure TForm1.FilePathToTreeNode(aTreeView: TTreeView; aRoot: TTreeNode;
Path: string; Recurse: boolean);
var
NewNode: TTreeNode;
SRec: TSearchRec;
begin
if FindFirst(Path + '*.*', SysUtils.faAnyFile, SRec) = 0 then
repeat
if (sRec.Name = '.') or (sRec.Name = '..') then
Continue;
NewNode := aTreeView.Items.AddChild(aRoot, SRec.Name);
if Recurse and ((srec.Attr and SysUtils.faDirectory) <> 0) then
begin
FilePathToTreeNode(aTreeView, NewNode, Path + srec.Name + '\', True);
//папка
NewNode.ImageIndex := 1108;
NewNode.SelectedIndex := 1108;
end
else
begin
//Файл
NewNode.ImageIndex := 804;
NewNode.SelectedIndex := 785;
end;
until FindNext(SRec) <> 0;
end;