Корректно заработало только при таком коде – сначала пришлось поставить другую иконку, потом вернуть её на место.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
procedure TDMDB.UpdateStateIndex(Node: TTreeNode); var i:integer; begin if Node.StateIndex=2 then begin Node.StateIndex:=1; Node.StateIndex:=2; end else begin Node.StateIndex:=2; Node.StateIndex:=1; end; // Далее рекурсивно по всем потомкам if Node.HasChildren then begin for i := 0 to Node.Count-1 do UpdateStateIndex(Node[i]); end; end; |