Gui Timer

[myxomatosii]

Yea, I didn't see it coming. It made 423 windows while I frantically clicked to make it stop.

How can I make a gui which contains the time and refreshes if any of the numbers change? Without the gui window actually changing or flickering.

Func time()
    GuiCreate("Timer",200,50)
    GuiSetState(@sw_show)
    Local $h=@hour,$m=@min,$s=@sec
    GuiCtrlCreateLabel("The current time is "&$h&":"&$m&":"&$s&".",10,10)
EndFunc

while 1
    time()
wend

[Melba23]

myxomatosii,

Create the GUI once at the beginning (if you create a GUI for each call of time() you will get a LOT of GUIS - as you discovered!).

Then use a flag to see if the fastest changing macro (@SEC) has changed value. Only then do you update the label. If you update the label every time you call time() you get flickering - as you have also discovered.

Global $nCheck

GuiCreate("Timer",200,50)
$hLabel = GuiCtrlCreateLabel("", 10, 10, 180, 20)
GuiSetState()

While 1
    time()
    If GUIGetMsg() = -3 Then Exit
WEnd

Func time()
    If @SEC <> $nCheck Then
        GUICtrlSetData($hLabel, "The current time is " & @HOUR & ":" & @MIN & ":" & @SEC & ".")
        $nCheck = @SEC
    EndIf
EndFunc

M23