Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Treeview и удобный способ определения узлов? / 25 сообщений из 44, страница 1 из 2
17.05.2019, 15:44
    #39814696
Treeview и удобный способ определения узлов?
Сразу прошу не пинать, не программист. Так же уверен что в "гугле" на это уже сто раз давался ответ (да даже тут 900 тем находит по запросу treeview). Но как-то мозг кипит от чтения не того, что нужно.

Вопрос простой - как удобнее всего можно однозначно определять узел в Treeview, как при выделении пользователем, так и для выставлении курсором (или родителем).
Есть ли способ обращаться к узлу (например для добавления "листов") по индексам (как к массиву), ну например (21,4,100500) - где 21 индекс первого уровня, 4 - второго уровня у родителя "21", ну а 100500 - третьего у родителя "4". И обратно - вывести информацию об выделенном пользователем узле в указанном выше виде (можно и руками самому написать, но может что уже есть).

Насколько я понимаю TreeView1.Items ведет учет узлов просто по порядку без учета уровня и прочего, то есть для корректного обращения надо постоянно вести учет всех предыдущих узлов, что при динамическом создании всяких веток и листов как-то неудобно и выглядит костылем.

Ну и может подскажите по общей задаче. Делают такое классическое меню настроек как в большинстве программ, где щелкая по дереву настроек выпадают нужные настройки для редактирования, но(!), файл настроек представляет из себя несколько больших текстовых файлов, разбитых на разделы, которые ещё и постоянно редактируются в плане количества и вида настроек, потому все нужные элементы создаю динамически подгружая из файлов (при том элементы потом будут разные, и чекбоксы всякие, и даже картинки разные), потому сколько элементов в каждом узле и глубину я не знаю.

Картинки чисто для примера, не обращайте внимание на содержание, только на формат

...
Рейтинг: 0 / 0
17.05.2019, 15:46
    #39814698
Treeview и удобный способ определения узлов?
Естественно через TreeView1.Items и пересчет узлов могу всё реализовать, но есть чувство, что это не правильно и есть более грамотные способы.
...
Рейтинг: 0 / 0
17.05.2019, 15:54
    #39814702
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
У узла есть свойство Data. Там можно хранить указатели на свои данные
...
Рейтинг: 0 / 0
17.05.2019, 16:06
    #39814711
Treeview и удобный способ определения узлов?
_Vasilisk_У узла есть свойство Data. Там можно хранить указатели на свои данные
Хм. Спасибо. Изучу. Вроде и видел, но как-то не подумал. Через Data можно задавать Node, или всё таки надо будет поиск по всем Data производить?
Ещё раз спасибо, пошел искать информацию.
...
Рейтинг: 0 / 0
17.05.2019, 16:09
    #39814712
krapotkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
лучше расскажите что за задача
зачем вам бежать по всем Node ?
...
Рейтинг: 0 / 0
17.05.2019, 16:09
    #39814713
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Андрей ИгоревичЧерез Data можно задавать Node
Если нужен серфинг по "детям", то у каждого узла Items[i] = TTreeNоde, есть еще свойства HasChildren, Item и т.д.
...
Рейтинг: 0 / 0
17.05.2019, 16:12
    #39814717
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Андрей ИгоревичЧерез Data можно задавать Node, или всё таки надо будет поиск по всем Data производить?Не понял вопроса.

Какая у вас задача? По узлу сопоставить ему некоторые данные? Или найти узел по каким-то признакам?
Андрей Игоревичну например (21,4,100500) - где 21 индекс первого уровня, 4 - второго уровня у родителя "21", ну а 100500 - третьего у родителя "4".
Код: pascal
1.
TreeView1.Items[21][4][100500]
...
Рейтинг: 0 / 0
17.05.2019, 16:14
    #39814718
Gator
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Андрей ИгоревичЧерез Data можно задавать Node, или всё таки надо будет поиск по всем Data производить?В Data можно хранить хоть чёрта лысого. Тут главное обеспечить наличие и соответствие типа этого лысого чёрта.
...
Рейтинг: 0 / 0
17.05.2019, 18:18
    #39814764
Treeview и удобный способ определения узлов?
krapotkinлучше расскажите что за задача
зачем вам бежать по всем Node ?
Ну я больше не "бежать по всем" имел в виду, а обратиться к любому нужному в любой момент напрямую.

wadmanАндрей ИгоревичЧерез Data можно задавать Node
Если нужен серфинг по "детям", то у каждого узла Items[i] = TTreeNоde, есть еще свойства HasChildren, Item и т.д.
Спасибо, изучу.


_Vasilisk_Андрей ИгоревичЧерез Data можно задавать Node, или всё таки надо будет поиск по всем Data производить?Не понял вопроса.

Какая у вас задача? По узлу сопоставить ему некоторые данные? Или найти узел по каким-то признакам?

Сначала динамически создать дерево в зависимости от неких исходных данных, далее при выделении каждого узла выполнять определенные действия (уничтожать/рисовать на скролбоксе всякие элементы настроек, картинки и прочее), так же необходимо в любой момент выделить нужный узел/лист программно с выполнением привязанных к нему действий. Ну и там прочее по мелочи. удобнее всего это делать связав индексы узлов и нужных мне действий (ну так проще не запутаться когда дерево станет весьма большим)

_Vasilisk_
Код: pascal
1.
TreeView1.Items[21][4][100500]


Отлично, практически то, что я и хотел, единственно, как я понимаю, таким образом я могу обращаться только к элементам одного уровня (в зависимости от количества скобок). Попытка подставить "-1" и "nil", увы, не помогла.

GatorАндрей ИгоревичЧерез Data можно задавать Node, или всё таки надо будет поиск по всем Data производить?В Data можно хранить хоть чёрта лысого. Тут главное обеспечить наличие и соответствие типа этого лысого чёрта.

А запись с кучей многомерных динамических массивов на пол гигабайта съест? Или таким лучше всё таки не заниматься :)?
...
Рейтинг: 0 / 0
17.05.2019, 18:38
    #39814771
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Андрей Игоревичтаким образом я могу обращаться только к элементам одного уровня (в зависимости от количества скобок). Попытка подставить "-1" и "nil", увы, не помогла.Наоборот, это обращение к элементам трех разных уровней
Андрей Игоревичдалее при выделении каждого узла выполнять определенные действияЗаносите идентификатор действий в Data. Обращаетесь к ней при выделении узла из события TreeView.OnChange
Андрей Игоревичтак же необходимо в любой момент выделить нужный узел/лист программно с выполнением привязанных к нему действий.
Код: pascal
1.
2.
Node.Selected := True;
TreeView1.OnChange(TreeView1, Node);
...
Рейтинг: 0 / 0
17.05.2019, 19:07
    #39814776
Gator
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Андрей ИгоревичА запись с кучей многомерных динамических массивов на пол гигабайта съест? Или таким лучше всё таки не заниматься :)?В Data сидит указать, узлу начхать, на что он указывает.
Кроме того, там можно хранить битовую маску.
...
Рейтинг: 0 / 0
17.05.2019, 19:50
    #39814785
delphinotes
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
автор, посмотри в сторону VirtualTreeView
компонент другой (бесплатный), но более гибкий и мощнее, с кучей примеров... возможно он больше подойдёт
...
Рейтинг: 0 / 0
17.05.2019, 20:18
    #39814792
s62
s62
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Андрей Игоревич,

не знаю, то ли вы ищете.
TCustomTreeView.Selected - указывает на выделенный узел.
TTreeNode.Index - индекс (номер) данного узла в списке детей его родителя.
...
Рейтинг: 0 / 0
17.05.2019, 22:15
    #39814803
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Сдается мне, что автор придумал кривое решение задачи и мы должны помочь с реализацией вместо того, чтобы узнать саму задачу первым делом.
...
Рейтинг: 0 / 0
17.05.2019, 23:28
    #39814814
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
...
Рейтинг: 0 / 0
18.05.2019, 01:37
    #39814821
Treeview и удобный способ определения узлов?
Более менее вник в то, что мне написали и понял, что все примерно одно и тоже и предлагают :), но в большинстве не совсем то, что я спрашивал (ну отчасти). Про TreeView.Selected.Index, TreeView.Selected.AbsoluteIndex, TreeView1.OnChange и прочее подобно я естественно освоил сразу ибо есть во всяких нубомануалах в интернете.

Задам вопрос иначе с примером понагляднее (сформирован рандомно).


Задача 1: Как наиболее простым способом программно (не выделением пользователем) одной общей процедурой на все, ну например, добавить несколько "узлов" в "Ещё какие-нибудь параметры 4 2 0", а потом добавить ещё несколько в "Глобальные параметры 4", а потом ещё куда-нибудь. Ну суть, думаю, ясна.
Через
Код: pascal
1.
TreeView1.Items[21][4][100500]

не понятно как выбрать узел второго уровня (1го если от 0) и так же не понятно как он работает с нулевым уровнем, так как, например
Код: pascal
1.
TreeView1.Items[5]

выделит не "Глобальные параметры 5", а "Локальные параметры 0 1" (ну по абсолютному индексу).
Можно обыграть условиями, но тоже как-то не очень.

Задача 2 (в принципе эта задача решается через Data, но вдруг ещё чего подскажите): Как при выделении пользователем любого узла получить привязанные к нему параметры однозначно и удобно его определяющие, наиболее удобно - индексы как те что после текста.
Тут всё можно полностью через Data реализовать, думаю можно даже сами данные тогда в Data сохранять, а не в отдельных масивах, так что особо можно не мусолить, хотя если есть иные способы...
...
Рейтинг: 0 / 0
18.05.2019, 02:51
    #39814823
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Андрей ИгоревичЗадача 1: Как наиболее простым способом программно (не выделением пользователем) одной общей процедурой на все, ну например, добавить несколько "узлов" в "Ещё какие-нибудь параметры 4 2 0", а потом добавить ещё несколько в "Глобальные параметры 4", а потом ещё куда-нибудь. Ну суть, думаю, ясна.


Код: pascal
1.
2.
3.
4.
5.
6.
Node := FindNode(Имя или номер); // функция которая отыщет нужный узел по параметру
if Node <> nil then begin
  TreeView.AddNode(Node,'Новый узел 1');
  TreeView.AddNode(Node,'Новый узел 2');
  TreeView.AddNode(Node,'Новый узел 3');
end;



не понятно как выбрать узел второго уровня (1го если от 0) и так же не понятно как он работает с нулевым уровнем, так как, например
Код: pascal
1.
TreeView1.Items[5]

выделит не "Глобальные параметры 5", а "Локальные параметры 0 1" (ну по абсолютному индексу).


Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
function GetNode(TV: TTreeView; Index: integer): TTreeNode;
begin
  Result := TV.Items.GetFirstNode;
  while (Result <> nil) and (Index > 0) do begin
    Result := Result.getNextSibling;
    Dec(Index);
  end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  GetNode(TreeView1,5).Selected := true;
end;



Задача 2 (в принципе эта задача решается через Data, но вдруг ещё чего подскажите): Как при выделении пользователем любого узла получить привязанные к нему параметры однозначно и удобно его определяющие, наиболее удобно - индексы как те что после текста.
Тут всё можно полностью через Data реализовать, думаю можно даже сами данные тогда в Data сохранять, а не в отдельных масивах, так что особо можно не мусолить, хотя если есть иные способы...
Откуда берутся данные ? Если из Dataset то достаточно в Data загнать уникальный номер строки.
...
Рейтинг: 0 / 0
20.05.2019, 07:52
    #39815193
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Андрей Игоревич,

"задача 1" это не задача, а некое её решение. Задача - это то, что "задача" должна решать.
При каких условиях "задача" возникает? В БД появились данные? Узел развернут пользователем? Какое-то иное внешнее событие?
...
Рейтинг: 0 / 0
22.05.2019, 12:38
    #39816355
Treeview и удобный способ определения узлов?
DimaBrАндрей ИгоревичЗадача 1: Как наиболее простым способом программно (не выделением пользователем) одной общей процедурой на все, ну например, добавить несколько "узлов" в "Ещё какие-нибудь параметры 4 2 0", а потом добавить ещё несколько в "Глобальные параметры 4", а потом ещё куда-нибудь. Ну суть, думаю, ясна.

...



Спасибо, вроде то, что нужно, ну точнее буду использовать это :).

DimaBrЗадача 2 (в принципе эта задача решается через Data, но вдруг ещё чего подскажите): Как при выделении пользователем любого узла получить привязанные к нему параметры однозначно и удобно его определяющие, наиболее удобно - индексы как те что после текста.
Тут всё можно полностью через Data реализовать, думаю можно даже сами данные тогда в Data сохранять, а не в отдельных масивах, так что особо можно не мусолить, хотя если есть иные способы...
Откуда берутся данные ? Если из Dataset то достаточно в Data загнать уникальный номер строки.
Данные берутся из текстовых файлов всевозможных форматов (там и списки настроек, и массивы всяких размерностей, форм и цветов, и просто текст).
Пользователь просто щелкает слева по дереву (в дереве отображаются имена файлов, разделы файлов, подразделы) и видит нужную информацию (ну в общем, каждая вторая инженерная/научная расчетная программа имеет похожий интерфейс).
Информацию я рисую в зависимости от названия файла (и, естественно, содержания) динамически генерируя на экране (на скролбаре) всякие разные менюшки, эдиты, лейблы, имейджи и прочее.


wadmanАндрей Игоревич,

"задача 1" это не задача, а некое её решение. Задача - это то, что "задача" должна решать.
При каких условиях "задача" возникает? В БД появились данные? Узел развернут пользователем? Какое-то иное внешнее событие?
Ну основное - в дереве показаны файлы настроек и разделы из них, пользователь подгрузил новый файл, надо добавить его и его разделы в дерево.
Но в принципе я пока решил отказаться от такого и просто генерирую всё дерево заново при обновлении, так проще.


Хотел тут куски кода привести, но подумал "не, гадостей наговорят, нафиг" :).
...
Рейтинг: 0 / 0
22.05.2019, 13:43
    #39816461
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Вы загружаете кучу файлов, которые затем отображаете в дереве.
Вам нужно сопоставить узел с файлом.
1. Сопоставить по имени.
2. Загрузить все файлы в список, а в узел дерева (Data) записать номер по списку
...
Рейтинг: 0 / 0
22.05.2019, 16:28
    #39816638
Treeview и удобный способ определения узлов?
DimaBrВы загружаете кучу файлов, которые затем отображаете в дереве.
Вам нужно сопоставить узел с файлом.
1. Сопоставить по имени.
2. Загрузить все файлы в список, а в узел дерева (Data) записать номер по списку
Сейчас реализовал по имени.

Есть ещё несколько вопросов которые с нахрапу не могу в интернете найти, точнее решения разные есть, но не всегда уверен, что они корректны или подходят мне.
1. Как всё-таки корректно работать с Data.
Пока я для пример сделал так:




Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
 

node.Data:=Pointer(FilePaths[_i]);



   if node.Data <> nil then 
    begin
        label2.Caption:=string(node.Data);
        Label2.Left:=ScrollBox1.Left+round(ScrollBox1.Width/2)-round(Label2.Width/2);
    end else
    if Node.Parent.Data <> nil then
    begin
        label2.Caption:=string(node.Parent.Data);
        Label2.Left:=ScrollBox1.Left+round(ScrollBox1.Width/2)-round(Label2.Width/2);
    end;
...
Рейтинг: 0 / 0
22.05.2019, 16:35
    #39816646
Treeview и удобный способ определения узлов?
Андрей Игоревич,

Так, я что-то нажал и оно отправилось. Как редактировать или удалять тут сообщения я не нашел, будем считать что того сообщения небыло :)

DimaBrВы загружаете кучу файлов, которые затем отображаете в дереве.
Вам нужно сопоставить узел с файлом.
1. Сопоставить по имени.
2. Загрузить все файлы в список, а в узел дерева (Data) записать номер по списку
Сейчас реализовал по имени.

Есть ещё несколько вопросов которые с нахрапу не могу в интернете найти, точнее решения разные есть, но не всегда уверен, что они корректны или подходят мне.

1. Как всё-таки корректно работать с Data?
Тут я сделал вывод адреса файла в лейбел при клике по любому узлу. Правильно ли делаю, или я вообще всё не так делаю?
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
...
node.Data:=Pointer(FilePaths[_i]);
...

   if node.Data <> nil then 
    begin
        label2.Caption:=string(node.Data);
    end else
    if Node.Parent.Data <> nil then
    begin
        label2.Caption:=string(node.Parent.Data);
    end;


2. Как пробежаться только по нулевому уровню дерева? Можно пробежаться по всему проверяя индекс, но как-то не спортивно...

Блин, пока писал, забыл что ещё спросить хотел...
...
Рейтинг: 0 / 0
27.05.2019, 11:41
    #39818673
Treeview и удобный способ определения узлов?
Вот пришел я к индексам через data к узлам и неожиданно возник вопрос:
а как удобнее всего индексы то запоминать.

Допустим у меня есть индексы узлов [1,0,0,0] [100500,0,0,0], для коневых, всякие [3,5,10,0] для для более глубоких узлов, как их сохранить то? Может есть общепринятый формат?
Можно сохранить строкой - 3,5,10,0.
Можно сохранить записью -
Index = record;
lvl1: byte;
lvl2: byte;
lvl3: byte;
lvl4: byte;
End;

Может ещё как можно?
...
Рейтинг: 0 / 0
27.05.2019, 13:33
    #39818779
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Treeview и удобный способ определения узлов?
Зачем вообще хранить длинные индексы ?

Хотите хранить в узлах много дополнительных данных, заведите новый тип узла
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
TMyNode = class(TTreeNode)
  lvl1: byte;
  lvl2: byte;
  lvl3: byte;
  lvl4: byte;
end;

// создание узла дерева
var N: TMyNode;
begin
  N := TMyNode.Create;
  N.lvl1 := <данные>;
  TreeView1.AddNode(N, Parent, 'Text', nil, naAddChild);
end;
...
Рейтинг: 0 / 0
27.05.2019, 15:19
    #39818838
Treeview и удобный способ определения узлов?
DimaBrЗачем вообще хранить длинные индексы ?


Потому что так гораздо удобнее соотносить узел с конкретными данными (данных много и они разнородны, в узлы их засовывать сложно, да и не нужно).

DimaBr
Хотите хранить в узлах много дополнительных данных, заведите новый тип узла

Много не надо, только индексы...
Блин, а выше тут писали, что и Data хватит :). Теперь вот уже свой узел. Так дойдет что проще свой компонент написать будет (шутка, если что :)).

При том и с Data что-то вообще не получается.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
       
 TIndex =record
  lv1:byte;
  lv2:byte;
  lv3:byte;
  lv4:byte;
 end;
     
var
  Indx:array [0..1000] of TIndex;
  lv1,lv2,lv3,lv4:byte
_IndexTree:integer;
...
Begin
...
 lv1:=0; lv2:=0; lv3:=0; lv4:=0;
...


for .. to .. do
...
   inc(_IndexTree);                                  
 {Inc(lv1);} Inc(lv2); lv3:=0; lv4:=0;               
  Indx[IndexTree].lv1:=lv1; 
  Indx[IndexTree].lv2:=lv2;  
  Indx[IndexTree].lv3:=lv3; 
  Indx[IndexTree].lv4:=lv4;
  node.data:=Pointer(Indx[IndexTree]);

...
end



Вылетает с ошибкой на ошибку чтения из памяти, при том вылетает при завершении процедуры в которую вложен, индексы lv - даже 100 не не превышают. Да хоть нули - вылетает (но не всегда...).
При замене на
Код: pascal
1.
2.
3.
4.
5.
6.
 TIndex =record
  lv1:ineger;
  lv2:ineger;
  lv3:ineger;
  lv4:ineger;
 end;


вообще пишет "Invalid typecast".

В общем что-то как-то не могу, разобраться, в хелпе такой себе пример для понимания.

Если не смогу понять, то попробую как вы предлагаете через свой узел
DimaBr
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
TMyNode = class(TTreeNode)
  lvl1: byte;
  lvl2: byte;
  lvl3: byte;
  lvl4: byte;
end;

// создание узла дерева
var N: TMyNode;
begin
  N := TMyNode.Create;
  N.lvl1 := <данные>;
  TreeView1.AddNode(N, Parent, 'Text', nil, naAddChild);
end;



А может вообще забью, в принципе через поиск всё работает, но уж больно мне не нравится код, где куча всяких циклов, условий и поисков, неудобный и ощибкоопасный.
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Treeview и удобный способ определения узлов? / 25 сообщений из 44, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]