Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.09.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
_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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.037 c
4-1122611364
Galim
2005-07-29 08:29
2005.09.25
TComPortDriver


6-1117767155
-=S.S=-
2005-06-03 06:52
2005.09.25
Address to IP


14-1125071180
grau
2005-08-26 19:46
2005.09.25
Про OpenOffice.org


14-1125657919
erika
2005-09-02 14:45
2005.09.25
Поиск AVI


1-1125391752
nikolas
2005-08-30 12:49
2005.09.25
Пошаговое тестирование DLL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский