Accessible Object Trigger / Release

[Gintaras]

Event "kill focus" does not exist. Need to remember last focused object...

This function works with the first edit control in Notepad Replace dialog.
Function acc_focus2
Trigger $a 133 -4 "" "Edit" 1152 "" "#32770" "Replace"     

Code:

Copy      Help

function hwnd idObject idChild
Acc a.ObjectFromEvent(hwnd idObject idChild)
out "set focus"
rep
,0.1
,int focused=a.State&STATE_SYSTEM_FOCUSED
,err break
,if(!focused) break
out "kill focus"