WindowOnTop.ahk

;WindowOnTop.ahk
;---------------------------
; transparency and always on top control
; for any window (maybe except games etc.)
;---------------------------
#SingleInstance force
TrayTip, %A_ScriptName%, Hotkeys:`nWin+j - always on top`nWin+k - set transparency`nWin+l - turn off transparency`nWin+m - move window to top left corner,6
trans:=150
return              ; koniec auto-execute section

#j::
WinGetTitle, curname, A
WinSet, AlwaysOnTop, Toggle, A
TrayTip, , Always on top toggled for: %curname%,4
return

#k::
WinGetTitle, curname, A
WinSet, Transparent, %trans%, A
TrayTip, , Transparency value %trans% set for: %curname%,4
trans:=trans-10
If trans < 15
    trans:=250
return

#l::
WinGetTitle, curname, A
WinSet, Transparent, OFF, A
TrayTip, , Transparency turned off for: %curname%,4
return

#m::
WinMove, A, , 10, 10
WinGetTitle, Title, A
TrayTip, ,Window "%Title%" moved,4
Title=
return

;---------------------------
;         do skryptu
;---------------------------
; ctrl+ alt+ ...
; R- reload
; G- exit

^!r::Reload
^!g::
MsgBox, 4, %A_ScriptName%, Do you want to exit?, 5
IfMsgBox, Yes, ExitApp
IfMsgBox, Timeout, ExitApp
return