Scroll to focused item on Windows Explorer left pane

[Gintaras]

Macro Macro2503

Code:

Copy      Help

;int w=win("" "ExploreWClass")
int w=win("" "CabinetWClass")
int c=id(100 w) ;;outline
act c
;Acc a=acc()
;a.Mouse(0)
;a.Select(SELFLAG_TAKEFOCUS|SELFLAG_TAKESELECTION)

int htvi=SendMessage(c TVM_GETNEXTITEM TVGN_CARET 0)
SendMessage(c TVM_ENSUREVISIBLE 0 htvi)