Главная страница
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.034 c
11-1106738887
thaddy
2005-01-26 14:28
2005.09.25
ann:JCL Winapi32 for kol


14-1125395286
NeyroSpace
2005-08-30 13:48
2005.09.25
Рожденный ползать - летать не может?


2-1124395838
Пантелеев Иван
2005-08-19 00:10
2005.09.25
Наличие файла


14-1125339597
Константинов
2005-08-29 22:19
2005.09.25
Жизнь прекрасна, если Вы еще можете посмеяться над собой.


14-1125609338
KilkennyCat
2005-09-02 01:15
2005.09.25
2 сентября. С Днем рождения!