RichEdit focus problem

[UrS]

Each time I use this function to colorize text in RichEdit control it selects text there and so other GUIControls loose focus on them. How can I make so, that RichEdit won't steal focus from other controls? >_>

Func _GuiCtrlRichEdit_AppendColorText( $Handle, $Text )
    Local $ColP[15][3], $i = 0, $n = 0, $Len = StringLen( _GuiCtrlRichEdit_GetText( $B_Chat ) )

    While True
        $ColP[$i][0] = StringInStr( $Text, "|C00", 0, $i + 1 )

        If $ColP[$i][0] <= 0 Then ExitLoop

        $ColP[$i][1] = StringInStr( $Text, "|r", 0, $i + 1 ) - 10 * ($i + 1) - 2 * $i - 1

        $ColP[$i][2] = StringMid( $Text, $ColP[$i][0] + 2, 8 )

        $ColP[$i][0] -= 12 * $i + 1

        $i += 1
    WEnd


    For $n = 0 to $i - 1 Step 1
        $Text = StringReplace( $Text, "|C" & $ColP[$n][2], "" )
        $Text = StringReplace( $Text, "|r", "" )
    Next

    _GUICtrlRichEdit_AppendText( $B_Chat, $Text )

    For $n = 0 to $i - 1 Step 1
        _GuiCtrlRichEdit_SetSel( $B_Chat, $ColP[$n][0] + $Len, $ColP[$n][1] + $Len )
        _GUICtrlRichEdit_SetCharColor( $B_Chat, Number( "0x" & $ColP[$n][2] ) )
        _GUICtrlRichEdit_Deselect( $B_Chat )
    Next
EndFunc

[Melba23]

UrS,

You could try calling _WinAPI_GetFocus as you enter the function and then using the returned handle with _WinAPI_SetFocus as you exit. That way you keep the focus where it is.

M23