Question

I am trying to improve a script that contains a third-party Delphi tree of class TElTreeView. I can locate the specified item I want to click and expand in the ElTree1 object but I cannot seem to access it by its index value via TC scripting. I need for the item to be checked, expanded and a couple of the child items underneath it set accordingly.

If I just do the following…

w := p.frmOpts;
tvw := w.VCLObject('ElTree1');
tvw.Selected.Checked := true;

… then the line item that is highlighted by default when the window is opened will be checked. I’ve tried a number of other things but am not so far having any luck. I’m trying to avoid using Sys.Keys.

Any ideas?

Thanks!

Answer 1

You need to compile your application with debug information so TestComplete‘s Debug Info Agent can provide the tool with access to all native methods and properties of the control. Once TestComplete can find debug information, you can access tree items in this way:

procedure Test;
  ...
  w := p.frmOpts;
  tvw := w.VCLObject('ElTree1');
  tvw.Items.Item(1).Checked := true;
end;

Find details on how to correctly compile a Delphi application with debug information for TestComplete in the Debug Info Agent help topic. Click the link corresponding to your version of Delphi to get the steps.

Also, you can vote for advanced support of your control in future versions of TestComplete in this survey.

Update:

Although TestComplete does not have an extended support for the TElTreeView control like for some other wide-spread tree view controls, it is posible to create script routines for working with the control at a high-level. These routines will use TestComplete’s Open Application feature to work with the tree control via its native methods and properties. The below sample script demonstrates how this can be done.

function getTreeNode(tree, nodeName); forward;
function clickTreeNode(tree, node); forward;

procedure test;
var
  tree;
  nodeName;
  node;
begin
  tree := Sys.Process('ElTreeTest').VCLObject('Form1').VCLObject('ElPanel1').VCLObject('ElTree1');
  nodeName := 'Item B|Item BB|Item BBA';
  node := getTreeNode(tree, nodeName);
  if node <> nil then
    Log.Message(node.Caption)
  else
  begin
    Log.Error('Node "' + nodeName + '" not found');
    Runner.Stop;
  end;

  node.MakeVisible;
  node.Checked := not node.Checked;
  clickTreeNode(tree, node);
end;

function clickTreeNode(tree, node);
var
  x, y;
begin
  node.MakeVisible;
  x := (node.TextRect.Left + node.TextRect.Right) / 2;
  y := (node.TextRect.Top + node.TextRect.Bottom) / 2;
  tree.Click(x, y);
end;

function getTreeChildNode(rootNode, nodeName);
var
  i;
  item;
  nodeCaption;
begin
  result := nil;
  if rootNode = nil then
    exit;

  nodeCaption := aqString.GetListItem(nodeName, 0);

  for i := 0 to rootNode.ChildrenCount - 1 do
  begin
    item := rootNode.Children(i);
    if item.Caption = nodeCaption then
    begin
      result := item;
      break;
    end;
  end;

  if aqString.GetListLength(nodeName) > 1 then
    result := getTreeChildNode(result, aqString.DeleteListItem(nodeName, 0));
end;

function getTreeNode(tree, nodeName);
var
  rootNodeCaption;
  item;
  i;
begin
  aqString.ListSeparator := '|';
  rootNodeCaption := aqString.GetListItem(nodeName, 0);
  result := nil;

  for i := 0 to tree.Items.Count - 1 do
  begin
    item := tree.Items.Item(i);
    if item.Parent = nil then
    begin
      if item.Caption = rootNodeCaption then
      begin
        result := item;
        break;
      end;
    end;
  end;

  if aqString.GetListLength(nodeName) > 1 then
    result := getTreeChildNode(result, aqString.DeleteListItem(nodeName, 0));
end;