1. Когда меняю родителя, то ветка уходит в нужное место, а вот курсор остается на том же самом. Хотелось бы, чтобы он переместился вместе с той записью, где и был. Использовал функцию TreeJumpToRecord – дерево ломается, при нажатии на кнопку обновить все восстанавливается. Может, я эту функцию как-то не правильно использую:
Код: Выделить всё
cmPick :
{
case curField of
#BUDMNCSPAR.NAME:
begin
var cpar, ctek : comp;
cpar := BUDMNCS.CBUDMNCS;
ctek := tek_budjet.getStBud(var_budjet, var_fpco);
if ctek > 0
{
BUDMNCS.CBUDMNCS := ctek;
update current BUDMNCS;
RecalcPerentSum(BUDMNCS.CBUDMNCS);
RecalcPerentSum(cpar);
TreeJumpToRecord(tr1, BUDMNCS.NREC);
ReReadRecord(#BUDMNCS);
}
end;
end; //case
}
Код: Выделить всё
cmUpdateRecord:
{
if BUDMNCS.IS_LEAF = 0
{
update current BUDMNCS;
RecalcPerentSum(BUDMNCS.CBUDMNCS);
ReReadRecord(#BUDMNCS);
}
}