VPF::Электроный учебник(TreeView+html) - Форум программистов

BEST13

Дата 10.9.2010, 23:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет

Здраствуйте, ув. програмисты!
Собрался написать мини-учебник. Я хочу сделать оглавление при помощи Treeview. Структура будет проста(Корень(папка с програмой) > Разделы(Подпапки) > Страницы(папки с html и картинки, апллеты) ). Но код который я использую для ТreeView проходит все папки и файлы, в том числе и файлы картинок и апллетов.

В тоже время, я не знаю как связать пункт с адресом к странице или может я что тот не так делаю?

Посоветуйте, как мне правильно всё реализовать или выбрать лучшие компоненты?
Вот мой код:

Код


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
      FilePathToTreeNode(aTreeView, NewNode, Path + srec.name + '\', True);

  until FindNext(SRec) <> 0;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
  FilePathToTreeNode(TreeView1, nil, 'D:\Downloads\', True);
end;

BEST13

Дата 12.9.2010, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет

Сделал другим способ, повторил всю структуру в папках и теперь беря путь в дерева добавляю расширение файла и и открываю это путь в в Вебраузере.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »