AHK hack to enable 'live search' in Winorganizer

[nosh]

I don't know how many Winorganizer users are still around. Very few, if any, I'm guessing. I've tried to move away from it since it's been all but abandoned and have tried several other programs. Some of them have a feature or two to beat Winorganizer but overall, they always fall short.

One feature that some of the newer programs have and that I really miss in Winorganizer is live search results (find as you type).

I've put together a hack to supercharge Winorganizer's search into live search. Some of the code is my own and some of it is straight-up nicked from the interwebs.

The end result seems to work fine on my (XP) system. It seems harmless enough to me as far as unwarranted side-effects are concerned and consumes next to no resources. But, as a complete novice who only dabbles with AHK every year or so, I think it's appropriate that I share it with a USE AT YOUR OWN RISK - REALLY NOT MY PROBLEM kind of disclaimer.  

If someone who actually knows AHK wants to refine the code, that'd be great.

tl;dr - AHK hack to convert Winorganizer search into live search, use at you own risk.

Code: Autohotkey [Select]

1. #InstallKeybdHook
2.                 WinWait, ahk_class TfrmFind
3.                 IfWinActive, ahk_class TfrmFind
4.                 {       TClick = 0
5.                         SetTimer Stroke, 1
6.                 }      
7.  
8. Stroke:
9. ;Based on code from http://www.autohotkey.com/forum/topic17614.html
10.         If (A_TimeIdlePhysical > 30 or A_TickCount-TClick < 125)
11.         Return
12.         MouseGetPos mX, mY
13.    
14.         If (mX0 = mX && mY0 = mY)
15.         {
16.                 TClick := A_TickCount
17.                 LiveSearch()
18.         }
19.         Else
20.         mX0 := mX, mY0 := mY
21.         Return
22.  
23.  
24. LiveSearch()
25. {       ControlGetText, MyOutputVar, TdxPickEdit1 , Find text in file
26.         StringLen, MyStrLen, MyOutputVar
27.         if MyStrLen > 0
28.         ControlSend, Find, {Enter}, Find text in file
29.         Return 
30. }