resize gui using winmove

[mocro]

Hello,

I've been using winmove to resize a gui when a button is pressed and noticed a slight delay when it trys to redraw all the controls.

Opt("GuiNotifyMode",1)

GuiCreate ("MyGUI")

$nOk    = GUISetControl ("button", "OK", 20,70)

GuiShow()
GuiMsg()

While GuiMsg() > 0
    if $nOK= GuiRead () then
  $position = WinGetPos("MyGUI")
  WinMove("MyGUI", "", $position[0], $position[1], $position[2], $position[3]+ 2)
    endif
Wend

Is this the correct way to resize a gui?

[CyberSlug]

1) You want to set Opt("WinWaitDelay", 10)

Alters how long a script should briefly pause after a successful window-related operation. Default is 250 milliseconds

2) You can give the GUI a WS_THICKFRAME style which allows the user to resize the window with the mouse.

Here's an example showing both:

$WS_THICKFRAME = 0x40000;resizability
$title = "Example Resizable GUI"

Opt("GuiNotifyMode",1)
Opt("GUIResizeMode", 0); no control resizing.... see also GuiSetControlEx
Opt("WinWaitDelay", 10)

GuiCreate($title, 300, 300, 100, 100, $WS_THICKFRAME)
$button = GuiSetControl("button", "button", 10, 100, 100, 100)
GuiShow()
WinActivate($title)

While 1
   $msg = GuiMsg(0)
   sleep(100)
   If $msg = -3 Then
      Exit
   ElseIf $msg = $button Then
      $pos = WinGetPos($title)
      WinMove($title,"", $pos[0], $pos[1], $pos[2]+10, $pos[3]+10)
   EndIf
WEnd

Edited July 12, 2004 by CyberSlug

[mocro]

Thanks CyberSlug it worked like a charm.