_SendMessage $WM_GETTEXTLENGTH returns 0 - why ?

[mLipok]

this line

ConsoleWrite('$nLen = ' & $nLen & @LF)

sends to console

$nLen = 0

why in result $nLen = 0

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>

#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

$Debug_SB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work
Global $iMemo
_Main()

Func _Main()

    Local $hGUI, $hProgress, $hInput, $input, $progress, $hStatus
    Local $aParts[4] = [80, 160, 300, -1]

    ; Create GUI
    $hGUI = GUICreate("StatusBar Embed Control", 400, 300)
    ; Create memo control
    $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 274, BitOR($WS_HSCROLL, $WS_VSCROLL, $ES_READONLY))
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUICtrlSendMsg($iMemo, $EM_SETREADONLY, True, 0)
    GUICtrlSetBkColor($iMemo, 0xFFFFFF)
    GUICtrlSendMsg($iMemo, $EM_LIMITTEXT, 0, 0) ; Max the size of the edit control.
    local $s_test = ''
    For $i = 1 To 100
        $s_test &= "TEST" & @CRLF & @TAB & "TEST" & @CRLF
    Next
    _MemoWrite($s_test)
    GUISetState()

    ;===============================================================================
    ; defaults to 1 part, no text
    $hStatus = _GUICtrlStatusBar_Create($hGUI)
    _GUICtrlStatusBar_SetMinHeight($hStatus, 20)

    ;===============================================================================
    GUISetState()

    ; Initialize parts
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    _GUICtrlStatusBar_SetText($hStatus, "Part 1")
    _GUICtrlStatusBar_SetText($hStatus, "Part 2", 1, $SBT_POPOUT)

    ; Embed a progress bar
    If @OSType = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl($hStatus, 2, $hProgress)
    Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE) ; marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200) ; marquee works on Win XP and above
    EndIf

    $input = GUICtrlCreateInput("This is Embeded", 0, 0)
    $hInput = GUICtrlGetHandle($input)
    _GUICtrlStatusBar_EmbedControl($hStatus, 3, $hInput, 3)

    ; Loop until user exits
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
EndFunc   ;==>_Main

Func _MemoWrite($sMessage = "")
    Local $h_memo = ControlGetHandle('StatusBar Embed Control', '', 'Edit1')
    Local Const $WM_GETTEXTLENGTH = 0x000E
    Local Const $EM_SETSEL = 0xB1
    Local Const $EM_REPLACESEL = 0xC2

    Local $nLen = _SendMessage($h_memo, $WM_GETTEXTLENGTH, 0, 0, 0, "int", "int")
    _SendMessage($h_memo, $EM_SETSEL, $nLen, $nLen, 0, "int", "int")
    _SendMessage($h_memo, $EM_REPLACESEL, True, $sMessage, 0, "int", "wstr")
    _SendMessage($h_memo, $EM_SETSEL, 1, 0, 0, "int", "int")
    _SendMessage($h_memo, $EM_SETSEL, 50, 50, 0, "int", "int")
    ConsoleWrite('$nLen = ' & $nLen & @LF)
    ;   GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>_MemoWrite

[wraithdu]

You are getting the length before setting any text to the box... of course it returns 0.

[mLipok]

I'm so s.....

ok my BIG BIG mistake

below correct function

Func _MemoWrite($sMessage = "")
    Local $h_memo = ControlGetHandle('StatusBar Embed Control', '', 'Edit1')
    Local Const $WM_GETTEXTLENGTH = 0x000E
    Local Const $EM_SETSEL = 0xB1
    Local Const $EM_REPLACESEL = 0xC2

    Local $nLen = _SendMessage($h_memo, $WM_GETTEXTLENGTH, 0, 0, 0, "int", "int")
    _SendMessage($h_memo, $EM_SETSEL, $nLen, $nLen, 0, "int", "int")
    _SendMessage($h_memo, $EM_REPLACESEL, True, $sMessage, 0, "int", "wstr")
    Local $nLen = _SendMessage($h_memo, $WM_GETTEXTLENGTH, 0, 0, 0, "int", "int")
    _SendMessage($h_memo, $EM_SETSEL, $nLen, $nLen, 0, "int", "int")
    ConsoleWrite('$nLen = ' & $nLen & @LF)
    ;   GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>_MemoWrite

[mLipok]

but why after function call

_MemoWrite($s_test)

text inserted to the memo is still selected

...

I want to deselect text and put scrollbar down

[wraithdu]

Your script is a real mess, and I'm not sure you understand what you're doing in the MemoWrite function with all the messages. Regardless, your problem is that you have not shown the GUI before you call the MemoWrite function. That causes most of your commands to fail. Move GUISetState above your first MemoWrite call.

[mLipok]

Thanks

now it's work fine

Your script is a real mess, and I'm not sure you understand what you're doing in the MemoWrite function with all the messages.

Yes this is my first step with sendmessage and WinAPI

I just try to learn some new knowledge

[wraithdu]

Understood. But keep in mind that you need to create some organization and sanity when learning new things. Otherwise you find yourself in the situation you are in where many things are going wrong at once, and you will find it very difficult to debug.

[mLipok]

thanks for good advice