#include <File.au3>
#include <__ButtonHoverTag.au3>

Opt("GUIOnEventMode", 1)        ;0=disabled, 1=OnEvent mode enabled

; required
$XButton_Location = @ScriptDir & "\Images\"

;~ $XButton_Location = FileReadLine(@ScriptDir & "\Buttons\BDefault.txt", 1)
;~ If Not FileExists($XButton_Location) Then $XButton_Location = FileSelectFolder("Button Folders", @ScriptDir & "\Buttons", 2)

$color = ""
If StringInStr($XButton_Location, "15") Then $color = 0xFFFFFF

$Main_GUI = GUICreate("_ButtonHover Demo")
$List = GUICtrlCreateList("", 40, 80, 100, 100)
GUICtrlCreateLabel($XButton_Location, 20, 20, 400, 20)

$Button_1 = __HoverButton ("Small", 180, 80, 70, 15, "Valid", $color)
GUICtrlSetOnEvent( $Button_1[0], "Message")
$Button_2 = __HoverButton ("Medium", 180, 120, 90, 30, "Exit", $color)
GUICtrlSetOnEvent( $Button_2[0], "Message")
$Button_3 = __HoverButton ("Long", 180, 180, 190, 30, "Valid", $color)
GUICtrlSetOnEvent( $Button_3[0], "Message")
$Button_4 = __HoverButton ("Large", 180, 240, 190, 60, "Valid", $color)
GUICtrlSetOnEvent( $Button_4[0], "Message")
$Button_5 = GUICtrlCreateButton("Select", 50, 200, 80, 25)
GUICtrlSetTip($Button_5, "Select a Button Style")
GUICtrlSetOnEvent( -1, "Buttoner")
GUISetState()

GUISetOnEvent($GUI_EVENT_CLOSE, "Exiter")

$FileList = _FileListToArray(@ScriptDir & "\Img", "*.*", 2)
If (Not IsArray($FileList)) Or (@error = 1) Then
    MsgBox(0, "", "No Files\Folders Found.", 5)
Else
    For $x = 1 To UBound($FileList) - 1
        If StringInStr($FileList[$x], "more") Then ContinueLoop
        $result = StringInStr($FileList[$x], "\", 1, -1)
        $final = StringTrimRight($FileList[$x], $result)
        GUICtrlSetData($List, $final, 1)
    Next
EndIf


While 1
    ; required
    __CheckHoverAndPressed ($Main_GUI)
    Sleep(10)
WEnd

Func Buttoner()
    $New_Btn = GUICtrlRead($List)
    If $New_Btn = "" Then Return
    FileDelete(@ScriptDir & "\Buttons\BDefault.txt")
    FileWrite(@ScriptDir & "\Buttons\BDefault.txt", @ScriptDir & "\Buttons\" & $New_Btn)
    Run(FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    Exit
EndFunc   ;==>Buttoner

Func Message()
    GUICtrlSetImage(@GUI_CtrlId, $XButton_Location & "\Press" & $XBType)
    MsgBox(64, "Button Pressed", "you pressed button " &  @GUI_CtrlId   , 3)
EndFunc

Func Exiter()
    Exit
EndFunc