why doe crosshair overlay not work in fullscreen

NOTE that a GUI (*any* GUI) MUST be created or else the WM_DISPLAYCHANGE message won't be received Luckily, we've just created four GUI's using _XHairInit() and don't need to create any further ALSO note that this is called for *every* GUI that is created (for *just* X-Hairs, thats 4 calls) -| GUIRegisterMsg ( 0x007E, '_Resolutionchanged' ) WM_DISPLAYCHANGE 0x007E _MouseHideAllCursors ( ) ~ _MouseReplaceAllCursors() Alternatively replace all cursors with custom crosshair While Not $bHKPressed 4 Messages are sent, 1 for each GUI created If $iResolutionchangeMsg >= 4 Then Call with no arguments so that it will retain old properties but adjust to new resolution _XHairSetDisplayProps ( ) $iResolutionchangeMsg = 0 EndIf $aNewMousePos = MouseGetPos ( ) _XHairShow ( $aNewMousePos, $aNewMousePos ) Sleep ( 5 ) WEnd Unregister Display Mode change function GUIRegisterMsg ( 0x007E, '' ) WM_DISPLAYCHANGE 0x007E Destroy Crosshairs _XHairUnInit ( ) And restore all system cursors back to normal _MouseRestoreAllCursors ( )Īscend4nt's AutoIT Code License agreement: Employs the _MouseCursorFuncs UDF as well Author: Ascend4nt = #NoTrayIcon AutoItSetOption ( 'TrayAutoPause', 0 ) = GLOBAL VARIABLES = Global $bHKPressed = False, $bPropertyHKPressed = False, $iResolutionchangeMsg = 0 = HOTKEY FUNCTIONS = ESC Key Pressed: Func _HotKeyPressed ( ) $bHKPressed = True EndFunc ALT-P Pressed: Func _ChangeXHairProperties ( ) 'Grow' the crosshairs and set them to Red, or alternately shrink them and set them to whitish If Not $bPropertyHKPressed Then _XHairSetDisplayProps ( 25, 25, 0xFF0000 ) Else _XHairSetDisplayProps ( 8, 8, 0xF0F0F0 ) EndIf $bPropertyHKPressed = Not $bPropertyHKPressed EndFunc = WINDOWS MESSAGE HANDLER FUNCTIONS = Func _Resolutionchanged($hWnd,$iMsg,$wParam,$lParam) Note this registers multiple-monitor settings changes too, but will only report on the primary monitor's resolution This is why we would need to call _WinAPI_GetSystemMetrics() to get the Virtual width/height = Func _Resolutionchanged ( $hWnd, $iMsg, $wParam, $lParam ) $iResolutionchangeMsg += 1 Return 'GUI_RUNDEFMSG' From Global Const $GUI_RUNDEFMSG = 'GUI_RUNDEFMSG' EndFunc = START MAIN CODE = Dim $aNewMousePos Create the crosshairs (but don't make them visible yet) _XHairInit ( 11, 11 ) HotKeySet ( '', '_HotKeyPressed' ) Alt-p switches between two alternate CrossHair properties HotKeySet ( '!p', '_ChangeXHairProperties' ) -| Register Display-Mode changes to our function. Expand collapse popup #include #include = Simple test of _Crosshairs UDF.

Why doe crosshair overlay not work in fullscreen