TreeView Files Directory icon

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

TreeView Files Directory icon

Сообщение BIT » 29.12.2017 16:04:16

Изображение

Не правильно устанавливается иконка, почему то только к этой папке не могу разобраться помогите))

Использую:
Код: Выделить всё
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;
                         
Аватара пользователя
BIT
новенький
 
Сообщения: 25
Зарегистрирован: 29.12.2017 15:44:58

Re: TreeView Files Directory icon

Сообщение BIT » 05.01.2018 20:51:20

Этот пример рабочий я просто не скопировал часть условия где у меня проверялось на существования файла удалив условие проблема разрешилась спасибо)
Аватара пользователя
BIT
новенький
 
Сообщения: 25
Зарегистрирован: 29.12.2017 15:44:58


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot], Yandex [Bot] и гости: 6

Рейтинг@Mail.ru