O_t_t

Transparency

Jul 19th, 2013
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.17 KB | None | 0 0
  1. -For AHK-
  2. ; changing window transparencies
  3. #WheelUp:: ; Increments transparency up by 3.375% (with wrap-around)
  4. DetectHiddenWindows, on
  5. WinGet, curtrans, Transparent, A
  6. if ! curtrans
  7. curtrans = 255
  8. newtrans := curtrans + 8
  9. if newtrans > 0
  10. {
  11. WinSet, Transparent, %newtrans%, A
  12. }
  13. else
  14. {
  15. WinSet, Transparent, OFF, A
  16. WinSet, Transparent, 255, A
  17. }
  18. return
  19.  
  20. #WheelDown:: ; Increments transparency down by 3.375% (with wrap-around)
  21. DetectHiddenWindows, on
  22. WinGet, curtrans, Transparent, A
  23. if ! curtrans
  24. curtrans = 255
  25. newtrans := curtrans - 8
  26. if newtrans > 0
  27. {
  28. WinSet, Transparent, %newtrans%, A
  29. }
  30. ;else
  31. ;{
  32. ; WinSet, Transparent, 255, A
  33. ; WinSet, Transparent, OFF, A
  34. ;}
  35. return
  36.  
  37. #o:: ; Reset Transparency Settings
  38. WinSet, Transparent, 255, A
  39. WinSet, Transparent, OFF, A
  40. return
  41.  
  42. #g:: ; Press Win+G to show the current settings of the window under the mouse.
  43. MouseGetPos,,, MouseWin
  44. WinGet, Transparent, Transparent, ahk_id %MouseWin%
  45. ToolTip Translucency:`t%Transparent%`n
  46. Sleep 2000
  47. ToolTip
  48. return
Advertisement
Add Comment
Please, Sign In to add comment