SetTreeNodeImage method

Applies to
TGUITestRunner

Declaration
Procedure SetTreeNodeImage(Node :TTReeNode; imgIndex :Integer);

Implementation

procedure TGUITestRunner.SetTreeNodeImage(Node :TTReeNode; imgIndex :Integer);
begin
  while Node <> nil do
  begin
    if imgIndex > Node.ImageIndex then begin
       Node.ImageIndex    := imgIndex;
       Node.SelectedIndex := imgIndex;
    end;
    Node := Node.Parent;
  end;
End;


HTML generated by Time2HELP
http://www.time2help.com