Sign in to follow this  
Followers 0
Skrip

Can't figure out why this doesn't work.

6 posts in this topic

#1 ·  Posted (edited)

#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
$size1 = 392
$size2 = 316
$i = 1
GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button_1
        Do
            WinMove("MyGUI", "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + 1, $size2 + 1)
            $i = $i + 1
        Until $i = 20
    EndSelect
WEnd
Exit

It is supposed to slowly get bigger, but stay in the same place.

Edited by Firestorm

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites



#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
$size1 = 392
$size2 = 316
$i = 1
GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button_1
        Do
            WinMove("MyGUI", "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + 1, $size2 + 1)
            $i = $i + 1
        Until $i = 20
    EndSelect
WEnd
Exit

It is supposed to slowly get bigger, but stay in the same place.

Remove this line:

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000

SciTe will tell you the error.


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

It works, thanks.

But the function for button1 deosn't work, it is supposed to make it slowly get bigger.


[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites

Not an exact fix... but just changed your code a tad

#include <GuiConstants.au3>
Local $size1 = 392, $size2 = 316, $i = 1
$MyGui = GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button_1
        Do
            WinMove($MyGui, "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + $i, $size2 + $i)
            Sleep(50)
            $i = $i + 1
        Until $i = 20
        $size1 = $size1 + $i
        $size2 = $size2 + $i
        $i = 1
    EndSelect
WEnd


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

Hi,

works as you did it for me.

#include <GuiConstants.au3>

;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
$size1 = 392
$size2 = 316
$i = 1
GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button_1
        Do
            WinMove("MyGUI", "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + 150, $size2 + 150)
            $i = $i + 1
            ConsoleWrite($i)
        Until $i = 20
        $i=0
    EndSelect
WEnd
Exit

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites

Not an exact fix... but just changed your code a tad

#include <GuiConstants.au3>
Local $size1 = 392, $size2 = 316, $i = 1
$MyGui = GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button_1
        Do
            WinMove($MyGui, "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + $i, $size2 + $i)
            Sleep(50)
            $i = $i + 1
        Until $i = 20
        $size1 = $size1 + $i
        $size2 = $size2 + $i
        $i = 1
    EndSelect
WEnd
Thanks, that's what I wanted!

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

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