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; |
|