Нумерация строк в RichEdit

[George2010]

Передо мной была поставлена задача -
чтобы строки в RichEdit нумеровались и номера
строк были недоступны для редактирования.
Я написал процедуру:

(в Uses прописал RichEdit).
procedure TFListNotRazF.FormatText();
var
fmt: TParaFormat2;
pos : Integer;
begin

pos := RichEdit1.SelStart;
RichEdit1.SelectAll;

FillChar( fmt, SizeOf( fmt ), 0 );
fmt.cbSize := SizeOf( fmt );
fmt.dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or
PFM_NUMBERINGSTYLE or PFM_NUMBERINGTAB;

fmt.wNumbering := 2;
/// wNumbering:
// 0 - нет нумерации
// 1 - маркированный список (•, •, •, ...).
// 2 - арабские цифры (1, 2, 3, ...).
// 3 - маленькие буквы (a, b, c, ...).
// 4 - большие буквы (A, B, C, ...).
// 5 - маленькие римские цифры (i, ii, iii, ...).
// 6 - большие римские цифры (I, II, III, ...).
// 7 - последовательность символов Unicode/
fmt.wNumberingStart := 1;
/// wNumberingStart:
// Число, с которого начинается нумерация./
fmt.wNumberingStyle := $200;
/// wNumberingStyle:
// Стиль нумерации
// 0 : 1)
// $100 : (1)
// $200 : 1.
// $300 : 1
// $400 : убрать список
// $8000 : продолжает нумеровать список не изменяя стиля/
fmt.wNumberingTab := 1440 div 4;
/// wNumberingTab:
// расстояние между номером и текстом параграфа/

RichEdit1.Perform( EM_SETPARAFORMAT, 0, lParam( @fmt ) );

RichEdit1.SelStart:=pos;

end;

И запустил эту процедуру перед заполнением RichEdit, а также
в событии RichEditKeyUp(это нужно чтобы в случае нажатия Enter правильно
пересчитывались номера строк).

Но возникла проблема - номера строк считаются от 1 до 255.
Дальше все строки нумеруются как 255.

Т.е.
1...
....
253...
254...
255...
255...
255...
......
255...

Перед заполнением RichEdit добавил строку -
SendMessage(RichEdit1.Handle,EM_EXL IMITTEXT,0,limit);
(limit - перем. количество строк).
Но это не помогло.

[Аватар]

А если в начало каждой строки программно внести номер и защитить его от редактирования (есть соответствующее свойство, Protected кажется, дельфи нет под рукой. Это свойство в объекте форматирующем выделенный текст). И как-то потом нужно решить проблемы с перенумерацией после вставки-удаления строк

[alexprey]

А можно просто рисовать на канве, во время прорисовки TRichEdit
Для этого нужно обработать большинство событий и заменить стандартную процедуру Paint (вроде так)

[George2010]

Для нумерации строк надо использовать другой компонент - SynEdit.