Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("Patcher", 600, 400, -1, -1, $WS_POPUP)
- $Pic7 = GUICtrlCreatePic(@ScriptDir & "/main.bmp", 0, 0, 600, 400)
- GUICtrlSetState( -1, $GUI_DISABLE)
- $Pic1 = GUICtrlCreatePic(@ScriptDir & "/btn_up.bmp", 467, 46, 123, 36)
- $Dummy = GUICtrlCreateLabel ("", 0, 0, 600, 400, -1, $GUI_WS_EX_PARENTDRAG)
- GUICtrlSetBkColor( -1, $GUI_BKCOLOR_TRANSPARENT)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While Sleep (30)
- $nMsg = GUIGetMsg()
- Global $Cursor = GUIGetCursorInfo($Form1)
- If $Cursor[4] = $Pic1 Then
- GUICtrlSetImage($Pic1,@ScriptDir & "/btn_fs.bmp")
- Else
- GUICtrlSetImage($Pic1,@ScriptDir & "/btn_up.bmp")
- EndIf
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $GUI_EVENT_PRIMARYDOWN
- $Cursor = GUIGetCursorInfo()
- If $Cursor[4] = $Pic1 Then GUICtrlSetImage($Pic1,@ScriptDir & "/btn_dn.bmp")
- Case $GUI_EVENT_PRIMARYUP
- $Cursor = GUIGetCursorInfo()
- If $Cursor[4] = $Pic1 Then GUICtrlSetImage($Pic1,@ScriptDir & "/btn_up.bmp")
- EndSwitch
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment