| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- ; @Author : liuyuqi
- ; @Contact : liuyuqi.gov@msn.cn
- ; @Time : 2015/07/21
- ; @Version : 1.0
- ; @Desc : 左shift + 鼠标滚轮调整窗口透明度（设置30-255的透明度）
- ; 左侧shift + 滚轮下滑：减少透明度，一次10
- ; 左侧shift + 滚轮上滑：增加透明度，一次20
- ; 左侧shift + 中键按下：恢复透明度至255(完全不透明).
- ~LShift & WheelUp::
- ; 透明度调整，增加。
- WinGet, Transparent, Transparent,A
- If (Transparent = "")
- Transparent = 255
- ;Transparent_New: = Transparent + 10
- Transparent_New: = Transparent + 20 ;透明度增加速度。
- If (Transparent_New > 254)
- Transparent_New = 255
- WinSet,Transparent,%Transparent_New%,A
-
- tooltip now: %Transparent_New%`nmae: __%Transparent% ;查看当前透明度（操作之后的）。
- ;sleep 1500
- SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式，label在最后。
- Return
-
- ~LShift & WheelDown::
- ;透明度调整，减少。
- WinGet, Transparent, Transparent,A
- If (Transparent = "")
- Transparent = 255
- Transparent_New: = Transparent-10 ;透明度减少速度。
- ;msgbox,Transparent_New = %Transparent_New%
- If (Transparent_New < 30) ;最小透明度限制。
- Transparent_New = 30
- WinSet,Transparent,%Transparent_New%,A
- tooltip now: %Transparent_New%`nmae: __%Transparent% ;查看当前透明度（操作之后的）。
- ;sleep 1500
- SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式，label在最后。
- Return
-
- ;设置Lwin &Mbutton直接恢复透明度到255。
- ~Lshift & Mbutton::
- WinGet, Transparent, Transparent,A
- WinSet,Transparent,255,A
- tooltip Restored ;查看当前透明度（操作之后的）。
- ;sleep 1500
- SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式，label在最后。
- Return
-
-
- removetooltip_transparent_Lwin: ;LABEL
- tooltip
- SetTimer, RemoveToolTip_transparent_Lwin, Off
- Return
|
