Почему-то не могу открыть узлы. Нажимаю <Ctrl/Enter> - ничего не происходит. Сообщение, специально вставленное для контроля, тоже не выдается....
interface cuptree '__Построение дерева' cyan, doaccept;
view
var
curowner: comp;
gr_nrec: comp;
gr_code, gr_name: string;
as select * from catalogs, catalogs catalogs2
where ((curowner == catalogs.cparent and catalogs.nrec == catalogs2.cparent))
order by catalogs.code;
parameters
gr_nrec;
tree b1;
fields
catalogs.code: [20], protect;
catalogs.name:[40], protect;
end;
handleevent
cmInit:
{ curowner:=gr_nrec;
}
cmDefault:
{ gr_nrec := catalogs.nrec;
gr_code := catalogs.code;
gr_name := catalogs.name;
}
cmTreeOpenNode:
{ message('Попытка открыть')
//TreeOpenNode(b1);
}
cmTreeCloseNode:
{ message('Попытка закрыть')
//TreeCloseNode(b1);
}
cmTreeNodeType:
{ if isvalidall(tncatalogs2)
then TreeSetNodeType(b1, if(TreeNodeIsOpen(b1), ntfopen, ntfclose))
else TreeSetNodeType(b1, ntftext);
}
cmTreeTop: curowner :=gr_nrec;
cmTreeDown: curowner:=catalogs.nrec;
cmTreeUp: curowner:=catalogs.cparent;
cmCancel: {};
cmDone: {};
end;
end.
