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

[StartMis]

как пронумеровать строки в RichEdit

[Ozerich]

Непонятный вопрос...
Как пронумеровать и где циферки должны бы быть

[StartMis]

RichEdit пронумеровать строки,как в редакторах кода.

[VVM]

procedure CountStrings(Re: TRichEdit);
var
  I: integer;
begin
  for I := 0 to Re.Lines.Count - 1 do
  with Re.Lines do
    Strings[i] := IntToStr(I) + ' ' + Strings[i];
end;

[StartMis]

VVM спасибо но это нето что я хочу мне надо чтобы нумерация была не в самом RichEdite так как его нужно будет редоктировать а как редакторах кода типа напанели чтоли но нумерация должна еще скролироваться вместе стекстом.

[Ozerich]

StartMis
Ну тут уже Richedit ничем не поможет.
Тут 2 варианта
1.найти компонент такой
2.самому придумать не легкий способ

[VVM]

Тогда могу предложить следующее (не знаю, подойдет ли): рядом с RichEdit - lisbox, в котором нумерация строк. А скроллируются они одновременно на событии, например, OnChange.

[StartMis]

VVM А исходникак нет

[VVM]

исходника нет. Для программной прокрутки можно использовать API: SendMessage(ListBox1.Handle, lb_SetTopIndex, 10, 0);

[BOBAH13]

Незнаю, в той ли я ситации и аудитории но почему бы не попробывать переопределить новый класс от richedit'a сделать отступ для клиентской области слева, к примеру. И на том месте по WM_PAINT рисовать нумерацию отступая каждый раз, высоту строки вниз. ?!