this part works fine in AHK 2:
Code: Select all
MyGui := Gui()
TV := MyGui.Add("TreeView")
P1 := TV.Add("test1")
P1C1 := TV.Add("something", P1)
P2 := TV.Add("test2")
P2C1 := TV.Add("something", P2)
MyGui.Show
Code: Select all
TV.Modify(P1, "Expand")
TV.Modify(P2, "Expand")
Gui +HwndGuiHwnd +AlwaysOnTop +LastFound
Gui Add, TreeView, gTreeViewEvent x5 y5 w400 h300
DetectHiddenWindows, On
WinSet, TransColor, EEAA99 50
DetectHiddenWindows, Off
TreeViewEvent:
if (A_GuiEvent = "DoubleClick") {
TV_GetText(ItemText, A_EventInfo)
clipboard := % ItemText
WinActivate, ahk_exe soffice.bin
Sleep, 500
SendInput, % ItemText
SendInput, {enter}
Sleep, 500
WinActivate, Shortcuts
}
return