AHK: GUI смена фона при наведении на элементы в блоке

   
    Gui, destroy 
    Gui, -Caption +ToolWindow -AlwaysOnTop -SysMenu
    Gui, Color, ffffff
    
    results := 20
    
    i := 0
    While i < results
    {
      if i = 0 ; for first result
        {
          ; возможное решение задачи посредством прогресбара
          Gui, Add, Progress,x0 y0 w300 h20 cbbffff BackgroundFFEEFF vMyProgress
          GuiControl,, MyProgress, 50 
          
          Gui, Add, Pic,+BackgroundTrans x0 y0, Logo%i%.gif
          Gui, Add, Text,+BackgroundTrans x+0 y0 gLabel , result%i%
          Gui, Add, Text, xp y20 gLabel , sometext%i%
        }
      else if i <> 0
        {
          Gui, Add, Pic, x0 y+0, Logo%i%.gif
          Gui, Add, Text, x+0 yp+12  gLabel ,result%i%
          Gui, Add, Text, xp+ y+0  gLabel , sometext%i%
        }

      i := i +1
    }
    Gui, Show, NA
    
    
    
    ; press control
Label:
MsgBox, %  test
Return

ElemsNumber := 20
logoPath := "D:\Downloads\dJ8db6A.png"  ; указать путь к картинке
MainColor := "F0F0F0"                   ; цвет фона окна
HoverColor := "BBFFFF"                  ; цвет при наведении
width := 300                            ; ширина окна

Gui, Main: -Caption +ToolWindow +hwndhMainGui
Gui, Main: Color, % MainColor

Loop % ElemsNumber  {
   Gui, %A_Index%: Default
   Gui, -Caption +ToolWindow +ParentMain
   Gui, Margin, 0, 0
   Gui, Color, % MainColor
   Gui, Add, Pic, x0 y0, % logoPath
   Gui, Add, Text, x+0 yp+12, result%A_Index%
   Gui, Add, Text, xp y+0 vText, sometext%A_Index%
   if (A_Index = 1)  {
      GuiControlGet, Text, Pos
      height := TextY + TextH
   }
   Gui, Show, % "NA x0 y" (A_Index - 1) * height " w" width
}
Gui, Main: Show, % "NA w" width " h" height * ElemsNumber

OnMessage(0x200, Func("WM_MOUSEMOVE").Bind(MainColor, HoverColor, hMainGui))
OnMessage(0x201, "WM_LBUTTONDOWN")
Return

WM_LBUTTONDOWN()  {
   static start := 0
   if (A_TickCount - start) < 400
      Return
   MsgBox, % A_Gui       ; здесь вместо MsgBox действие при клике по элементу
   Sleep, 400
   start := A_TickCount
}

WM_MOUSEMOVE(MainColor, HoverColor, hGui)  {
   static prev := [], timer
   if (!A_Gui || A_Gui = prev[1])
      Return
   
   Gui, %A_Gui%: Color, % HoverColor
   try Gui, % prev[1] " :Color", % MainColor
   prev[1] := A_Gui
   
   try SetTimer, % timer, Delete
   timer := Func("ClearColor").Bind(A_Gui, MainColor, prev, hGui)
   SetTimer, % timer, 100
}

ClearColor(nGui, MainColor, prev, hMainGui)  {
   MouseGetPos,,, hwnd
   if (hwnd = hMainGui)
      Return
   
   Gui, %nGui%: Color, % MainColor
   prev[1] := ""
   SetTimer,, Delete
}