Previous data is removed after using GUICtrlSetData

kitoy · October 24, 2016

I wanted to make a countdown timer without queueing the countdown message to the next line but the previous data is removed after using GUICtrlSetData. Any thoughts on how to display the previous data/message?

Here is an example:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $_main = GUICreate("", 501, 313, -1, -1)
Global $g_idMemo = GUICtrlCreateEdit("", 2, 2, 496, 274, $ES_AUTOVSCROLL + $ES_READONLY + $WS_VSCROLL)
GUICtrlSetData(-1, "")
GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
GUICtrlSendMsg($g_idMemo, $EM_SETREADONLY, True, 0)
GUICtrlSetBkColor($g_idMemo, 0xFFFFFF)
GUICtrlSetCursor($g_idMemo, -1)
GUISetState(@SW_SHOW)

HotKeySet('{esc}', "_close")
Func _close()
    Exit
EndFunc   ;==>_close

Func MemoWrite($sMessage = "")
    GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

MemoWrite("test message 1")
Sleep(1000)
MemoWrite("test message 2")
Sleep(1000)
MemoWrite("test message 3")
Sleep(1000)

For $i = 5 to 0 Step -1
    GUICtrlSetData($g_idMemo, "Program will exit in "&$i&" seconds...")
    Sleep(1000)
Next

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

Melba23 · October 24, 2016

kitoy,

Use _GUICtrlEdit_AppendText - that way you add to the existing content rather then replacing it. Or else read the existing content, concatenate the required new text and then replace the old with the new. I would recommend the former.

M23

mikell · October 24, 2016

The latter works pretty nice though

$previous = GuiCtrlRead($g_idMemo)
For $i = 5 to 0 Step -1
    GUICtrlSetData($g_idMemo, $previous & "Program will exit in "&$i&" seconds...")
    Sleep(1000)
Next

iAmNewbe · October 24, 2016

For me I would either setup a popup with the timed message or place a label at the top of the GUI that appears instead of inserting the message into the edit control itself.

Malkey · October 24, 2016

Following Melba23's second solution in post #2, here is a modified example of post #1.
Note the convention of having all the user defined functions (UDFs) at the end of the script.

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

HotKeySet('{esc}', "_close")

Global $_main = GUICreate("", 501, 313, -1, -1)
Global $g_idMemo = GUICtrlCreateEdit("", 2, 2, 496, 274, $ES_AUTOVSCROLL + $ES_READONLY + $WS_VSCROLL)
;GUICtrlSetData(-1, "")
GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
;GUICtrlSendMsg($g_idMemo, $EM_SETREADONLY, True, 0)
GUICtrlSetBkColor($g_idMemo, 0xFFFFE0)
GUICtrlSetCursor($g_idMemo, -1)
GUISetState(@SW_SHOW)

MemoWrite("test message 1")
Sleep(1000)
MemoWrite("test message 2")
Sleep(1000)
MemoWrite("test message 3")
Sleep(1000)

;Local $sEditText = ControlGetText($_main, "", $g_idMemo)
;Or
Local $sEditText = GUICtrlRead($g_idMemo)
For $i = 5 To 0 Step -1
    GUICtrlSetData($g_idMemo, $sEditText & "Program will exit in " & $i & " seconds...")
    Sleep(1000)
Next

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


Func MemoWrite($sMessage = "")
    GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

Func _close()
    Exit
EndFunc   ;==>_close

mikell · October 24, 2016

Malkey,
Please explain the difference with my reply in post #3

kitoy · October 24, 2016

Well, that answers my problem. Thanks everyone for the help.

@mikell, @Malkey - both are the same but Malkey have another option.

;Local $sEditText = ControlGetText($_main, "", $g_idMemo)

~~I believe this is now closed?~~
Edit: Found a new error.

Edited October 26, 2016 by kitoy

kylomas · October 24, 2016

<...idiotic response deleted...>

I'll never respond to another one of these from my stupid phone.

Edited October 24, 2016 by kylomas

kitoy · October 26, 2016

Found some error when the lines are already to long. Once the countdown starts, it will go back to the very first line.

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

HotKeySet('{esc}', "_close")

Global $_main = GUICreate("", 501, 313, -1, -1)
Global $g_idMemo = GUICtrlCreateEdit("", 2, 2, 496, 274, $ES_AUTOVSCROLL + $ES_READONLY + $WS_VSCROLL)
;GUICtrlSetData(-1, "")
GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
;GUICtrlSendMsg($g_idMemo, $EM_SETREADONLY, True, 0)
GUICtrlSetBkColor($g_idMemo, 0xFFFFE0)
GUICtrlSetCursor($g_idMemo, -1)
GUISetState(@SW_SHOW)

For $i = 1 to 20
    MemoWrite("test message " & $i)
    Sleep(100)
Next

;~ Local $sEditText = ControlGetText($_main, "", $g_idMemo)
;~ Or
Local $sEditText = GUICtrlRead($g_idMemo)
For $i = 10 To 0 Step -1
    GUICtrlSetData($g_idMemo, $sEditText & "Program will exit in " & $i & " seconds..." &@CRLF)
    Sleep(1000)
Next

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


Func MemoWrite($sMessage = "")
    GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

Func _close()
    Exit
EndFunc   ;==>_close

mikell · October 26, 2016

I (personally) would use a listview as an alternative - and easier - way

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>

HotKeySet('{esc}', "_close")

Global $_main = GUICreate("", 501, 313, -1, -1)
;Global $g_idMemo = GUICtrlCreateEdit("", 2, 2, 496, 274, $ES_AUTOVSCROLL + $ES_READONLY + $WS_VSCROLL)

Global $g_idMemo = GUICtrlCreateListView(" ", 2, 2, 496, 274, $LVS_NOCOLUMNHEADER)
_GUICtrlListView_SetColumnWidth ($g_idMemo, 0, 470)

;GUICtrlSetData(-1, "")
GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
;GUICtrlSendMsg($g_idMemo, $EM_SETREADONLY, True, 0)
GUICtrlSetBkColor($g_idMemo, 0xFFFFE0)
GUICtrlSetCursor($g_idMemo, -1)
GUISetState(@SW_SHOW)

For $i = 1 to 20
    $last_index = MemoWrite("test message " & $i)
    Sleep(100)
Next

;~ Local $sEditText = ControlGetText($_main, "", $g_idMemo)
;~ Or
; Local $sEditText = GUICtrlRead($g_idMemo)

For $i = 10 To 0 Step -1
   ; GUICtrlSetData($g_idMemo, $sEditText & "Program will exit in " & $i & " seconds..." &@CRLF)
    _GUICtrlListView_DeleteItem($g_idMemo, $last_index)
    $last_index = MemoWrite("Program will exit in " & $i & " seconds...")
    Sleep(1000)
Next

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


Func MemoWrite($sMessage = "")
   ; GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
   $index = _GUICtrlListView_AddItem($g_idMemo, $sMessage )
   _GUICtrlListView_EnsureVisible($g_idMemo, $index)
  Return $index
EndFunc   ;==>MemoWrite

Func _close()
    Exit
EndFunc   ;==>_close

kitoy · October 27, 2016

@mikell, thank you very much. This is really great.

By the way, is it possible to insert the $last_index to the next line if the string exceeds to the column width. I don't want to use the horizontal scroll. I've been looking in the _GUICrtlListView functions or in the parameters but I couldn't find one.

For $i = 1 to 20
    $last_index = MemoWrite($i & ". The quick brown fox jumps over the red lazy dog. Exceeding the text out of the column width.")
    Sleep(100)
Next

mikell · October 27, 2016

As multiline listviewitems are impossible, it needs a workaround
In the code below, the message is splitted in lines of 50 characters maxi - please look at the comments

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#Include <Array.au3>

HotKeySet('{esc}', "_close")

Global $_main = GUICreate("", 501, 313, -1, -1)
Global $g_idMemo = GUICtrlCreateListView(" ", 2, 2, 496, 274, $LVS_NOCOLUMNHEADER)
_GUICtrlListView_SetColumnWidth ($g_idMemo, 0, 470)

; this label disables clicks on the lisview, kind of 'readonly'
GUICtrlCreateLabel("", 2, 2, 470, 274)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetState(-1, $GUI_ONTOP)

GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
GUICtrlSetBkColor($g_idMemo, 0xFFFFE0)
GUISetState(@SW_SHOW)

For $i = 1 to 20
    MemoWrite("test message " & $i)
    Sleep(100)
Next

$message = ". The quick brown fox jumps over the red lazy dog. Exceeding the text out of the column width."
; split the message to an array of lines, each line 50 chars max
$formatted = StringRegExp($message, '.{1,50}', 3)
;_ArrayDisplay($formatted)
For $i = 0 to UBound($formatted)-1
   MemoWrite($formatted[$i])
    Sleep(100)
Next

; this will display an empty line (looks like a @crlf)
MemoWrite()  

; this one is needed because it will be deleted by the first _GUICtrlListView_DeleteItem to come
$last_index = MemoWrite("will be deleted")  

For $i = 5 To 0 Step -1
    _GUICtrlListView_DeleteItem($g_idMemo, $last_index)
    $last_index = MemoWrite("Program will exit in " & $i & " seconds...")
    Sleep(1000)
Next

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

Func MemoWrite($sMessage = "")
   $index = _GUICtrlListView_AddItem($g_idMemo, $sMessage )
   _GUICtrlListView_EnsureVisible($g_idMemo, $index)
  Return $index
EndFunc   ;==>MemoWrite

Func _close()
    Exit
EndFunc   ;==>_close

Edited October 27, 2016 by mikell

kitoy · October 29, 2016

Thank you so much @mikell.

Previous data is removed after using GUICtrlSetData

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Similar Content