Problem using GUICTrlSetData() (Solved)

[Zag8888]

Hello to all

I want to add text in a read-only edit control. When I highlight using the mouse in Edit box I can change the position of outputted words, how can I fix this? I think that the problem is from GuiCtrlSetData()

#include <GuiEdit.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>


Global $hGUI,$Exit
Local $logs, $String
ReadOnlyGUI()

Func ReadOnlyGUI()
Opt("GUIOnEventMode", 1)
$hGUI=GuiCreate("Test", 625, 480, -1, -1, $WS_CAPTION + $WS_SYSMENU + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_MINIMIZEBOX + $WS_EX_TOOLWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE,"Exits")
GUISwitch($hGUI)
GUISetState(@SW_SHOW, $hGui)
Global $ReadOnly = GUICtrlCreateEdit(" ReadOnly" & @CRLF, 400, 50, 200, 400, + $ES_READONLY + $ES_MULTILINE + $WS_BORDER + $ES_AUTOVSCROLL )
GUICtrlSetStyle($ReadOnly, 0)
EndFunc

Func SetLogs($String)
   $logs = " " & $String
   GUICtrlSetData($ReadOnly, $logs & @CRLF,1)
EndFunc

Func Exits()
   Exit
EndFunc


while 1
   Sleep(1000)
   SetLogs("Testing")
WEnd

Best Regards

Edited June 13, 2019 by Zag8888

[Zag8888]

Edit: Fixed by using _GUICtrlEdit_AppendText() instead of GuiCtrlSetData()

I still have the problem, but now works better.

 

2 Edit: I used _GUICtrlEdit_InsertText instead of GuiCtrlSetData() and I removed

GUICtrlSetStyle($ReadOnly, 0)

Now its work perfect.

Edited June 8, 2019 by Zag8888

[Zedna]

Here is more simple solution without _GUICtrlEdit_xxxx():

#include <GuiEdit.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>

Global $hGUI, $Exit
Local $logs, $String

ReadOnlyGUI()

Func ReadOnlyGUI()
    Opt("GUIOnEventMode", 1)
    $hGUI = GUICreate("Test", 625, 480, -1, -1, $WS_CAPTION + $WS_SYSMENU + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_MINIMIZEBOX + $WS_EX_TOOLWINDOW)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Exits")
    GUISetState(@SW_SHOW, $hGUI)
    Global $ReadOnly = GUICtrlCreateEdit(" ReadOnly" & @CRLF, 400, 50, 200, 400, +$ES_READONLY + $ES_MULTILINE + $WS_BORDER + $ES_AUTOVSCROLL)
    GUICtrlSetStyle($ReadOnly, 0)
EndFunc   ;==>ReadOnlyGUI

Func SetLogs($String)
    $logs = GUICtrlRead($ReadOnly)
    $logs &= @CRLF & " " & $String
    GUICtrlSetData($ReadOnly, $logs)
EndFunc   ;==>SetLogs

Func Exits()
    Exit
EndFunc   ;==>Exits


While 1
    Sleep(1000)
    SetLogs("Testing")
WEnd

 

[Zag8888]

Great, thanks a lot

[Zag8888]

19 hours ago, Zedna said:

Here is more simple solution without _GUICtrlEdit_xxxx():

#include <GuiEdit.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>

Global $hGUI, $Exit
Local $logs, $String

ReadOnlyGUI()

Func ReadOnlyGUI()
    Opt("GUIOnEventMode", 1)
    $hGUI = GUICreate("Test", 625, 480, -1, -1, $WS_CAPTION + $WS_SYSMENU + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_MINIMIZEBOX + $WS_EX_TOOLWINDOW)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Exits")
    GUISetState(@SW_SHOW, $hGUI)
    Global $ReadOnly = GUICtrlCreateEdit(" ReadOnly" & @CRLF, 400, 50, 200, 400, +$ES_READONLY + $ES_MULTILINE + $WS_BORDER + $ES_AUTOVSCROLL)
    GUICtrlSetStyle($ReadOnly, 0)
EndFunc   ;==>ReadOnlyGUI

Func SetLogs($String)
    $logs = GUICtrlRead($ReadOnly)
    $logs &= @CRLF & " " & $String
    GUICtrlSetData($ReadOnly, $logs)
EndFunc   ;==>SetLogs

Func Exits()
    Exit
EndFunc   ;==>Exits


While 1
    Sleep(1000)
    SetLogs("Testing")
WEnd

 

I've tried to use  _GUICtrlRichEdit_Create_  instead of GUICtrlCreateEdit, I found _GUICtrlRichEdit_Create_ better, I've used _GUICtrlRichEdit_AppendText to add text, but with the mouse, I can move all the outputted words.

Edited June 9, 2019 by Zag8888

[Zag8888]

bb

[Zag8888]

bb

[Jos]

bb?
Is there still a question in the topic ( which you marked as Solved in the title) ?

Jos

[Zedna]

On 6/9/2019 at 10:12 PM, Zag8888 said:

I've tried to use  _GUICtrlRichEdit_Create_  instead of GUICtrlCreateEdit, I found _GUICtrlRichEdit_Create_ better, I've used _GUICtrlRichEdit_AppendText to add text, but with the mouse, I can move all the outputted words.

 

Post small reproducing script to increase your chance for getting help ...

 

EDIT: As far as I think you want to completely disable richedit control and use it only as LOG output?

Edited June 12, 2019 by Zedna

[Zag8888]

On 6/12/2019 at 11:10 AM, Zedna said:

 

Post small reproducing script to increase your chance for getting help ...

 

EDIT: As far as I think you want to completely disable richedit control and use it only as LOG output?

right! I'm trying to make a log output

[Zag8888]

On 6/11/2019 at 9:47 PM, Jos said:

bb?
Is there still a question in the topic ( which you marked as Solved in the title) ?

Jos

Now its solved

Edited June 13, 2019 by Zag8888

[Zag8888]

On 6/12/2019 at 11:10 AM, Zedna said:

 

Post small reproducing script to increase your chance for getting help ...

 

EDIT: As far as I think you want to completely disable richedit control and use it only as LOG output?

I followed your last example.  Now it works perfect, thanks for your help.

Func SetLogs($String)
   $logs = _GUICtrlRichEdit_GetText($ReadOnly)
   $logs &= @CRLF & "[" & _NowTime() & "] " & $String
   _GUICtrlRichEdit_SetText($ReadOnly, $logs)
EndFunc