[Creat0R]

Нужно использовать RichEdit.
Вывод текста в элемент RichEdit с поддержкой тегов

[Pavluha]

Creat0R, а можно сделать так, чтобы в примере, на который вы дали ссылку, теги не убирались.

И ещё: можно ли сделать так, чтобы пользователь мог редактировать код, и если пользователь вставил новый тег, то сразу автоматом приписывался нужный стиль, и наоборот, если пользователь убрал тег, то и стиль убирался.

[Creat0R]

Pavluha,
Всё возможно.
См. описание к функциям _GUICtrlRichEdit_* в справке.

[Creat0R]

Как то так:

Код:

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

$sEditText = ''

$hGUI = GUICreate("Test Script", 300, 200)

$hRichEdit = _GUICtrlRichEdit_Create($hGUI, 'Some data with tags  [img][/img], [b][/b], and more.', 20, 20, 260, 160, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))

GUISetState(@SW_SHOW, $hGUI)

AdlibRegister('_SetEdit', 100)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            _GUICtrlRichEdit_Destroy($hRichEdit)
            Exit
    EndSwitch
WEnd

Func _SetEdit()
    $aPos = _GUICtrlRichEdit_GetSel($hRichEdit)
    $sData = _GUICtrlRichEdit_GetText($hRichEdit)

    If $sEditText <> $sData Then
        $sEditText = $sData
    Else
        Return
    EndIf

    _GUICtrlRichEdit_SetReadOnly($hRichEdit, True)

    Dim $aTags[2][3] = [['[b][/b]', 'bo', 0x000000], ['[img][/img]', '', 0x0FFF00]]

    For $i = 0 To UBound($aTags)-1
        StringReplace($sData, $aTags[$i][0], '')
        $iC = @extended

        For $j = 1 To $iC
            $iPos = StringInStr($sData, $aTags[$i][0], 2, $j)
            _GUICtrlRichEdit_SetSel($hRichEdit, $iPos-1, $iPos + StringLen($aTags[$i][0])-1)

            If $iPos Then
                If $aTags[$i][1] <> '' Then
                    _GUICtrlRichEdit_SetCharAttributes($hRichEdit, '+' & $aTags[$i][1])
                EndIf

                _GUICtrlRichEdit_SetCharColor($hRichEdit, $aTags[$i][2])
            EndIf
        Next

        _GUICtrlRichEdit_SetSel($hRichEdit, $aPos[0], $aPos[1])
        _GUICtrlRichEdit_SetCharAttributes($hRichEdit, '-' & $aTags[$i][1])
        ;_GUICtrlRichEdit_SetCharColor($hRichEdit, Default)
    Next

    _GUICtrlRichEdit_SetReadOnly($hRichEdit, False)
EndFunc

[Pavluha]

Creat0R, спасибо ещё раз, правда в вашем коде есть ошибочка ([b]some text[/b] не выделяет), но я это исправлю сам.

[Creat0R]

в вашем коде есть ошибочка (some text не выделяет) »

Это не ошибка, я не рассчитывал на это.
В первом сообщении указано «тег сдаелать зелёным, а тег сделать жирным», с этого я понял что теги идут вместе, не обрамляя текст.

Исправить можно так:

Код:

    ...
    Dim $aTags[4][3] = [['[b]', 'bo', 0x000000], ['[/b]', 'bo', 0x000000], ['[img]', '', 0x0FFF00], ['[/img]', '', 0x0FFF00]]
    ...

хотя содержимое между тегами не будет подсвечиваться.

[Pavluha]

Creat0R, я заметил, что если текста в поле очень много, то создаётся ненужная прокрутка текста (попробуйте написать текста столько, что он уже не вместиться весь и появиться прокрутка). Как это исправить.

И ещё. Если очень быстро печатать, то часть символов каким-то странным образом оказывается с правой стороны от курсора ввода. Поставил задержку 500 мс, и всё нормализовалось, правда не так быстро подсвечивается код.

[Creat0R]

Как это исправить »

Убрать $WS_VSCROLL из стилей элемента.

Если очень быстро печатать, то часть символов каким-то странным образом оказывается с правой стороны от курсора ввода

Да есть такое, есть ещё несколько глюков, нужно дорабатывать пример.
Я делал это на скорую руку, тестировать особо времени не было.

[Pavluha]

Creat0R, вы не так поняли (или это я не так сказал). Сама полоска прокрутки нужна. Просто когда текста слишком много, а ты допечатываешь, то текст сам по себе прокручивается от начала до конца. Скорее всего, это из-за функции _GUICtrlRichEdit_SetSel