Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.138.113.188] |
|
Сообщ.
#1
,
|
|
|
Вслепую переписал код Eagle-а, а о такой мелочи как назначение FocusedNode забыл
var Node, NextNode: PVirtualNode; begin Node := VST.FocusedNode; if not Assigned(Node) then Exit; NextNode := VST.GetNextVisibleSibling(Node); if not Assigned(NextNode) then NextNode := VST.GetPreviousVisibleSibling(Node); if Assigned(NextNode) then begin VST.FocusedNode := NextNode; // вот такая вот мелочь нужна еще VST.Selected[NextNode] := True; end; VST.DeleteNode(Node); |