Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

Нумерация строк   Найти похожие ветки 

 
_ALEX_   (2005-08-17 15:40) [0]

Подскажите как сделать нумерацию строк в RichEdit"е.


 
Gydvin ©   (2005-08-17 15:49) [1]

Всмысле нумерацию строк.

Всмысле чтоб отображалось в риче или чтоб возвращало на какой строке курсор?


 
_ALEX_   (2005-08-17 15:55) [2]

чтобы отображались в риче. 1,2,3.........


 
Leonid Troyanovsky ©   (2005-08-17 16:03) [3]


> ALEX_   (17.08.05 15:55) [2]
> чтобы отображались в риче. 1,2,3.........



 with  RichEdit do
   for i := 0 to Lines.Count-1 do
     Lines[i] := Format("%3d. %s", [i+1, Lines[i]]);


 Not tested.

--
Regards, LVT.


 
Gydvin ©   (2005-08-17 16:09) [4]

единственное что приходит в голову это добалять цифру в начало строки+какой небуть неиспользуемый-ограничивающий знак и при каждом обновлении рича старые цифры убирать и нумеровать заново


 
KilkennyCat ©   (2005-08-17 16:35) [5]


> [3] Leonid Troyanovsky ©   (17.08.05 16:03)


доработка:

with  RichEdit1 do
  for i := 0 to Lines.Count-1 do begin
    if (length(Lines.Strings[i]) > 2) and (Lines.Strings[i][4] = ".") then Continue;
    Lines[i] := Format("%3d. %s", [i + 1, Lines[i]]);
  end;


без проверки каждый заход еще раз нумерует.

Tested OK


 
KilkennyCat ©   (2005-08-17 16:40) [6]

Извиняюсь, стрингс - лишнее.

with  RichEdit1 do
  for i := 0 to Lines.Count-1 do begin
    if (length(Lines[i]) > 2) and (Lines[i][4] = ".") then Continue;
    Lines[i] := Format("%3d. %s", [i + 1, Lines[i]]);
  end;


 
TUser ©   (2005-08-17 17:25) [7]

Можно посмотреть в сторону компонентов SynEdit, - я думаю там можно организовать отображение номера строки.



Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.047 c
3-1123493797
Oleg_
2005-08-08 13:36
2005.09.25
Объединение таблиц при работе через ado


4-1122715801
Antonn
2005-07-30 13:30
2005.09.25
Открыть стандартное окно поиска


1-1125586034
RzCoDer
2005-09-01 18:47
2005.09.25
NT сервисы


2-1124112317
Dysan
2005-08-15 17:25
2005.09.25
подскажите как удалить в тексте управляющие символы?


6-1117708206
DVYdm
2005-06-02 14:30
2005.09.25
Передача файла на сервер