Button default & timeout

[statik]

is there a way to set a form button to be default and to have a timeout like if it was just a msg box button? thnx

this is one of my buttons:

$Button1 = GUICtrlCreateButton("NIPR", 140, 424, 80, 40, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))

GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

[enaiman]

Not so difficult - just delete and re-create the button after the timeout expires.

See a small example:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 327, 221, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Button1 = GUICtrlCreateButton("Button1", 16, 128, 291, 73, $BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent(-1, "Button1Click")
$Label1 = GUICtrlCreateLabel("Default Button", 56, 32, 220, 17, $SS_CENTER)
GUISetState(@SW_SHOW)

$i = 0

While 1
    Sleep(200)
    If $i < 20 Then $i += 1
    If $i = 20 Then
        $i += 1
        GUICtrlDelete($Button1)
        $Button1 = GUICtrlCreateButton("Button1", 16, 128, 291, 73)
        GUICtrlSetData($Label1, "Not Default anymore")
    EndIf
WEnd

Func Button1Click()
    
EndFunc
Func Form1Close()
    Exit
EndFunc

Edited May 18, 2010 by enaiman

[statik]

Ok thanks. I have the default button with the timeout set. But now I need it so that when the default (which is NIPR) button is timed out and when a user clicks the default button, the script/program exits.

This is what I have so far:

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\admin\Desktop\SCRIPTING\Form1.kxf

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Form1", 501, 501, 192, 124)

GUISetBkColor(0xFFFFFF)

$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\admin\Desktop\SCRIPTING\1SOCS Emblem.GIF", 56, 16, 385, 350, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

$Label1 = GUICtrlCreateLabel("Is this workstation for NIPR or SIPR?", 104, 384, 302, 24)

GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

$Button1 = GUICtrlCreateButton("NIPR", 140, 424, 80, 40, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP,$WS_BORDER))

GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

GUICtrlSetOnEvent(-1, "Button1Click")

$Button2 = GUICtrlCreateButton("SIPR", 288, 424, 80, 40, BitOR($WS_GROUP,$WS_BORDER))

GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

GUISetState(@SW_SHOW)

$i = 0

While 1

Sleep(3000)

If $i < 20 Then $i += 1

If $i = 20 Then

$i += 1

GUICtrlDelete($Button1)

$Button1 = GUICtrlCreateButton("NIPR", 140, 424, 80, 40, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP,$WS_BORDER))

GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

EndIf

WEnd

Func Button1Click()

EndFunc

Func Form1Close()

Exit

EndFunc

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Edited May 18, 2010 by statik

[GEOSoft]

You will be at this for weeks. You are attempting to use a Message loop with Opt("GUIEventMode") set to 1. With that setting the messages will be ignored.

[statik]

hmm... if its that much of a pain, I will just remove the default with timer.

[GEOSoft]

hmm... if its that much of a pain, I will just remove the default with timer.

Or dump that age old OnEvent mode and fun everything from a message loop. You can't use both.

[statik]

Ok, well this is what I have now. can someone help me with the message loop?

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\admin\Desktop\SCRIPTING\Form1.kxf
$Form1 = GUICreate("Form1", 501, 501, 192, 124)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\admin\Desktop\SCRIPTING\1SOCS Emblem.GIF", 56, 16, 385, 350, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Is this workstation for NIPR or SIPR?", 104, 384, 302, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("NIPR", 140, 424, 80, 40, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP,$WS_BORDER))
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("SIPR", 288, 424, 80, 40, BitOR($WS_GROUP,$WS_BORDER))
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

[enaiman]

Or dump that age old OnEvent mode

[statik]

This is what I have now. What do I add to make the $Button1 default, and to have a timer of 30 seconds and when the time runs out it will automatically select $Button1??

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\admin\Desktop\SCRIPTING\Form1.kxf
$Form1 = GUICreate("Form1", 501, 501, 192, 124)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\admin\Desktop\SCRIPTING\1SOCS Emblem.GIF", 56, 16, 385, 350, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Is this workstation for NIPR or SIPR?", 104, 384, 302, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("NIPR", 140, 424, 80, 40, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP,$WS_BORDER))
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("SIPR", 288, 424, 80, 40, BitOR($WS_GROUP,$WS_BORDER))
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $Button1
    exit
Case $nMsg = $Button2
Endselect
Wend