Страница 1 из 1

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

Добавлено: 02 авг 2002, 10:25
Alexx
Киньте пожалста пример работы с сабжем.
Каким образом в них формируется иерархия?
Заранее спасибо!

Форэкзампл

Добавлено: 04 авг 2002, 18:43
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

Re: Форэкзампл

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

Re: Форэкзампл

Добавлено: 06 авг 2002, 07:52
Alexx
2Galaxy Foe: А по-подробнее можно об этом? Примерчик очень приветствуется :)