Sign in to follow this  
Followers 0
Mattraks

Delete

8 posts in this topic

#1 ·  Posted (edited)

Delete

Edited by Mattraks

Share this post


Link to post
Share on other sites



#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


My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]

Share this post


Link to post
Share on other sites

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

:)


 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

How can you make the gui slide when expands ?

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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 by LIMITER

Share this post


Link to post
Share on other sites

#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


My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0