древовидные Browse'ы

[Alexx]

Киньте пожалста пример работы с сабжем.
Каким образом в них формируется иерархия?
Заранее спасибо!

[Maverick]

Panel panClassSeg;
Table ExClassSeg;
tree trClassifier;
Fields
ExClassSeg.Name 'Значение классификатора' : [27], Protect, { font = { Color=if(mGroup='V',ColorMark,0 ); bold=if(mGroup='V',true,false ) } };
ExClassSeg.VALUE 'Код' : [3], Protect,{ font = { Color=if(mGroup='V',ColorMark,0 ); bold=if(mGroup='V',true,false ) } };
end;
HandleEvent
cmTreeTop : CurGroup:=0;
cmTreeUp : CurGroup:=ExClassSeg.cGroup;
cmTreeDown: CurGroup:=ExClassSeg.NRec;
cmTreeNodeType : if ExClassSeg.isLeaf = 1 TreeSetNodeType(trClassifier,2);
end; // HandleEvent
end; // panel

связка в дереве осуществляется через ExClassSeg.cGroup

[GalaxyFoe]

На самом деле, все эти связки через cowner и т.п. -- способ прикладных программистов галактики, который они придумали. Можно сделать дерево и без всякой таблицы, просто обрабатывая события cmDoGetPrev/next/first/last, getaddr, getdirect и "деревянные" (treetop и т.п.)

[Alexx]

2Galaxy Foe: А по-подробнее можно об этом? Примерчик очень приветствуется