Главная страница
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.035 c
4-1122954637
***_Diman_***
2005-08-02 07:50
2005.09.25
Не работает LVM_GETITEMTEXT


14-1125924810
DeMoN-777
2005-09-05 16:53
2005.09.25
Посоветуйте программу


1-1125317950
Cherrex
2005-08-29 16:19
2005.09.25
Как динамически добавить компонент на форму


6-1117704753
Marabunt
2005-06-02 13:32
2005.09.25
Файл FTPDemo.dpr


14-1125469229
syte_ser78
2005-08-31 10:20
2005.09.25
Совместимость фирменной эпсоновской краски с другими.