AutoHotkey Community

Browse:
   FileSelectFile,FTA
   GuiControl,, Path, %FTA%
Return

GetMouseStats:
   MouseGetPos, X,Y,W,C ;This is used to show the ToolTip
   If (sX = X) AND (sY = Y)
      return   
   IfInString, C, Static
   {
      If (X >= %GuiA% or X <= %GuiB%)
      {
         If (Y < 48)
         {
            StringTrimLeft,C,C,6
            Msg := AppPath%C%
            ToolTip, %Msg%
            sX := X
            sY := Y
         }
      }
   }
   Else
      ToolTip
Return

;For the fade out of the dock, you'll need to comment or remove this line at the top:
;#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.

;I suggest using the window id instead of the title in case of the rare instance where there
;  are 2 windows of the same title. Add this after the loop that puts pictures in the gui:
;  (~line 57 for me. I don't think I changed any lines above that)
Gui, 3: +LastFoundExist
WID := "ahk_id " . WinExist()
OverGui := A_TickCount
Faded = 0
;Instead of refrencing %W% use %WID%. This includes the "ahk_id" part, so no need to add it yourself


;Since it returns if the mouse hasn't moved you need to change the StartApp a tiny bit: (just noticed this :P)
StartApp:
   Loop, Parse, AppPath%CRun%, |," ;"
      Run := A_LoopField
   Run,%Run%
Return

;The meat:
;Notice that the tooltips are all some weird number so it doesn't prevent all regular tooltips :P
GetMouseStats:
   MouseGetPos, X,Y,W,C ;This is used to show the ToolTip
   If (sX = X) AND (sY = Y) ;Cancel if the mouse hasn't moved
      return
   If Y < 48 ;I had to reorder all of the ifs
   {
      If X between %GuiA% and %GuiB% ;If var between is easier
      {      
         OverGui := A_TickCount ;save the current time
         If Y < 5 ;activate the gui if it's within 5px of the top
         {
            WinSet, AlwaysOnTop, On, %WID% ;move it to the top
            Faded = 0
         }
         IfInString, C, Static
         {
            StringTrimLeft, CRun, C, 6
            Msg := AppPath%CRun%
            ToolTip, %Msg%,,, 11
            sX := X
            sY := Y
         }
         Else
            ToolTip ,,,, 11
      }
      Else
         ToolTip, ,,,11
   }
   Else
      ToolTip, ,,,11
      
   If (Faded = 0) AND (A_TickCount-OverGui > 3000)
   {
      FadeOut(WID, Alpha)
      WinSet, AlwaysOnTop, Off, %WID%
      WinSet, Bottom,, %WID%
      WinSet, Transparent, %Alpha%, %WID%
      Faded = 1
   }
Return