home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / triky / triky.exe / autoit-v3-setup.exe / Examples / GUISetCursor.au3 < prev    next >
Text File  |  2005-01-07  |  462b  |  25 lines
  1. #include <GUIConstants.au3>
  2.  
  3. $IDC = -1
  4. $newIDC = 0
  5.  
  6. HotkeySet("{Esc}", "Increment")
  7.  
  8. GUICreate("Press Esc to Increment", 400, 400,0,0,0x04CF0000, 0x00000110)
  9.  
  10. GUISetState ()
  11.  
  12. While GUIGetMsg()<> $GUI_EVENT_CLOSE
  13.      If $newIDC <> $IDC Then
  14.          $IDC = $newIDC
  15.          GUISetCursor($IDC)
  16.      EndIf
  17.      ToolTip("GUI Cursor #" & $IDC)
  18. WEnd
  19. Exit
  20.  
  21. Func Increment()
  22.      $newIDC = $IDC + 1
  23.      If $newIDC > 15 Then $newIDC = 0
  24. EndFunc
  25.