procedure TGUITestRunner.UpdateNodeState(node: TTreeNode);
var
test: ITest;
begin
assert(assigned(node));
test := NodeToTest(node);
assert(assigned(test));
if not test.enabled then
begin
node.StateIndex := imgDISABLED;
end
else if (node.Parent <> nil)
and (node.Parent.StateIndex <= imgPARENT_DISABLED) then
begin
node.StateIndex := imgPARENT_DISABLED;
end
else
begin
node.StateIndex := imgENABLED;
end;
if node.HasChildren then
begin
node := node.getFirstChild;
while node <> nil do
begin
UpdateNodeState(node);
node := node.getNextSibling;
end;
end;
End; |