Set data to edit slow

[Ascer]

Hello again,

I looking for fast possible way to insert single line to EditBox GuiCtrlCreateEdit.

BeginUpdate -> set data -> endUpdate cant be used!

#include <GUIConstantsEx.au3>

Example()

Func Example()
    Local $msg, $diff, $time, $hEdit
    GUICreate("My GUI", 400, 250)
    $hEdit = GUICtrlCreateEdit("", 0, 0, 400, 150)
    GUISetState()

    $time = TimerInit()
    For $i = 1 To 100
    GUICtrlSetData($hEdit, "GUICtrlSetData" & @CRLF, 1)
    Next
    $diff = Int(TimerDiff($time) * 100)/100
    GUICtrlCreateLabel("GUICtrlSetData: " & $diff & "ms", 10, 170)

    $time = TimerInit()
    For $i = 1 To 100
    GUICtrlSendMsg($hEdit, 0xC2, 0, "GUICtrlSendMsg $EM_REPLACESEL" & @CRLF)
    Next
    $diff = Int(TimerDiff($time) * 100)/100
    GUICtrlCreateLabel("GUICtrlSendMsg: " & $diff & "ms", 10, 190)

    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

EndFunc   ;==>Example

 

[Nine]

$time = TimerInit()
  For $i = 1 To 100
    ControlSetText ($hGUI, "", $hEdit, "ControlSetText" & @CRLF)
  Next
  $diff = Int(TimerDiff($time))
  GUICtrlCreateLabel("ControlSetText: " & $diff & "ms", 10, 210)

124ms 

[jchd]

Begin/End can be used!

Fair comparison:

expandcollapse popup

___Example()

Func ___Example()
    Local $msg, $diff, $time, $hEdit
    GUICreate("My GUI", 400, 260)
    $hEdit = GUICtrlCreateEdit("", 0, 0, 400, 150)
    GUISetState()

    $time = TimerInit()
    _GUICtrlEdit_BeginUpdate($hEdit)
    For $i = 1 To 100
        GUICtrlSetData($hEdit, "GUICtrlSetData" & @CRLF, 1)
    Next
    _GUICtrlEdit_EndUpdate($hEdit)
    $diff = TimerDiff($time) / 100
    GUICtrlCreateLabel("Raw GUICtrlSetData: " & $diff & "ms", 10, 170)
    GUICtrlSetData($hEdit, "")      ; clear content

    $time = TimerInit()
    _GUICtrlEdit_BeginUpdate($hEdit)
    For $i = 1 To 100
        GUICtrlSetData($hEdit, "GUICtrlSetData" & @CRLF, 1)
    Next
    _GUICtrlEdit_EndUpdate($hEdit)
    $diff = TimerDiff($time) / 100
    GUICtrlCreateLabel("GUICtrlSetData with Begin/End: " & $diff & "ms", 10, 190)
    GUICtrlSetData($hEdit, "")      ; clear content

    $time = TimerInit()
    _GUICtrlEdit_BeginUpdate($hEdit)
    Local $s
    For $i = 1 To 100
        $s &= "GUICtrlSetData" & @CRLF
    Next
    GUICtrlSetData($hEdit, $s)
    _GUICtrlEdit_EndUpdate($hEdit)
    $diff = TimerDiff($time) / 100
    GUICtrlCreateLabel("Block GUICtrlSetData: " & $diff & "ms", 10, 210)
    GUICtrlSetData($hEdit, "")      ; clear content

    $time = TimerInit()
    For $i = 1 To 100
        GUICtrlSendMsg($hEdit, 0xC2, 0, "GUICtrlSendMsg $EM_REPLACESEL" & @CRLF)
    Next
    $diff = TimerDiff($time) / 100
    GUICtrlCreateLabel("GUICtrlSendMsg: " & $diff & "ms", 10, 230)

    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
EndFunc   ;==>___Example

 

[Ascer]

@jchd

You make an huuuge mistake here:

$diff = TimerDiff($time) / 100

 

My goal is to make chat Console for TCP client so after adding new line script should fast as possible back to received message loop.

[Nine]

Ok my previous was not exactly fair, but it is still the fastest :

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>

Example()

Func Example()
  Local $msg, $diff, $time
  Global $hGUI = GUICreate("My GUI", 400, 250)
  Global $hEdit = GUICtrlCreateEdit("", 0, 0, 400, 150)
  GUISetState()

  $time = TimerInit()
  For $i = 1 To 100
    GUICtrlSetData($hEdit, "GUICtrlSetData" & @CRLF, 1)
  Next
  $diff = int(TimerDiff($time))
  GUICtrlCreateLabel("GUICtrlSetData: " & $diff & "ms", 10, 170)

  $time = TimerInit()
  For $i = 1 To 100
    GUICtrlSendMsg($hEdit, 0xC2, 0, "GUICtrlSendMsg $EM_REPLACESEL" & @CRLF)
  Next
  $diff = Int(TimerDiff($time))
  GUICtrlCreateLabel("GUICtrlSendMsg: " & $diff & "ms", 10, 190)

  $time = TimerInit()
  For $i = 1 To 100
    AddText ("ControlSetText" & @CRLF)
  Next
  $diff = Int(TimerDiff($time))
  GUICtrlCreateLabel("ControlSetText: " & $diff & "ms", 10, 210)

  $time = TimerInit()
  For $i = 1 To 100
    _GUICtrlEdit_AppendText ($hEdit, "AppendText" & @CRLF)
  Next
  $diff = Int(TimerDiff($time))
  GUICtrlCreateLabel("AppendText: " & $diff & "ms", 10, 230)

  While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  WEnd

EndFunc   ;==>Example

Func AddText ($sTxt)
  Local Static $sEditText
  $sEditText &= $sTxt
  ControlSetText ($hGUI, "", $hEdit, $sEditText)
EndFunc

So far...

Edited March 26, 2020 by Nine

[Ascer]

Guys make tests on this example is more realistic in my case. Try to speed up it.

Example()


Func Example()

    Local $hGUI, $hEdit, $hButton, $hLabel, $time, $diff

    $hGUI = GUICreate("Test", 500, 500)
    $hEdit = GUICtrlCreateEdit("", 10, 10, 400, 400, 2099200)
    $hButton = GUICtrlCreateButton("Add", 10, 450, 80, 30)
    $hLabel = GUICtrlCreateLabel("", 10, 420, 100, 20)

    GUISetState()

    For $i = 1 To 100
        GUICtrlSetData($hEdit, "Example add new line with some text bla bla bah" & @CRLF, 1)
    Next

    GUICtrlSendMsg($hEdit, 0xB1, 9999, 9999)

    While 1

        Switch GUIGetMsg()
            Case -3
                Exit
            Case $hButton
                $time = TimerInit()
                GUICtrlSetData($hEdit, "Example add new line with some text bla bla bah" & @CRLF, 1)
                $diff = TimerDiff($time)
                GUICtrlSetData($hLabel, "Time: " & Int($diff * 100)/ 100 & "ms")
        EndSwitch

    WEnd

EndFunc

 

[Deye]

The bigger the buffer that holds data the longer it will take = make $hEdit smaller in size and notice a speed up

Edited March 26, 2020 by Deye

[Ascer]

You right but this not solve problem the editbox can't be small it should be almost full screen mode

[jchd]

3 hours ago, Ascer said:

You make an huuuge mistake here:

Which "huge mistake" please?

That's the time in ms used for inserting a line and displaying it.

Your * 100 / 100 is a no-op.

And I'd say something like 2.2 ms (on my old PC) is perfectly negligible.

Edited March 26, 2020 by jchd

[Ascer]

If TimerDiff return value in ms then you use / 100 and value is for single insert instead of all 100 lines.

[argumentum]

3 hours ago, Ascer said:

after adding new line script should fast as possible back to received message loop

hmmm, so, single thread in a loop waiting for ... something. Delegate  
Use an IPC to populate the edit control, or, leave it for later when the loop idle for say, 100 ms.