81 lines
3.7 KiB
AutoIt
81 lines
3.7 KiB
AutoIt
|
#include-once
|
||
|
|
|
||
|
|
; #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
|
||
|
|
; #INDEX# =======================================================================================================================
|
||
|
|
; Title .........: _GUIDisable
|
||
|
|
; AutoIt Version : v3.2.2.0 or higher
|
||
|
|
; Language ......: English
|
||
|
|
; Description ...: Creates a dimming effect on the current/selected GUI.
|
||
|
|
; Note ..........:
|
||
|
|
; Author(s) .....: guinness
|
||
|
|
; Remarks .......: Thanks to supersonic for the idea of adjusting the UDF when using Classic themes in Windows Vista+.
|
||
|
|
; ===============================================================================================================================
|
||
|
|
|
||
|
|
; #INCLUDES# ====================================================================================================================
|
||
|
|
#include <GUIConstantsEx.au3>
|
||
|
|
#include <WinAPI.au3>
|
||
|
|
#include <WindowsConstants.au3>
|
||
|
|
|
||
|
|
; #GLOBAL VARIABLES# ============================================================================================================
|
||
|
|
Global Enum $__hGUIDisableHWnd, $__hGUIDisableHWndPrevious, $__iGUIDisableMax
|
||
|
|
Global $__aGUIDisable[$__iGUIDisableMax]
|
||
|
|
|
||
|
|
Func _GUIDisable($hWnd, $iAnimate = Default, $iBrightness = Default, $bColor = 0x000000)
|
||
|
|
Local Const $AW_SLIDE_IN_TOP = 0x00040004, $AW_SLIDE_OUT_TOP = 0x00050008
|
||
|
|
|
||
|
|
If $iAnimate = Default Then
|
||
|
|
$iAnimate = 1
|
||
|
|
EndIf
|
||
|
|
If $iBrightness = Default Then
|
||
|
|
$iBrightness = 5
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
If $hWnd = -1 And $__aGUIDisable[$__hGUIDisableHWnd] = 0 Then
|
||
|
|
Local $iLabel = GUICtrlCreateLabel('', -99, -99, 1, 1)
|
||
|
|
$hWnd = _WinAPI_GetParent(GUICtrlGetHandle($iLabel))
|
||
|
|
If @error Then
|
||
|
|
Return SetError(1, 0 * GUICtrlDelete($iLabel), 0)
|
||
|
|
EndIf
|
||
|
|
GUICtrlDelete($iLabel)
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
If IsHWnd($__aGUIDisable[$__hGUIDisableHWnd]) Then
|
||
|
|
GUIDelete($__aGUIDisable[$__hGUIDisableHWnd])
|
||
|
|
GUISwitch($__aGUIDisable[$__hGUIDisableHWndPrevious])
|
||
|
|
$__aGUIDisable[$__hGUIDisableHWnd] = 0
|
||
|
|
$__aGUIDisable[$__hGUIDisableHWndPrevious] = 0
|
||
|
|
Else
|
||
|
|
$__aGUIDisable[$__hGUIDisableHWndPrevious] = $hWnd
|
||
|
|
|
||
|
|
Local $iLeft = 0, $iTop = 0
|
||
|
|
Local $iStyle = GUIGetStyle($__aGUIDisable[$__hGUIDisableHWndPrevious])
|
||
|
|
Local $sCurrentTheme = RegRead('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes', 'CurrentTheme')
|
||
|
|
Local $iIsClassicTheme = Number(StringInStr($sCurrentTheme, 'Basic.theme', 2) = 0 And StringInStr($sCurrentTheme, 'Ease of Access Themes', 2) > 0)
|
||
|
|
|
||
|
|
Local $aWinGetPos = WinGetClientSize($__aGUIDisable[$__hGUIDisableHWndPrevious])
|
||
|
|
$__aGUIDisable[$__hGUIDisableHWnd] = GUICreate('', $aWinGetPos[0], $aWinGetPos[1], $iLeft + 3, $iTop + 3, $WS_POPUP, $WS_EX_MDICHILD, $__aGUIDisable[$__hGUIDisableHWndPrevious])
|
||
|
|
GUISetBkColor($bColor, $__aGUIDisable[$__hGUIDisableHWnd])
|
||
|
|
WinSetTrans($__aGUIDisable[$__hGUIDisableHWnd], '', Round($iBrightness * (255 / 100)))
|
||
|
|
If not $iAnimate Then
|
||
|
|
GUISetState(@SW_SHOW, $__aGUIDisable[$__hGUIDisableHWnd])
|
||
|
|
EndIf
|
||
|
|
GUISetState(@SW_DISABLE, $__aGUIDisable[$__hGUIDisableHWnd])
|
||
|
|
GUISwitch($__aGUIDisable[$__hGUIDisableHWndPrevious])
|
||
|
|
EndIf
|
||
|
|
Return $__aGUIDisable[$__hGUIDisableHWnd]
|
||
|
|
EndFunc ;==>_GUIDisable
|
||
|
|
|
||
|
|
; #INTERNAL_USE_ONLY#============================================================================================================
|
||
|
|
Func __GUIDisable_WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
|
||
|
|
#forceref $hWnd, $iMsg, $iwParam
|
||
|
|
Local $iHeight = _WinAPI_HiWord($ilParam)
|
||
|
|
Local $iWidth = _WinAPI_LoWord($ilParam)
|
||
|
|
If $hWnd = $__aGUIDisable[$__hGUIDisableHWndPrevious] Then
|
||
|
|
Local $iWinGetPos = WinGetPos($__aGUIDisable[$__hGUIDisableHWnd])
|
||
|
|
If @error = 0 Then
|
||
|
|
WinMove($__aGUIDisable[$__hGUIDisableHWnd], '', $iWinGetPos[0], $iWinGetPos[1], $iWidth, $iHeight)
|
||
|
|
EndIf
|
||
|
|
EndIf
|
||
|
|
Return $GUI_RUNDEFMSG
|
||
|
|
EndFunc ;==>__GUIDisable_WM_SIZE
|