Easy way to maintain minumum window size?

[mrider]

Greetings all,

I'm looking for a way to make sure that a window which I've created will never get smaller than a certain minimum size. I've put together something that works, but I'm wondering if there's an easier/more efficient way. Also, the code as presented has a weird quirk: I can resize the window down so that it has zero height, and it will remain that way (precisely like a Macintosh window that has been "shaded"). For some reason $GUI_EVENT_RESIZED doesn't register in that event.

So - 1) Is there a better/easier/more efficient way to do this? 2) Any ideas about how to catch the window "shading" bug/quirk?

My code

#include <GUIConstants.au3>
Opt( "GUIOnEventMode", 1 )
Dim $winStyle = BitOr( $WS_POPUP, $WS_MAXIMIZEBOX, $WS_CAPTION, $WS_SYSMENU, $WS_MINIMIZEBOX, $WS_THICKFRAME )
Dim $title = "Resizable window test"
Dim $window = GUICreate( $title, 400, 400, -1, -1, $winStyle )
GUISetState()
GUISetOnEvent( $GUI_EVENT_CLOSE, "Quit" )
GUISetOnEvent( $GUI_EVENT_RESIZED, "ResizeHandler" )

Dim $minWidth = 200
Dim $minHeight = 200

While( 1 )
    Sleep( 1000 )
WEnd

Func Quit()
    Exit
EndFunc

Func ResizeHandler()
    Local $pos = WinGetPos( $title )
    MsgBox( 0, "DEBUG", $pos[3] )
    If @error == 1 Then
        MsgBox( 16, "Problem", "Unable to find window" )
        Exit
    EndIf
    If $pos[2] < $minWidth Then
        WinMove( $title, "", $pos[0], $pos[1], $minWidth, $pos[3] )
        Return
    EndIf
    If $pos[3] < $minHeight Then
        WinMove( $title, "", $pos[0], $pos[1], $pos[2], $minHeight )
        Return
    EndIf
EndFunc

Edited July 27, 2007 by mrider

[GEOSoft]

Here is one I use to set MaxWidth. You might be able to use it as a template. NOTE:$Gw is the GUI width and is declared globaly early in the script.

;===============================================================================
; Function Name:   _GuiMaxWidth()
; Description:   Set the maximum width of a GUI window
; Syntax:   _GuiMaxSize([$szMax]
; Parameter(s):   $szMax = The maximum allowable size for the window (Normally @DesktopWidth -5) Default is 1019 (1024-5)
; Requirement(s):   
; Return Value(s):   
; Author(s):   GEOSoft
; Modification(s):   
; Note(s):   
;===============================================================================

Func _GuiMaxWidth($szMax = 1019)
    If $Gw > $szMax Then
        $Gw = $szMax
        $yPos = -1
    EndIf
EndFunc  ;<==> _GuiMaxWidth()

As you can see $szMax is optional and I use 1019 which is 1024 - 5

If you are setting max height you will probably want to set it to @DeskTopHeight - 25 to allow for the taskbar.

[mrider]

Sorry for my ignorance, but I'm not sure how I would incorporate that into what I'm doing. It looks like your method is a way to dynamically set the same values that can be found in my script in "$minWidth" and "$minHeight". Is that correct? If so, I may want to set the values for minimums dynamically at some point, but I'm more concerned with how to detect window size changes, and how to manipulate the window size in code.

Basically, I'm wondering about this part:

Func ResizeHandler()
    Local $pos = WinGetPos( $title )
  ; MsgBox( 0, "DEBUG", $pos[3] )
    If @error == 1 Then
        MsgBox( 16, "Problem", "Unable to find window" )
        Exit
    EndIf
    If $pos[2] < $minWidth Then
        WinMove( $title, "", $pos[0], $pos[1], $minWidth, $pos[3] )
        Return
    EndIf
    If $pos[3] < $minHeight Then
        WinMove( $title, "", $pos[0], $pos[1], $pos[2], $minHeight )
        Return
    EndIf
EndFunc

Edited July 27, 2007 by mrider

[martin]

Greetings all,

I'm looking for a way to make sure that a window which I've created will never get smaller than a certain minimum size. I've put together something that works, but I'm wondering if there's an easier/more efficient way. Also, the code as presented has a weird quirk: I can resize the window down so that it has zero height, and it will remain that way (precisely like a Macintosh window that has been "shaded"). For some reason $GUI_EVENT_RESIZED doesn't register in that event.

So - 1) Is there a better/easier/more efficient way to do this? 2) Any ideas about how to catch the window "shading" bug/quirk?

My code

#include <GUIConstants.au3>
Opt( "GUIOnEventMode", 1 )
Dim $winStyle = BitOr( $WS_POPUP, $WS_MAXIMIZEBOX, $WS_CAPTION, $WS_SYSMENU, $WS_MINIMIZEBOX, $WS_THICKFRAME )
Dim $title = "Resizable window test"
Dim $window = GUICreate( $title, 400, 400, -1, -1, $winStyle )
GUISetState()
GUISetOnEvent( $GUI_EVENT_CLOSE, "Quit" )
GUISetOnEvent( $GUI_EVENT_RESIZED, "ResizeHandler" )

Dim $minWidth = 200
Dim $minHeight = 200

While( 1 )
    Sleep( 1000 )
WEnd

Func Quit()
    Exit
EndFunc

Func ResizeHandler()
    Local $pos = WinGetPos( $title )
    MsgBox( 0, "DEBUG", $pos[3] )
    If @error == 1 Then
        MsgBox( 16, "Problem", "Unable to find window" )
        Exit
    EndIf
    If $pos[2] < $minWidth Then
        WinMove( $title, "", $pos[0], $pos[1], $minWidth, $pos[3] )
        Return
    EndIf
    If $pos[3] < $minHeight Then
        WinMove( $title, "", $pos[0], $pos[1], $pos[2], $minHeight )
        Return
    EndIf
EndFunc

Instead of

GUISetOnEvent( $GUI_EVENT_RESIZED, "ResizeHandler" )

try this

Const $WM_EXITSIZEMOVE = 0x0232

GUISetOnEvent( $WM_EXITSIZEMOVE, "ResizeHandler" )

[Zedna]

Look here

WM_GETMINMAXINFO is elegant solution.

[mrider]

martin and Zedna:

Thanks for the replies. I'll give them a shot and see how things work out. Sorry I didn't reply sooner, I was out of town over the weekend.

Thanks!!