VPF::TreeView - Форум программистов

MIX55

Дата 23.10.2005, 11:42 (ссылка)

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

Загрузка ...

много работы

Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

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

практически все знакомы с проектом DELPHIWORLD (сайт Delphiworld.narod.ru).
Слева в этом проекте расположен TREEView в котором происходит загрузка имеющихся статей. Мне требуется сделать тоже
самое. Подскажите как реализовать подобное.
Р.S. Можно из файла.

--------------------

Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e

Дата 23.10.2005, 12:59 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Сомотря откуда загрузка?

TreeView Может загружаться из и обычного файла TtreeView.items.loadFromFile ...

MIX55

Дата 23.10.2005, 15:46 (ссылка)

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

Загрузка ...

много работы

Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

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

А как тогда определить потомок это или родитель. Скажеи родитель принтер, а его потомки принтер1, принтер2, принтер3. Если можно пример.

--------------------

offline

Дата 23.10.2005, 22:25 (ссылка)

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

Загрузка ...

Опытный

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

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

Чтение из файла организовывается TreeView1.LoadFromFile('Имя файла');
А структура файла элементарная, дочерние ветви создаются под родителем и сдвиннутые табуляцией smile

Вот пример

Код


Принтер
    Принтер1
    Принтер2
        Принтер3
        Принтер4
Сканер
    Сканер1
    Сканер2

Это сообщение отредактировал(а) kirilllius - 23.10.2005, 22:27

Akella

Дата 26.10.2005, 10:04 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Код


procedure TfmMain.AddSubNode(ParentNode:TTreeNode; AText:String);
Var
 id:integer;
begin
    qInsert.Close;
    qInsert.SQL.Clear;
    qInsert.SQL.Add('select * from ADD_NEW(:PARENT,:NAME)');
    qInsert.ParamByName('NAME').AsString:=AText;
    qInsert.ParamByName('PARENT').AsInteger:= Integer(ParentNode.Data);
    qInsert.Open;
    id := qInsert.Fields[0].AsInteger;
    if id = -1 then begin
      qInsert.Close;
      ShowMessage('Произошлда ошибка в БД. ID = -1.'+#13+'Раздел добавлен не будет.');
      exit;
    end;
    tvMain.Items.AddChildObject(ParentNode,AText,Pointer(id));
    tvMainGetImageIndex(tvMain, ParentNode);
    qInsert.Close;
end;

Добавлено @ 10:06

Код


procedure TfmMain.AddRootNode(AText:String);
Var
 id:integer;
begin
    qInsert.Close;
    qInsert.SQL.Clear;
    qInsert.SQL.Add('select * from ADD_NEW(:PARENT,:NAME)');
    qInsert.ParamByName('NAME').AsString:=AText;
    qInsert.ParamByName('parent').AsInteger:= 0;
    qInsert.Open;
    id := qInsert.Fields[0].AsInteger;
    if id = -1 then begin
      ShowMessage('Произошлда ошибка в БД. ID = -1.'+#13+'Раздел добавлен не будет.');

      exit;
    end;
    tvMain.Items.AddObject(nil{tvMain.Selected},AText,Pointer(id));

end;

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