Advertisement
Guest User

Transparency ClickThrew AlwaysOnTop

a guest
Oct 14th, 2017
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; changing window transparencies
  2. ^SPACE::  Winset, Alwaysontop, , A
  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. !x::
  20. WinGet, currentWindow, ID, A
  21. WinSet, ExStyle, +0x80020, ahk_id %currentWindow%
  22. return
  23. !z::
  24. MouseGetPos,,, MouseWin ; Gets the unique ID of the window under the mouse
  25. WinSet, ExStyle, -0x80020, ahk_id %currentWindow%
  26. Return
  27.  
  28. #WheelDown::  ; Increments transparency down by 3.375% (with wrap-around)
  29.     DetectHiddenWindows, on
  30.     WinGet, curtrans, Transparent, A
  31.     if ! curtrans
  32.         curtrans = 255
  33.     newtrans := curtrans - 8
  34.     if newtrans > 0
  35.     {
  36.         WinSet, Transparent, %newtrans%, A
  37.     }
  38.     ;else
  39.     ;{
  40.     ;    WinSet, Transparent, 255, A
  41.     ;    WinSet, Transparent, OFF, A
  42.     ;}
  43. return
  44.  
  45. #o::  ; Reset Transparency Settings
  46.     WinSet, Transparent, 255, A
  47.     WinSet, Transparent, OFF, A
  48. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement