Вверх ↑
Этот топик читают: Гость
Ответов: 176
Рейтинг: 12
#1: 2007-03-08 17:07:49 ЛС | профиль | цитата
Нужно вывести список папок в компоненте TreeView: Дерево элементов
К примеру папки имеют структуру:
Папка откуда стартовало приложение/папка1/подпапка
Папка откуда стартовало приложение/папка2/подпапка1/подпапка2
Папка откуда стартовало приложение/папка3/подпапка1/подпапка2

Нужно сделать, чтобы в дереве элементов это выглядело так
Add(TreeView,5059444,385,196)
{
Width=335
Height=345
Strings=#34:Папка откуда стартовало приложение|1:(|6:папка1|1:(|8:подпапка|1:)|6:папка2|1:(|9:подпапка1|1:(|9:подпапка2|1:)|1:)|6:папка3|1:(|9:подпапка1|1:(|9:подпапка2|
Icons=[]
}

Мне нужно построить это дерево используя поиск папок
Add(Dir,6767263,294,231)
{
}
Add(FileSearch,4361982,287,287)
{
FullName=1
Include=1
link(onSearch,10014441:doAdd,[])
link(Dir,6767263:CurrentDir,[])
}
Add(TreeView,10014441,392,287)
{
Width=174
Height=242
Align=1
Icons=[]
ModeSp=1
ColorSp=-16777213
MinOwn=10
MinRest=10
}
Add(Button,2637558,231,287)
{
Left=185
Top=5
Width=135
Caption="Построить древо"
link(onClick,4361982:doSearch,[])
}

Помогите если кто знает.

[size=-2]------ Добавлено в 17:07

карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3655
Рейтинг: 69
#2: 2007-03-08 21:41:24 ЛС | профиль | цитата
toropchin, code_896.txt
карма: 0

0
файлы: 1code_896.txt [784B] [362]
Ответов: 176
Рейтинг: 12
#3: 2007-03-09 15:57:06 ЛС | профиль | цитата
Немного доработал схему Вячеслава.
Сравните эти 2 схемы. Первая работает отлично. (в папке с скомпилированной программой должны быть папки. А в этих папках ещё несколько папок). А вторая почемуто не работает.

code_1049.txt

Add(MainForm,1629673,21,105)
{
Left=20
Top=105
Width=438
Height=757
}
Add(Button,16319539,112,357)
{
Left=370
Top=5
link(onClick,11099741:doEvent1,[])
}
Add(FileSearch,7432931,392,266)
{
SubDir=1
FullName=1
Include=1
link(onSearch,14124198:doAdd,[])
}
Add(TreeView,14124198,511,266)
{
Width=365
Height=723
Align=1
Icons=[]
ModeSp=1
ColorSp=-16777213
MinOwn=10
MinRest=10
Point(doSelect)
}
Add(Hub,4943168,336,266)
{
InCount=2
OutCount=1
link(onEvent1,7432931:doSearch,[])
}
Add(DoData,2864992,266,266)
{
link(onEventData,4943168:doEvent1,[])
link(Data,1395175:Value,[])
}
Add(Hub,11099741,168,357)
{
OutCount=3
link(onEvent1,14124198:doClear,[(468,363)(468,279)])
link(onEvent2,4436744:doBrowse,[(208,370)(208,195)])
link(onEvent3,14167869:doEnum,[])
}
Add(ArrayEnum,14167869,518,371)
{
link(onItem,4586652:doEvent1,[])
link(Array,14124198:Array,[])
}
Add(DoData,3188866,665,371)
{
link(onEventData,14124198:doSelect,[(709,377)(709,324)(488,324)(488,307)])
link(Data,14167869:Index,[(671,361)(639,361)(639,413)(531,413)])
}
Add(Hub,4586652,574,371)
{
link(onEvent1,3188866:doData,[])
link(onEvent2,4943168:doEvent2,[(616,384)(616,335)(326,335)(326,279)])
}
Add(Browse,4436744,217,189)
{
link(onBrowse,1395175:doValue,[])
}
Add(Memory,1395175,266,189)
{
link(onData,2864992:doData,[(308,195)(308,243)(256,243)(256,272)])
}

Я немогу врубиться. Почему вторая схема работает неправильно?

[size=-2]------ Добавлено в 15:57
Немного поразмыслив до меня дошло, что и первая схема должна выводить дерево папок также как и вторая. Тоесть не выводить никакого дерева. Но почему она работает. Удивительно... Она недолжна работать хотябы потому, что компоненту "Поиск файлов на диске" нужно указать ПУТЬ для поиска примерно вот такого вида: C:123456. Но никак не такого: 123.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_1049.txt [1.2KB] [256]
Ответов: 899
Рейтинг: 43
#4: 2007-03-09 18:25:31 ЛС | профиль | цитата
Все работает неправильно, схемы находят папки не всех уровней вложенности
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Администрация
Ответов: 15295
Рейтинг: 1519
#5: 2007-03-09 19:49:32 ЛС | профиль | цитата
toropchin писал(а):
Но никак не такого: 123.

а это разве не корректная запись каталога?
карма: 27
0
Ответов: 176
Рейтинг: 12
#6: 2007-03-10 15:49:16 ЛС | профиль | цитата
Теперь работает правильно.

code_1051.txt
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_1051.txt [2.1KB] [335]
Гость
Ответов: 17029
Рейтинг: 0
#7: 2008-10-17 20:38:05 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:40:02
карма: 0

0
Ответов: 5227
Рейтинг: 587
#8: 2008-10-17 20:45:36 ЛС | профиль | цитата
чёрт побери, кто нибудь научится этих роботов мочить , антиспамеры у Вас много работы
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 2060
Рейтинг: 28
#9: 2008-10-17 21:24:57 ЛС | профиль | цитата
Забанил "Срамера" IP 87.118.108.180
карма: 1

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#10: 2008-10-17 21:57:18 ЛС | профиль | цитата
Как узнать IP спамера для выдачи по-заслугам?
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 5446
Рейтинг: 323
#11: 2008-10-17 22:20:00 ЛС | профиль | цитата
Nic, рядом с датой Советники и выше видят IP автора сообщения
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#12: 2008-10-18 11:24:56 ЛС | профиль | цитата
iarspider писал(а):
рядом с датой Советники и выше видят IP автора сообщения
Советники с хорошим зрением, с плохим почти не видят.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3655
Рейтинг: 69
#13: 2008-10-18 14:03:13 ЛС | профиль | цитата
Tad писал(а):
Советники с хорошим зрением, с плохим почти не видят.

Да согласен бледновато.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#14: 2008-10-18 16:12:09 ЛС | профиль | цитата
Вячеслав писал(а):
бледновато
слово хорошее (обтекаемое) но не то.
Больше соответствовало-бы истине, если бы ты написал:
"Да, согласен, хреново видно."

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26164
Рейтинг: 2127
#15: 2008-10-18 17:28:58 ЛС | профиль | цитата
Правда, а почему бы не примеить цвет
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)