WinPose UDF - simultaneous fluent move and resize

[orbs]

Brief:

native WinMove() has a "speed" parameter for a more fluent movement. unfortunately, that applies to the change in position, but not the change in size. the position changes in the specified "speed", but size changes abruptly.

_WinPose() is similar to WinMove(), except that move and resize are simultaneous, both conform to the speed parameter.

 

UDF: (save as "WinPose.au3")

expandcollapse popup

#include-once
#include <WinAPISysWin.au3>

; #FUNCTION# ====================================================================================================================
; Name ..........: _WinPose
; Description ...: same as native WinMove(), except that move and resize are simultaneous, both conform to the speed parameter.
; Syntax ........: _WinPose($hWnd, $sText, $x, $y, $w, $h[, $speed = 0])
; Parameters ....: $hWnd   - the title/hWnd/class of the window to pose.
;                  $sText  - the text of the window to pose.
;                  $x      - X coordinate to move to.
;                  $y      - Y coordinate to move to.
;                  $w      - [optional] new width of the window.
;                  $h      - [optional] new height of the window.
;                  $speed  - [optional] the speed to pose the window (smaller value = faster speed, 0 = instantaneous).
; Return values .: Success - a handle to the window.
;                  Failure - 0 if the window is not found (also sets @error to non-zero).
; Author ........: orbs
; Modified ......:
; Remarks .......: parameters and return values are practically identical to those of the native WinMove() function.
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _WinPose($hWnd, $sText, $x, $y, $w = Default, $h = Default, $speed = 0)
    ; find the window to move
    If Not IsHWnd($hWnd) Then
        $hWnd = WinGetHandle($hWnd, $sText)
        If @error Then Return SetError(1, 0, False)
    EndIf
    Local $aPos = WinGetPos($hWnd)
    If @error Then Return SetError(2, 0, False)
    ; initialize variables
    Local Enum $pos_x, $pos_y, $pos_w, $pos_h
    Local Enum $aiCurrent, $aiTarget, $aiDelta, $aiRatio
    Local $aPosTarget[4][4] = [[$aPos[$pos_x], $x, 0, 0], [$aPos[$pos_y], $y, 0, 0], [$aPos[$pos_w], $w, 0, 0], [$aPos[$pos_h], $h, 0, 0]]
    ; accomodate for Default keyword
    For $iElement = 0 To 3
        If $aPosTarget[$iElement][$aiTarget] = Default Then $aPosTarget[$iElement][$aiTarget] = $aPos[$iElement]
    Next
    ; calculate delta
    For $iElement = 0 To 3
        $aPosTarget[$iElement][$aiDelta] = $aPosTarget[$iElement][$aiTarget] - $aPosTarget[$iElement][$aiCurrent]
    Next
    ; find the maximum delta
    Local $iMaxElement = 0, $iMaxDelta = 0
    For $iElement = 0 To 3
        If Abs($aPosTarget[$iElement][$aiDelta]) > $iMaxDelta Then
            $iMaxElement = $iElement
            $iMaxDelta = $aPosTarget[$iElement][$aiDelta]
        EndIf
    Next
    ; accomodate for negative delta
    If ($aPosTarget[$iMaxElement][$aiTarget] - $aPos[$iMaxElement]) < 0 Then $iMaxDelta = -$iMaxDelta
    ; calculate ratio for all elements
    For $iElement = 0 To 3
        $aPosTarget[$iElement][$aiRatio] = $aPosTarget[$iElement][$aiDelta] / $iMaxDelta
    Next
    ; move & resize the window gradually
    For $iStep = 0 To $iMaxDelta
        For $iElement = 0 To 3
            $aPosTarget[$iElement][$aiCurrent] += $aPosTarget[$iElement][$aiRatio]
        Next
        For $i = 1 To $speed
            _WinAPI_MoveWindow($hWnd, _
                    $aPosTarget[$pos_x][$aiCurrent], _
                    $aPosTarget[$pos_y][$aiCurrent], _
                    $aPosTarget[$pos_w][$aiCurrent], _
                    $aPosTarget[$pos_h][$aiCurrent], False)

        Next
    Next
    ; validate final outcome is as expected
    Return WinMove($hWnd, '', $x, $y, $w, $h)
EndFunc   ;==>_WinPose

 

Example:

#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#include <AutoItConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include 'WinPose.au3'

Global Const $iMinW = 250, $iMinH = 100
Global $x, $y, $w, $h, $speed

Global $hGUI = GUICreate('_WinPose() Example', $iMinW, $iMinH)
Global $gButton = GUICtrlCreateButton('Click Me!', 25, 25, 200, 50)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUISetState(@SW_SHOW)

Global $msg
While True
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $gButton
            $w = Random($iMinW, @DesktopWidth / 3, 1)
            $h = Random($iMinH, @DesktopHeight / 3, 1)
            $x = Random(0, @DesktopWidth - $w, 1)
            $y = Random(0, @DesktopHeight - $h, 1)
            $speed = Random(10, 100, 1)
            _WinPose($hGUI, '', $x, $y, $w, $h, $speed)
    EndSwitch
WEnd

 

click the button to pose the window in a new random position and size, in a random speed.

enjoy 🙂

 

 

[SOLVE-SMART]

FYI: Wrong thread, my bad. I posted in the correct thread now.

Edited August 13 by SOLVE-SMART

[DutchCoder]

Had something lying around that does about the same thing, except the speed setting is missing. Instead it has a "soft landing" and is written in Plain AutoIt.

Saved it as WinMove.au3

expandcollapse popup

; #FUNCTION# ====================================================================================================================
; Name ..........: _WinMove
; Description ...: same as native WinMove(), except that move and resize are simultaneous
; Syntax ........: _WinMove($_hWnd, $_txt, $_x, $_y, $_w, $_h)
; Parameters ....: $_hWnd   - the title/hWnd/class of the window to pose.
;                  $_txt    - the text of the window to move.
;                  $_x      - X coordinate to move to.
;                  $_y      - Y coordinate to move to.
;                  $_w      - [optional] new width of the window.
;                  $_h      - [optional] new height of the window.
; Author ........: DutchCoder
; Modified ......:
; Remarks .......: parameters and return values are practically identical to those of the native WinMove() function.
; Related .......:
; Link ..........:
; Example .......:
; ===============================================================================================================================

Global $_WinMove[10]

Func _WinMove($_hWnd, $_txt = '', $_x = Default, $_y = Default, $_w = Default, $_h = Default)
    If BitAND(WinGetState($_hWnd, $_txt), 0x20) Then WinSetState($_hWnd, '', @SW_RESTORE)
    Local $_go[4] = [$_x, $_y, $_w, $_h]
    $_WinMove = _MoveInit(WinGetPos($_hWnd, $_txt), $_go)
    $_WinMove[8] = $_hWnd
    AdlibRegister('_WinMoveCoord', 100)
EndFunc

Func _MoveInit($_1, $_2)
    For $_z = 0 To 3
        If $_2[$_z] = Default Then $_2[$_z] = $_1[$_z]
    Next
    Local $_ret[10] = [$_1[0], $_1[1], $_1[2], $_1[3], $_2[0], $_2[1], $_2[2], $_2[3]]
    Return $_ret
EndFunc

Func _WinMoveCoord()
    $_WinMove = _MoveCalc($_WinMove)
    If $_WinMove[9] Then AdlibUnRegister('_WinMoveCoord')
    WinMove($_WinMove[8], '', Round($_WinMove[0]), Round($_WinMove[1]), Round($_WinMove[2]), Round($_WinMove[3]))
EndFunc

Func _MoveCalc($_ret)
    Local $_end = True
    For $_m = 0 To 3
        Local $_dif = ($_ret[$_m + 4] - $_ret[$_m]) * .8
        If Int($_dif) Then
            $_end = False
            $_ret[$_m] += $_dif
        Else
            $_ret[$_m] = $_ret[$_m + 4]
        EndIf
    Next
    $_ret[9] = $_end
    Return $_ret
EndFunc

Example is according to orbs:

#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#include <GUIConstantsEx.au3>
#include 'WinMove.au3'

Global Const $iMinW = 250, $iMinH = 100
Global $x, $y, $w, $h, $speed

Global $hGUI = GUICreate('_WinPose() Example', $iMinW, $iMinH)
Global $gButton = GUICtrlCreateButton('Click Me!', 25, 25, 200, 50)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUISetState(@SW_SHOW)

Global $msg
While True
    $msg = GUIGetMsg()
    Switch $msg
        Case -3
            ExitLoop
        Case $gButton
            $w = Random($iMinW, @DesktopWidth / 3, 1)
            $h = Random($iMinH, @DesktopHeight / 3, 1)
            $x = Random(0, @DesktopWidth - $w, 1)
            $y = Random(0, @DesktopHeight - $h, 1)
            _WinMove($hGUI, '', $x, $y, $w, $h)
    EndSwitch
WEnd

 

[orbs]

thank you, had you posted this earlier you would have saved me a lot of work 🙂