transparent windows

Hi,

I came across this ahk script and I am really enjoying it so I wanted to share.

It lets you make any window (including Trados) transparent. You can vary the amount of transparency by holding down the windows key and using the mouse scroll wheel.

Whats really nice is to have your favourite wallpaper behind so it shows through, or even a "background" type relaxing youtube video in full screen.

For me, this is a way nicer visual effect than just staring at boring white windows while working.

; [Win+WheelUp] Increase opacity
#WheelUp::
    DetectHiddenWindows, on
    WinGet, curtrans, Transparent, A
    if ! curtrans
        curtrans = 255
    newtrans := curtrans + 8
    if newtrans > 0
    {
        WinSet, Transparent, %newtrans%, A
    }
    else
    {
        WinSet, Transparent, OFF, A
        WinSet, Transparent, 255, A
    }
return

; [Win+WheelDown] Decrease opacity
#WheelDown::
    DetectHiddenWindows, on
    WinGet, curtrans, Transparent, A
    if ! curtrans
        curtrans = 255
    newtrans := curtrans - 8
    if newtrans > 0
    {
        WinSet, Transparent, %newtrans%, A
    }
return

Parents
  •  I love it! Thanks for the scripts!

    I couldn’t get it to work as written and had to make a small change to the first script to get it to work :

    #WheelUp::
        DetectHiddenWindows, on
        WinGet, curtrans, Transparent, A
        if ! curtrans
            curtrans = 255
        newtrans := curtrans + 8
        if newtrans > 0
        {
            WinSet, Transparent, %newtrans%, A

    return


    I’m an AHK beginner however, so maybe I didn’t input the scripts as they were meant to be.

    Great scripts, I love seeing a nice image in the background or being able to quickly see a reference document opened behind another window!

Reply
  •  I love it! Thanks for the scripts!

    I couldn’t get it to work as written and had to make a small change to the first script to get it to work :

    #WheelUp::
        DetectHiddenWindows, on
        WinGet, curtrans, Transparent, A
        if ! curtrans
            curtrans = 255
        newtrans := curtrans + 8
        if newtrans > 0
        {
            WinSet, Transparent, %newtrans%, A

    return


    I’m an AHK beginner however, so maybe I didn’t input the scripts as they were meant to be.

    Great scripts, I love seeing a nice image in the background or being able to quickly see a reference document opened behind another window!

Children