Forum Discussion

MulgraveTester's avatar
MulgraveTester
Frequent Contributor
10 years ago

How can I test if a menu tree item exists before clicking it

I am working with a SysTreeView32 object. The tree structure in this object will change dynamically so I want to test if the menu item exists before r-clicking it. There is no "exists" property for i...
  • MulgraveTester's avatar
    MulgraveTester
    10 years ago

    Thanks all for you replies and for pulling me back to reality. After posting I wrote an elaborate set of functions to drill down through the tree to see if the item existed. All this was overkill.

     

    What I was actually trying to do was click several items in the tree and right-click the last item in order to bring up a context menu. I had to know that the last item I clicked was valid so that I r-clicked in the correct place.

     

    If I try and click an item that doesn't exist then an error is logged. I just wrote an event handler to ignore it. 

    Once an item is clicked I inspect if the item matches the wselection (which only lists the last item clicked). So the end solution looks something like this -

     

    selectionArray = Array("|A|B|1","|A|B|2","A|B|3")

    modifierKey = skNoShift
    for each selection in selectionArray
      call myTree.ClickItem(selection, modifierKey) 'Click or Ctrl+Click each item

      if strcomp(myTree.wSelection, selection)>=0 then 'Test the the item is now selected
        modifierKey = skCtrl
        lastClickedItem = selection    
      else
        call log.Warning("Tree menu item (" & selection & ") was not found.")
      end if
    next

    call myTree.ClickItemR(lastClickedItem) 'R-click the last item selected to open the context menu

NisHera's avatar
NisHera
Valued Contributor
10 years ago

in here study the SaveChildItems methoed 

you may modify it and use for your purpose or

simply save to a file (as it is) and read that file.

  • TanyaYatskovska's avatar
    TanyaYatskovska
    SmartBear Alumni (Retired)
    10 years ago

    Hi Mulgravetester,

     

    I believe that you can use the aqString.Find method to check if the target item is in the list:

      Res = aqString.Find(myMenuTree.wItems, myItem)
  If Res <> -1 Then
    Log.Message(myItem & " was found in string")
    Call myMenuTree.ClickItemR(myItem)
  end if
    • Colin_McCrae's avatar
      Colin_McCrae
      Community Hero
      10 years ago

      Does the wItem property just list the individual node names?

       

      In which case, it may find a single element. But it won't validate that it exists in the correct place in the tree view.

       

      So if child nodes, of child nodes, of child nodes, all have the same name (which is quite possible - happens quite frequently in the tree objects I test) then you may find a match, but it may not be the right one, or in the right place.

       

      The way I do it with Delphi trees is to select the item (using a left click - a right click triggers different options) and then afterwards check that the current selection is what you asked it to click on. Using the full pipe locator, so you know you got the correct node. If it doesn't match, the node didn't exist.

       

      If the node doesn't exist, it doesn't throw any sort of error for me? It just carries on regardless. So I don't even have to bother putting it inside a try/catch. But you could if a bad selection caused an error.

       

      This is fine for me as left clicking an item is fine to simply see if it exists. You have to start double or right clicking before anything actually happens. Of course, your application may not work that way in which case this approach may not work.

      • MulgraveTester's avatar
        MulgraveTester
        Frequent Contributor
        10 years ago

        Thanks all for you replies and for pulling me back to reality. After posting I wrote an elaborate set of functions to drill down through the tree to see if the item existed. All this was overkill.

         

        What I was actually trying to do was click several items in the tree and right-click the last item in order to bring up a context menu. I had to know that the last item I clicked was valid so that I r-clicked in the correct place.

         

        If I try and click an item that doesn't exist then an error is logged. I just wrote an event handler to ignore it. 

        Once an item is clicked I inspect if the item matches the wselection (which only lists the last item clicked). So the end solution looks something like this -

         

        selectionArray = Array("|A|B|1","|A|B|2","A|B|3")

        modifierKey = skNoShift
        for each selection in selectionArray
          call myTree.ClickItem(selection, modifierKey) 'Click or Ctrl+Click each item

          if strcomp(myTree.wSelection, selection)>=0 then 'Test the the item is now selected
            modifierKey = skCtrl
            lastClickedItem = selection    
          else
            call log.Warning("Tree menu item (" & selection & ") was not found.")
          end if
        next

        call myTree.ClickItemR(lastClickedItem) 'R-click the last item selected to open the context menu