;;
;;  Script: EE_AutoClearFindHighlight.ahk
;;  Author: MwM - Crash&Burn, 2010
;;  Usage:: 
;;    Automatically clear the Find Highlight when EmEditor's
;;    Find Dialog is closed with the [Close] Button.
;;
;;    Does not clear the Find Highlight if ESC, or the 
;;    Find Dialog's TitleBar [X] is used, nor if a modifier
;;    key is held down when clicking [Close] (i.e. Shift)
;;
  #SingleInstance, Force 
  #NoEnv
SetBatchLInes, -1

#ifWinActive, Find ahk_class #32770
{
  ~LButton::
; $ESC::
  {  
    aParent := DllCall( "GetParent", UInt, WinExist("A") )
    aParent := (( !aParent ) ? WinExist("A") : aParent )
    WinGetClass, aClass, ahk_id %aParent% 
    if( aClass <> "EmEditorMainFrame3" )
      return
    if( A_ThisHotKey == "LButton" )
    {
      MouseGetPos, ,, aFind, aControl
      if( aControl <> "Button16" )
        return
      KeyWait, LButton
      Sleep, 50
      ifWinExist, ahk_id %aFind%
        return
      WinWaitActive, ahk_class EmEditorMainFrame3
      Send, !{F3}
    }
    ;; If one wanted the Find Highlight to clear on ESC
    ;; Remove comment block below, and uncomment ESC above.
    /*
     *
    else    
    if( A_ThisHotKey == "$ESC" )        ;;  Not clearing Find Highlight on ESC, atm
    {
      Send, {ESC}
      Sleep, 50
      ifWinExist, ahk_id %aFind%
        return
      WinWaitActive, ahk_class EmEditorMainFrame3
      Send, !{F3}
    }
     *
     */
  return
  }
return
}  

#ifWinActive, Find ahk_class #32770, &Search All Open Documents
{
    $LButton::    IWA_32770_FindReplace( "{LButton Down}" )
    $LButton UP:: IWA_32770_FindReplace( "{LButton Up}"   )
return
}
#ifWinActive, Replace ahk_class #32770, Search All &Open Documents
{
    $LButton::    IWA_32770_FindReplace( "{LButton Down}" )
    $LButton UP:: IWA_32770_FindReplace( "{LButton Up}"   )
return
}

WinGetParentClass(winTitle="A", winText="", exTitle="", exText="")
{
    WinGetClass, wClass, % "ahk_id " DllCall( "GetParent", "UInt", WinExist(winTitle, winText, exTitle, exText))
return wClass
}

IWA_32770_FindReplace(mKeyF)
{
    EmEditorMainFrame3_sendKey:="!{F3}", EmEditorMainFrame3_control:="Button16" 
    ControlGetFocus, cgFocus
    Send, % ((wpClass:=WinGetParentClass()) && doKey:=(cgFocus==%wpClass%_control)) ? mKeyF : mKeyF
    if( GetKeyState("Ctrl") || GetKeyState("Shift") )
	return
    Send, % (doKey && (WinGetClass("A")==wpClass) && %wpClass%_sendKey) ? %wpClass%_sendKey : "" 
return
}