Delphi VCL Object TStatusBar and TVirtualStringTree TChart

Question

Hi,I would like to know how to get the information displayed on a TVirtualStringTree.I can see only the number of RootNodeCount, but how to get the element displayed.Same question on the TStatusBar. I can see the number of element wPartCount, but when i try to acces the element using wText(n), i cannot get the text displayed.Same question on TChart object.Regards.

dmitry_nikolaev · Answer

Hi Karim,- TVirtualStringTreeTo work with this control, you need to use the Object Mapping feature of TestComplete. Please follow the steps below:1. Double-click your project node in the Project Explorer panel.2. Switch to the Properties tab in the project editor.3. Select the Object Mapping section of the project properties.4. Expand the "Win32 Controls and Windows" node.5. Select the Tree view item.6. Click the "Add Class Name" button.7. Type "TVirtualStringTree" to make TestComplete treat controls of the TVirtualStringTree class as standard TreeView controls.After that, TestComplete will be able to record high-level tests with TVirtualStringTree controls.- TStatusBarProbably, the items of the problematic status bar are owner-drawn. In this case, you can try obtaining the text displayed in these owner-drawn items by using the panels collection returned by the Panels native property of status bar objects. Use native methods and properties of items from this collection to get information on them.- TChartCurrently, this control is not supported by TestComplete. However, you can work with the control's data by using its native Series property. You can find more information on the Series property in the Delphi IDE help system.Please note that, to make TestComplete be able to access native properties of Delphi applications, you need to include debug information in your application (see the Using Debug Info Agent With Delphi Applications help topic).Let me know if you have additional questions.

veerug2003 · Answer

Hi Karim,Did you manage to work with TVirtualStringTree object?? After following the steps provided by david, i can get the name of&nbsp;each individual node item. But i can not perform Select, Expand and Collapse actions on the node Items.&nbsp;I &nbsp;appreciate any suggestions.&nbsp;Many thanks,Veeresh Kumar&nbsp;

dmitry_nikolaev · Answer

Hi Karim,Here is a sample script that demonstrates how to expand the TVirtualStringTree object's nodes:Sub Main&nbsp;&nbsp;' This script works with the "&lt;vt contributions&gt;\Examples\Delphi\Minimal\Minimal.exe" sample.&nbsp;&nbsp;' Before executing the script, add four nodes to the tree making the next node a child of the previous one.&nbsp;&nbsp;&nbsp;Dim p, wMain, wTree, strItem&nbsp;&nbsp;Set p = Sys.Process("Minimal")&nbsp;&nbsp;Set wMain = p.VCLObject("MainForm")&nbsp;&nbsp;Set wTree = wMain.VCLObject("VST")&nbsp;&nbsp;strItem = "Level 0, Index 0|Level 1, Index 0|Level 2, Index 0|Level 3, Index 0|Level 4, Index 0"&nbsp;&nbsp;If clickNode(wTree, strItem) Then&nbsp;&nbsp; &nbsp;Log.Message "The '" &amp; strItem &amp; "' node was successfully clicked."&nbsp;&nbsp;&nbsp;End IfEnd SubFunction clickNode(wTree, strItem)&nbsp;&nbsp;Dim tempRes&nbsp;&nbsp;wTree.FullCollapse(wTree.RootNode)&nbsp;&nbsp;wTree.ClearSelection&nbsp;&nbsp;wTree.SetFocusedNode(wTree.RootNode)&nbsp;&nbsp;Log.LockEvents(1)&nbsp;&nbsp;tempRes = dblClickNode(wTree, strItem)&nbsp;&nbsp;Log.UnlockEvents&nbsp;&nbsp;clickNode = tempRes&nbsp;&nbsp;&nbsp;If tempRes Then&nbsp;&nbsp; &nbsp;Log.Event "The '" &amp; strItem &amp; "' node was clicked."&nbsp;&nbsp;Else&nbsp;&nbsp; &nbsp;Log.Error "The '" &amp; strItem &amp; "' node was not found."&nbsp;&nbsp;End IfEnd FunctionFunction dblClickNode(wTree, strItem)&nbsp;&nbsp;Dim wSelected, arrayItem, itemCount, itemId, item&nbsp;&nbsp;&nbsp;&nbsp;dblClickNode = False&nbsp;&nbsp;If Len(strItem)= 0 Then&nbsp;&nbsp; &nbsp;dblClickNode = True&nbsp;&nbsp; &nbsp;Exit Function&nbsp;&nbsp;End If&nbsp;&nbsp;wSelected = wTree.wSelection&nbsp;&nbsp;arrayItem = Split(strItem, "|")&nbsp;&nbsp;itemCount = wTree.wItemCount&nbsp;&nbsp;For itemId = 0 To itemCount - 1&nbsp;&nbsp;&nbsp; &nbsp;item = wTree.wItem(itemId)&nbsp;&nbsp; &nbsp;If SameText(item, arrayItem(0)) Then&nbsp;&nbsp; &nbsp; &nbsp;Call wTree.DblClickItem(wSelected &amp; "|" &amp; arrayItem(0))&nbsp;&nbsp; &nbsp; &nbsp;arrayItem(0) = ""&nbsp;&nbsp; &nbsp; &nbsp;dblClickNode = dblClickNode(wTree, Replace(Join(arrayItem, "|"), "|", "", 1, 1))&nbsp;&nbsp; &nbsp; &nbsp;Exit Function&nbsp;&nbsp; &nbsp;End If &nbsp; &nbsp;&nbsp;&nbsp;NextEnd Function

rampage · Answer

Do you have something like this for Delphi?We have a VirtualStringTree with a dynamical number of nodes. All nodes are Level1 children of the root.We want to get a specific item (by its name or another property). Its position in the tree can change at every start of the process. Methods like "GetFirst", "Get Next" or "GetNodeData" are not available for the mapped object in TestComplete.

dmitry_nikolaev · Answer

Hi Sven,Please continue working via e-mail with Brian.

Forum Discussion

Delphi VCL Object TStatusBar and TVirtualStringTree TChart

10 Replies

Recent Discussions

WinForms application crashes on "save as" dialog

Cannot Open Sys Object Tree

Azure DevOps Pipelines - "Headless" VMs

Related Content

AQTime Delphi 11.X Support

Delphi Split function

Delphi popup menu?