Столкнулся с этой проблемой...
Если много данных то будет задержка и при Destroy формы...(у меня огромное дерево и когда я все подгружал... дестрой при visible=.f. проходил в течении 3 секунд... с visible=.t. 4-6 секунд...)
Нашел вариант...
Если пользователь по всем ветвям не бегает...(просто задолбется...)
Шустренькая прорисовка...
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.
&&Дорисовываю если нету...
Parameters ne_nado_grida
LOCAL oNod
thisformset.form1.Enabled = .F.
thisformset.form1.tree1.object.Enabled = .F.
wait window '' timeout 0 . 05 &&Иногда появляется проблема с плавным со-
скакиванием с ветви дерева...(просто я вырезал кусок проги... у меня там
еще куча сееков висит и разной фиг..)
oNod = thisForm.Tree1
**************строим дерево если нет дочерних**********************
if oNod.object.selecteditem.children = 0
sele * from knigi where knigi.kodvidrab = my_kd_vidrab and
&my_and and &my_and2 into cursor knigi_my_vrem
sele knigi_my_vrem
scan
perem_knigi = '__' + alltrim(str(knigi_my_vrem.kodknigi))
oNod.Nodes.Add(perem_vidrab, 4 , perem_knigi, iif(lingvrus, alltrim
(knigi_my_vrem.shifrknig) + ' ' + alltrim(knigi_my_vrem.naimr), alltrim
(knigi_my_vrem.shifrknig) + ' ' + alltrim(knigi_my_vrem.naimu)), 0 )
endscan
endif
**************раскрываем текущую ветку**********************
IF thisform.tree1.object.selecteditem.children > 0
thisform.tree1.selecteditem.expanded=.t.
ENDIF
thisformset.form1.Enabled = .t.
thisformset.form1.tree1.object.Enabled = .t.
Принцип работы...
создаешь курсор и до-рисовываешь дерево...
У меня 4 таблицы...
Рисую по id (тип поля: integer)
Что б в дереве коды не пересекались...
1 таблица '_' + alltrim(str(id)) &&одно подчеркивание
2 таблица '__' + alltrim(str(id)) &&два подчеркивания
и т. д.
