Resizing Controls

[APPLEEATER]

Hi,

i've been scripting a lot with GUIs lately and i am wondering if there is a way to make controls dragable/resizable

I'm looking to build onto this example:

expandcollapse popup

#include <GuiConstants.au3>
#include <misc.au3>

$gui = GUICreate("drag input")
$ip = GUICtrlCreateInput("drag me", 20, 20, 120, 22)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYDOWN
            $nc = GUIGetCursorInfo()
            If $nc[4] = $ip Then
                $mp = MouseGetPos()
                $cp = ControlGetPos("drag input", "", $ip)
                $max = WinGetClientSize($gui)
                While _IsPressed(1)
                    $nm = MouseGetPos()
                    $x = $cp[0] - $mp[0] + $nm[0]
                    $y = $cp[1] - $mp[1] + $nm[1]
                    Select
                        Case $y < 0
                            $y = 0
                        Case $y > $max[1]-$cp[3]
                            $y = $max[1]-$cp[3]
                    EndSelect
                    Select
                        Case $x < 0
                            $x = 0
                        Case $x > $max[0]-$cp[2]
                            $x = $max[0]-$cp[2]
                    EndSelect
                    ControlMove("drag input", "", $ip, $x,$y)
                    Sleep(10)
                WEnd
                
            EndIf
    EndSwitch
WEnd

(From http://www.autoitscript.com/forum/index.php?showtopic=74986)

I want to be able to have the input box resizable just like windows are (from the corner)

If anyone has any ideas that would be much appreciated

[martin]

Hi,

i've been scripting a lot with GUIs lately and i am wondering if there is a way to make controls dragable/resizable

I'm looking to build onto this example:

expandcollapse popup

#include <GuiConstants.au3>
#include <misc.au3>

$gui = GUICreate("drag input")
$ip = GUICtrlCreateInput("drag me", 20, 20, 120, 22)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYDOWN
            $nc = GUIGetCursorInfo()
            If $nc[4] = $ip Then
                $mp = MouseGetPos()
                $cp = ControlGetPos("drag input", "", $ip)
                $max = WinGetClientSize($gui)
                While _IsPressed(1)
                    $nm = MouseGetPos()
                    $x = $cp[0] - $mp[0] + $nm[0]
                    $y = $cp[1] - $mp[1] + $nm[1]
                    Select
                        Case $y < 0
                            $y = 0
                        Case $y > $max[1]-$cp[3]
                            $y = $max[1]-$cp[3]
                    EndSelect
                    Select
                        Case $x < 0
                            $x = 0
                        Case $x > $max[0]-$cp[2]
                            $x = $max[0]-$cp[2]
                    EndSelect
                    ControlMove("drag input", "", $ip, $x,$y)
                    Sleep(10)
                WEnd
                
            EndIf
    EndSwitch
WEnd

(From http://www.autoitscript.com/forum/index.php?showtopic=74986)

I want to be able to have the input box resizable just like windows are (from the corner)

If anyone has any ideas that would be much appreciated

One easy way is to add the style $WS_SIZEBOX

$ip = GUICtrlCreateInput("drag me", 20, 20, 120, 22,$WS_SIZEBOX)

[APPLEEATER]

One easy way is to add the style $WS_SIZEBOX

$ip = GUICtrlCreateInput("drag me", 20, 20, 120, 22,$WS_SIZEBOX)

Is it really that easy?

wow...

i should have looked through the Styles

Thanks Martin!

Edit:

Any way to have that work on labels and all other types of controls?

i have tested it on input button and label

and label doesn't work

Thanks

Edited October 13, 2008 by APPLEEATER

[MrCreatoR]

Check this GUICtrl_SetResizing UDF.

[APPLEEATER]

Check this GUICtrl_SetResizing UDF.

YEAHYA!!

another awesome creation from MrCreatoR