Изменить цвет текста в строке X в TrichEdit

Question

Я запускаю Delphi 7 на XP sp3.

В моем TrichEdit у меня N строк, например:

TextLine 1
TextLine 2
..
TextLine N 
...

Если по какой-то причине возникает ошибка, и текст меняется на:

TextLine 1
TextLine 2
TextLine 2   (mark // my marking)
..
TextLine N 

Я хочу, чтобы первый дубликат (= вторая строка Textline 2 (mark)) был помечен как КРАСНЫЙ.

Я попытался:

Text := RichEdit.Lines[second Textline 2];
Richedit.SelAttributes.Color := clRed; 
RichEdit.SelText := Text;

Это работает, но помещает текст в начале (верхняя строкав RichEdit).

Я вижу проблему в перемещении RichEdit-lineCounter в линию (тестовая линия 2 (отметка)) или что-то подобное, но как мне это сделать (= отметить строку ошибки в КРАСНОМ)

Answer 1

Вы должны сделать следующее:

1. Найдите индекс символа первого символа, форматирование которого вы хотите изменить, и установите для SelStart этот индекс.
2. Установите SelLength в качестве длины текста, который вы хотите отформатировать.
3. Измените SelAttributes, чтобы применить желаемое форматирование.