AHK: Button с картинкой (функция)

FileInstall, ClipMgrIcons.dll, ClipMgrIcons.dll
IcoDll := A_ScriptDir "\ClipMgrIcons.dll"
if !FileExist(IcoDll)  {
   URLDownloadToFile, % "http://content.screencast.com/users/teadrinker/folders/Files/media/7d4f94ae-cdd3-467d-b3d1-786f5e8af91c/ClipMgrIcons.dll?downloadOnly=true", % IcoDll
}

; Иконка в заголовке окна и трее
Menu, Tray, Icon, %IcoDll%, 4

Gui, Show, w200 h70

; Добавляем одну кнопку
AddPicButton(8, 8, 32, 1, Action1)
; Добавляем еще одну кнопку
AddPicButton(8, 40, 16, 6, Action2)

Return

; --------------------------------------------------------------
; Функция добавляет "кнопку" с графическим рисунком
AddPicButton(xpos, ypos, size, num_icon, goto_action) {
	szdown := size+2
	xyup := size+6
	Global Gui, Add , Picture, x%xpos% y%ypos% w%szdown% h%szdown% E0x200 vStateDown icon%num_icon% gButton_OnClik, %IcoDll%
	Global Gui, Add , Picture, x+-%xyup% y+-%xyup% w%size% h%size% E0x001 vStateUp icon%num_icon% gButton_OnClik, %IcoDll%

Button_OnClik:
	GuiControl Hide, StateUp
	tc := A_TickCount
	While, GetKeyState("LButton", "P"){
		If A_TickCount-tc > 1000
			Break
	}
	GuiControl Show, StateUp
	Gosub, %goto_action%
}

; Реакция на нажатие первой кнопки
Action1:
	MsgBox, This Action1
	Return

; Реакция на нажатие второй кнопки
Action2:
	MsgBox, This Action2
	Return

GuiClose:
GuiEscape:
	ExitApp

Global Gui, Add, Picture, % "x" xpos " y" ypos " w" szdown " h" szdown " E0x200 vStateDown icon" num_icon " gButton_OnClik", IcoDll

Gui Show, w200 h70
AddPicButton(8, 8, 32, 1, "Action1")
AddPicButton(8, 40, 16, 6, "Action2")
Return

AddPicButton(xpos, ypos, size, num_icon, goto_action) {
	Gui Add, Picture, % "x" xpos " y" ypos " w" size+2 " h" size+2 " E0x200 icon" num_icon " g" goto_action, % IcoDll
	Gui Add, Picture, % "x+-" size+6 " y+-" size+6 " w" size " h" size " E0x001 icon" num_icon " g" goto_action, % IcoDll
	GuiControl Show, StateUp
}
Action1:
	MsgBox mAction1
	Return
Action2:
	MsgBox % "mAction2"
	Return
GuiClose:
	ExitApp

   param1 := x%x% y%y% w%sizeDown% h%sizeDown% +E%WS_EX_CLIENTEDGE% Icon%n%
   MsgBox, % param1

FileInstall, ClipMgrIcons.dll, ClipMgrIcons.dll
global IcoDll
IcoDll := A_ScriptDir "\ClipMgrIcons.dll"
if !FileExist(IcoDll) ; Загрузка библиотеки иконок при её отсутствии
	URLDownloadToFile, % "http://content.screencast.com/users/teadrinker/folders/Files/media/7d4f94ae-cdd3-467d-b3d1-786f5e8af91c/ClipMgrIcons.dll?downloadOnly=true", % IcoDll

; Иконка в заголовке окна и трее
Menu, Tray, Icon, %IcoDll%, 4
Gui, Show, w200 h70

AddPicButton(8, 8, 32, 1, "Action1")
global hButton2 ; указатель на эту кнопку используется в нашем Action2
hButton2 := AddPicButton(60, 8, 16, 2, "Action2")
Return

; Функция добавляет "кнопку" с графическим рисунком и возвращает указатель на неё
AddPicButton(x, y, size, n, action, GuiID := 1) {
	static WS_EX_CLIENTEDGE := 0x200, WS_EX_DLGMODALFRAME := 0x1

	sizeDown := size + 2
	Gui, %GuiID%: Add, Pic, x%x% y%y% w%sizeDown% h-1 hwndhButtonDown +E%WS_EX_CLIENTEDGE% hidden Icon%n%, % IcoDll ; Вдавленная кнопка (скрываем)
	Gui, %GuiID%: Add, Pic, x%x% y%y% w%size% h-1 hwndhButtonUp +E%WS_EX_DLGMODALFRAME% Icon%n%, % IcoDll ; Отжатая кнопка (показываем)
	handler := Func("OnClick").Bind(hButtonUp, hButtonDown, action, GuiID)
	GuiControl, +g, % hButtonUp, % handler
	Return hButtonUp
}
; Обработка нажатия на кнопку
OnClick(IdButtonUp, IdButtonDown, action, GuiID) {
	GuiControl, %GuiID%: Hide, % IdButtonUp
	GuiControl, %GuiID%: Show, % IdButtonDown
	KeyWait, LButton
	GuiControl, %GuiID%: Hide, % IdButtonDown
	GuiControl, %GuiID%: Show, % IdButtonUp
	MouseGetPos,,,, ControlID, 2
	( ControlID = IdButtonUp && Func(action).Call() )
}

Action1() {
	MsgBox, This Action1
}

Action2() {
	AddPicButton(94, 8, 16, 6, "Action3")
	GuiControl, 1: Hide, % hButton2
}

Action3() {
	MsgBox, This Action3
}

GuiClose:
	ExitApp

IcoDll := "Shell32.dll"

handles := []
while (i := A_Index) < 3
   Loop 3
      handles.Push( AddPicButton(10 + (A_Index - 1)*52, 40, 32, IcoDll, 22 + (i - 1)*3 + A_Index, Func("Action")) )

Gui, Add, Radio, vRadio1 x20 y10 Checked, Set1
Gui, Add, Radio, vRadio2 x+30 yp, Set2
toggle := Func("ChangeSet").Bind(handles, "", 1)
Loop 2
   GuiControl, +g, Radio%A_Index%, % toggle

ChangeSet(handles, 1)
Gui, Show, w166 h90
Return

AddPicButton(x, y, size, IcoDll, n, action, GuiID := 1)  {
   static WS_EX_CLIENTEDGE := 0x200, WS_EX_DLGMODALFRAME := 0x1
   
   Gui, %GuiID%: Add, Pic, x%x% y%y% w%size% h-1 hwndhButtonDown +E%WS_EX_CLIENTEDGE% Icon%n% hidden, % IcoDll
   Gui, %GuiID%: Add, Pic, x%x% y%y% w%size% h-1 hwndhButtonUp +E%WS_EX_DLGMODALFRAME% Icon%n% hidden, % IcoDll
   OnClick := Func("OnClick").Bind(hButtonUp, hButtonDown, action, GuiID)
   GuiControl, +g, % hButtonUp, % OnClick
   Return hButtonUp
}

OnClick(hUp, hDown, action, GuiID)  {
   GuiControl, %GuiID%: Hide, % hUp
   GuiControl, %GuiID%: Show, % hDown
   KeyWait, LButton
   GuiControl, %GuiID%: Hide, % hDown
   GuiControl, %GuiID%: Show, % hUp
   MouseGetPos,,,, ControlID, 2
   ( ControlID = hUp && action.Call() )
}
   
Action()  {
   MouseGetPos,,,, Control
   MsgBox, % "Кнопка " . RegExReplace(Control, ".*?(\d+)", "$1")//2
}

ChangeSet(handles, set, GuiID := 1)  {
   ( !set && set := SubStr(A_GuiControl, 0) )
   for k, v in handles
      GuiControl, % GuiID . ":" . ( (set = 2) ^ (k < 4) ? "Show" : "Hide" ), % v
}

GuiClose()  {
   ExitApp
}