Что то никак не разберусь с RichText'ом

[Ruslan Demidow]

Вот примерный кусок кода

Код: Выделить всё

   MsgTextBox.SelStart = CurPos
   MsgTextBox.SelLength = Len(NewLine)
   MsgTextBox.SelFontSize = 7


Где CurPos некоторое значение (тип Long),
NewLine - строка текста
Хочу установить размер шрифта - фиг. Не работает.
Что пропустил, какая страница вырвана в моём учебнике?

[cg_ck]

Помоему всё вполне приемлимо, но мне кажется это из-за выбранного тобою размера "7". Попробуй поэксперементировать с чётными и начиная с 8-и. Если не получится, чиркни. Мне тоже интересно.

[A.A.Z.]

Может, CurPos больше, чем Len(Newline)? Он не может именно размер поставить, или выделить сам текст?

[Ruslan Demidow]

Нет, CurPos меньше чем Len(NewLine)
Прохожу код пошагово и вижу, что:
Появляется новая строка.
Выделяется.
Меняется цвет и размер шрифта.
А после того как появляется новая строка предыдущая возвращается к прежнему виду.

[Ruslan Demidow]

Всё, ребята, разобрался.
В соседнем топике по ричтексту нашёл решение своей проблемы.
Дело в том, что все параметры отображения, оказывается, надо указывать до .SelText "Тру-ля-ля".
Тогда работает.
А если указывать сначала текст, а потом параметры - тогда - не работатет.

Всем СПАСИБО за участие.