#NoEnv
SetBatchLines, -1
#Include Class_ImageButton.ahk
; ----------------------------------------------------------------------------------------------------------------------
Gui, DummyGUI:Add, Pic, hwndHPIC, PIC1.jpg
SendMessage, 0x0173, 0, 0, , ahk_id %HPIC% ; STM_GETIMAGE
HPIC1 := ErrorLevel

GuiColor := "Blue"
Gui, Margin, 50, 20
Gui, Font, s10
Gui, Color, %GuiColor%
ImageButton.SetGuiColor(GuiColor)

Gui, Add, Button, vBT4 w200 h30 hwndHBT4
; Opt1 := [0, HPIC1]                                          ; normal image
Opt1 := [0, "warning.png"]                                          ; normal image
; Opt2 := {2:"PIC2.jpg"}                                      ; hot image (object syntax)
Opt2 := {2:"info.png"}
If !ImageButton.Create(HBT4, Opt1, Opt2)
   MsgBox, 0, ImageButton Error Btn4, % ImageButton.LastError
; GuiControl, Focus, BT2
Gui, Show, , Image Buttons
Return
; ----------------------------------------------------------------------------------------------------------------------
GuiClose:
GuiEscape:
ExitApp
; ----------------------------------------------------------------------------------------------------------------------
Check:
   GuiControlGet, CheckBox
   GuiControl, Enable%CheckBox%, BT3
   GuiControl, Text, CheckBox, % (CheckBox ? "Disable!" : "Enable!")
Return