Guest User

Untitled

a guest
Oct 17th, 2012
170
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.17 KB | None | 0 0
  1. #include <GUIConstantsEx.au3>
  2. #include <StaticConstants.au3>
  3. #include <WindowsConstants.au3>
  4.  
  5. #Region ### START Koda GUI section ### Form=
  6. $Form1 = GUICreate("Patcher", 600, 400, -1, -1, $WS_POPUP)
  7. $Pic7 = GUICtrlCreatePic(@ScriptDir & "/main.bmp", 0, 0, 600, 400)
  8. GUICtrlSetState( -1, $GUI_DISABLE)
  9. $Pic1 = GUICtrlCreatePic(@ScriptDir & "/btn_up.bmp", 467, 46, 123, 36)
  10. $Dummy = GUICtrlCreateLabel ("", 0, 0, 600, 400, -1, $GUI_WS_EX_PARENTDRAG)
  11. GUICtrlSetBkColor( -1, $GUI_BKCOLOR_TRANSPARENT)
  12.  
  13. GUISetState(@SW_SHOW)
  14. #EndRegion ### END Koda GUI section ###
  15.  
  16. While Sleep (30)
  17.     $nMsg = GUIGetMsg()
  18.     Global $Cursor = GUIGetCursorInfo($Form1)
  19.  
  20.         If $Cursor[4] = $Pic1 Then
  21.             GUICtrlSetImage($Pic1,@ScriptDir & "/btn_fs.bmp")
  22.         Else
  23.             GUICtrlSetImage($Pic1,@ScriptDir & "/btn_up.bmp")
  24.         EndIf
  25.  
  26.     Switch $nMsg
  27.         Case $GUI_EVENT_CLOSE
  28.             Exit
  29.         Case $GUI_EVENT_PRIMARYDOWN
  30.             $Cursor = GUIGetCursorInfo()
  31.             If $Cursor[4] = $Pic1 Then GUICtrlSetImage($Pic1,@ScriptDir & "/btn_dn.bmp")
  32.         Case $GUI_EVENT_PRIMARYUP
  33.             $Cursor = GUIGetCursorInfo()
  34.             If $Cursor[4] = $Pic1 Then GUICtrlSetImage($Pic1,@ScriptDir & "/btn_up.bmp")
  35.  
  36.     EndSwitch
  37. WEnd
Advertisement
Add Comment
Please, Sign In to add comment