Move window from anywere Topic is solved

[Elermino]

I have this script that moves a window from anywhere. I would like someone to do me the favor of doing the same thing but only pressing a button (F22), I have already tried changing the code in GetKeyState and in the trigger, but it doesn't work like the original.
Thanks in advance.

Code: Select all

; Click Anywhere on a Window to Drag and Reposition [Script Demo #23] - https://juho-lee.com/archive

SetWinDelay, -1
CoordMode, Mouse, Screen

Alt & LButton::
MouseGetPos, Mouse_Start_X, Mouse_Start_Y, Selected_Window
WinGet, Window_State, MinMax, ahk_id %Selected_Window%
if Window_State = 0
    SetTimer, MyLabel, 1
return

MyLabel:
MouseGetPos, Mouse_Current_X, Mouse_Current_Y
WinGetPos, Selected_Window_X, Selected_Window_Y, , , ahk_id %Selected_Window%
WinMove, ahk_id %Selected_Window%, , Selected_Window_X + Mouse_Current_X - Mouse_Start_X, Selected_Window_Y + Mouse_Current_Y - Mouse_Start_Y

Mouse_Start_X := Mouse_Current_X
Mouse_Start_Y := Mouse_Current_Y

GetKeyState, LButton_State, LButton, P
if LButton_State = U
{
    SetTimer, MyLabel, off
    return
}
return

[boiler]

What did you actually change? Was it like this:

Code: Select all

; Click Anywhere on a Window to Drag and Reposition [Script Demo #23] - https://juho-lee.com/archive

SetWinDelay, -1
CoordMode, Mouse, Screen

F22::
MouseGetPos, Mouse_Start_X, Mouse_Start_Y, Selected_Window
WinGet, Window_State, MinMax, ahk_id %Selected_Window%
if Window_State = 0
    SetTimer, MyLabel, 1
return

MyLabel:
MouseGetPos, Mouse_Current_X, Mouse_Current_Y
WinGetPos, Selected_Window_X, Selected_Window_Y, , , ahk_id %Selected_Window%
WinMove, ahk_id %Selected_Window%, , Selected_Window_X + Mouse_Current_X - Mouse_Start_X, Selected_Window_Y + Mouse_Current_Y - Mouse_Start_Y

Mouse_Start_X := Mouse_Current_X
Mouse_Start_Y := Mouse_Current_Y

GetKeyState, LButton_State, F22, P
if LButton_State = U
{
    SetTimer, MyLabel, off
    return
}
return

[boiler]

The difference is probably the key repeat of a keyboard key. Try this version:

Code: Select all

; Click Anywhere on a Window to Drag and Reposition [Script Demo #23] - https://juho-lee.com/archive

SetWinDelay, -1
CoordMode, Mouse, Screen

F22::
MouseGetPos, Mouse_Start_X, Mouse_Start_Y, Selected_Window
WinGet, Window_State, MinMax, ahk_id %Selected_Window%
if Window_State = 0
    SetTimer, MyLabel, 1
KeyWait, F22
return

MyLabel:
MouseGetPos, Mouse_Current_X, Mouse_Current_Y
WinGetPos, Selected_Window_X, Selected_Window_Y, , , ahk_id %Selected_Window%
WinMove, ahk_id %Selected_Window%, , Selected_Window_X + Mouse_Current_X - Mouse_Start_X, Selected_Window_Y + Mouse_Current_Y - Mouse_Start_Y

Mouse_Start_X := Mouse_Current_X
Mouse_Start_Y := Mouse_Current_Y

GetKeyState, LButton_State, F22, P
if LButton_State = U
{
    SetTimer, MyLabel, off
    return
}
return

[Elermino]

....

[boiler]

See my second post.

[Elermino]

The difference is probably the key repeat of a keyboard key. Try this version:

Code: Select all

; Click Anywhere on a Window to Drag and Reposition [Script Demo #23] - https://juho-lee.com/archive

SetWinDelay, -1
CoordMode, Mouse, Screen

F22::
MouseGetPos, Mouse_Start_X, Mouse_Start_Y, Selected_Window
WinGet, Window_State, MinMax, ahk_id %Selected_Window%
if Window_State = 0
    SetTimer, MyLabel, 1
KeyWait, F22
return

MyLabel:
MouseGetPos, Mouse_Current_X, Mouse_Current_Y
WinGetPos, Selected_Window_X, Selected_Window_Y, , , ahk_id %Selected_Window%
WinMove, ahk_id %Selected_Window%, , Selected_Window_X + Mouse_Current_X - Mouse_Start_X, Selected_Window_Y + Mouse_Current_Y - Mouse_Start_Y

Mouse_Start_X := Mouse_Current_X
Mouse_Start_Y := Mouse_Current_Y

GetKeyState, LButton_State, F22, P
if LButton_State = U
{
    SetTimer, MyLabel, off
    return
}
return

It works now, thank you very much