Delete

[Mattraks]

Delete

Edited October 21, 2008 by Mattraks

[Achilles]

#include<GUIConstantsEx.au3>

$gui = GUICreate("My GUI", 220, 35) 
$button = GuiCtrlCreateButton('Expand', 10, 4, 200, 25)
GUISetState() 

; Run the GUI until the dialog is closed
While 1
    
    Switch GuiGetmsg()
        Case $GUI_EVENT_CLOSE
            Exit 
        Case $button
            $pos = WinGetPos($gui)
            WinMove($gui, '', $pos[0], $pos[1], $pos[2] + 10, $pos[3] + 10)
    EndSwitch
WEnd

[MrCreatoR]

Hi,

Check this out:

#include <GuiConstants.au3>
Opt("GUIResizeMode", $GUI_DOCKALL)

$Gui = GuiCreate("Test", 300, 200)

$Expand_Button = GUICtrlCreateButton("Expand", 20, 80, 80)

$Button1 = GUICtrlCreateButton("Some Button", 20, 240, 80)

$Button2 = GUICtrlCreateButton("Other Button", 120, 240, 80)

$Input = GUICtrlCreateInput("Some Input", 20, 200, 200, 20)

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3
            Exit
        Case $Expand_Button
            Local $Height, $ButtonText
            $GuiPos = WinGetPos($Gui)
            If $GuiPos[3] < 320 Then
                $Height = 320
                $ButtonText = "Hide"
            Else
                $Height = 225
                $ButtonText = "Expand"
            EndIf
            GUICtrlSetData($Expand_Button, $ButtonText)
            WinMove($Gui, "", $GuiPos[0], $GuiPos[1], $GuiPos[2], $Height)
    EndSwitch
WEnd

[LIMITER]

How can you make the gui slide when expands ?

[LIMITER]

I mean .. that the gui slides to the new position .. not just expands suddenly ... if you understand what i mean

it's like the fade in ... when the gui appears smooth .. not suddenly ...

Edited March 2, 2008 by LIMITER

[Achilles]

expandcollapse popup

#include <GuiConstants.au3>
Opt("GUIResizeMode", $GUI_DOCKALL)

$Gui = GuiCreate("Test", 300, 200)

$Expand_Button = GUICtrlCreateButton("Expand", 20, 80, 80)

$Button1 = GUICtrlCreateButton("Some Button", 20, 240, 80)

$Button2 = GUICtrlCreateButton("Other Button", 120, 240, 80)

$Input = GUICtrlCreateInput("Some Input", 20, 200, 200, 20)

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3
            Exit
        Case $Expand_Button
            Local $Height, $ButtonText
            $GuiPos = WinGetPos($Gui)
            If $GuiPos[3] < 320 Then
                $Height = 320
                $ButtonText = "Hide"
                GUICtrlSetData($Expand_Button, $ButtonText)
                
                For $i = 225 to 320 Step 10
                    WinMove($Gui, '', $GuiPos[0], $GuiPos[1], $GuiPos[2], $i)
                    Sleep(5)
                Next
            Else
                $Height = 225
                $ButtonText = "Expand"
                GUICtrlSetData($Expand_Button, $ButtonText)
                
                For $i = 320 to 225 Step -10
                    WinMove($Gui, '', $GuiPos[0], $GuiPos[1], $GuiPos[2], $i)
                    Sleep(5)
                Next
            EndIf
            
            
            WinMove($Gui, "", $GuiPos[0], $GuiPos[1], $GuiPos[2], $Height)
    EndSwitch
WEnd

[LIMITER]

That's it Achilles ... but the gui flickers .. and it's very annoying ... good job though

[Achilles]

That's it Achilles ... but the gui flickers .. and it's very annoying ... good job though

Yah, there is probably some way to stop it but I'm not sure how. I'll try some and see if I can change it.