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

@Vlad_IT · Регистрация: 03.04.2010

Студворк — интернет-сервис помощи студентам

Добрый день. У меня на форме есть два компонента Memo1 И Memo2 типа TMemo. Так вот. Memo1 привязан к левой части формы а Memo2 на клиентской. Так вот. Мне нужно что-бы Memo2 нумеровал строки Memo2 как в среде разработки. Только продолжительно

. За ранее спасибо

Добавлено через 5 минут
Нумерацию я конечно сделал. Но вот если опускаться компонентом Memo1 в низ по тексту, второй компонент будет стоят там где и стоял.

cpp_developer · 19.03.2011, 15:43

покажи, как делал

?

@Vlad_IT · 19.03.2011, 18:38 **[ТС]**

LK, Ну как бы сказать. У меня сейчас проект не под рукой, но алгоритм я помню

. Там я делал циклом, считал сколько строк у Memo, точнее уже кажется RichEdit. И добавлял инкрементированное значение циклом в второе поле. И если в поле увеличивались строки то удаляется все из табло и снова инкримитнируется.

cpp_developer · 19.03.2011, 18:43

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void SetNum(TMemo *Memo, TRichEdit *RichEdit)
{
   if(Memo->Lines->Count==RichEdit->Lines->Count)
   return;
 
   if(Memo->Lines->Count<RichEdit->Lines->Count)
   {
       for(int i=Memo->Lines->Count; i<RichEdit->Lines->Count; i++)
       {
          Memo->Lines->Add(IntToStr(i+1));
       };
   }
   else
   if(Memo->Lines->Count>RichEdit->Lines->Count)
   {
       for(int i=Memo->Lines->Count; i!=RichEdit->Lines->Count; i--)
       Memo->Lines->Delete(i-1);
   }
}

@Vlad_IT · 19.03.2011, 18:53 **[ТС]**

LK, К сожалению результат тот же. Цифры добавляются и уходят вниз.

cpp_developer · 19.03.2011, 18:56

Естественно, ты не обрабатываешь поведение Мемо относительно РичЭдита.

@Vlad_IT · 20.03.2011, 13:52 **[ТС]**

LK, Смысле?

cpp_developer · 21.03.2011, 10:34

В смысле

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
  switch (Key) {
    case VK_UP : // Стрелка ВВЕРХ
      Memo1->Perform(EM_SCROLL,SB_LINEUP,0);
    break;
    case VK_DOWN :  // Стрелка ВНИЗ
      Memo1->Perform(EM_SCROLL,SB_LINEDOWN,0);
    break;
    case VK_HOME : // В начало текста, если CTRL+HOME
      if (GetKeyState(VK_CONTROL)) {
        Memo1->Perform(WM_VSCROLL, SB_TOP, 0);
      }
    break;
    case VK_END : // В конец текста, если CTRL+END
      if (GetKeyState(VK_CONTROL)) {
        Memo1->Perform(WM_VSCROLL, SB_BOTTOM, 0);
      }
    break;
  }
}

например.

@Vlad_IT · 21.03.2011, 14:34 **[ТС]**

LK, Спасибо большое. Все работает

cpp_developer · 21.03.2011, 14:54

Ну а обрабатывать FormResize, RichEdit1Change, RichEdit1KeyPress, т.е., VK_RETURN, VK_DELETE, VK_BACK кто будет ? Тоже я ?

@Vlad_IT · 21.03.2011, 18:43 **[ТС]**

LK, За это не волнуйтесь, я сам. ))))

cpp_developer · 21.03.2011, 18:54

за скролбары тоже не волноваться

?

@Vlad_IT · 21.03.2011, 19:17 **[ТС]**

LK, Увидим

Спасибо Вам большое )))

cpp_developer · 21.03.2011, 19:23

Большое Вам, Vlad_IT, пожалуйста

.

@Byurrer · 07.05.2011, 21:51

LK, подскажите пожалуйста на счет скроллбаров, у меня на форме 2 RichEdit'a и оба должны одновременно прокручиваться, так как в одном номера строк а в другом текст, как это можно осуществить? Заранее спасибо!

@Maluda · 07.05.2011, 22:35

Vlad_IT, скачай TAdvMemo (TMS Components) и не мучайся! Там и нумерация, и подсветка синтаксиса,
и подсказка кода, и ещё столько всего, что реализует все твои фантазии.

cpp_developer · 08.05.2011, 03:22

Сообщение от Byurrer

подскажите пожалуйста на счет ...

нумерация строк со всеми возможными извратами и т.д.:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
// собственно, функция нумерации строк
void SetNum(TMemo *Memo, TRichEdit *RichEdit)
{
  if(Memo->Lines->Count==RichEdit->Lines->Count)
  return;
 
  if(Memo->Lines->Count<RichEdit->Lines->Count)
  {
      for(int i=Memo->Lines->Count; i<RichEdit->Lines->Count; i++)
      {
          Memo->Lines->Add(IntToStr(i+1));
      };
  }
  else
  if(Memo->Lines->Count>RichEdit->Lines->Count)
  {
      for(int i=Memo->Lines->Count; i!=RichEdit->Lines->Count; i--)
      Memo->Lines->Delete(i-1);
  }
}
//---------------------------------------------------------------------------
// использование и другие вещи
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
    SetNum(Memo1, RichEdit1); // нумерация строк
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, wchar_t &Key)
{
int iMainCount = RichEdit1->Lines->Count;
int iNumberCount = Memo1->Lines->Count;
    if (RichEdit1->CaretPos.x==0){
        iMainCount++;
    }
//нумерация строк
    switch (Key)
    {
    case VK_RETURN: { // enter
        if (iMainCount >= iNumberCount-1){
            Memo1->Lines->Add(IntToStr(iNumberCount+1));
        }
        if (Memo1->Lines->Count>30){
            Memo1->Perform(EM_SCROLLCARET,0,0);//!!!!!!!!!!!!!!!!
        }
        break;
        }
    case VK_BACK: { // backspace
        if (iMainCount < iNumberCount){
            Memo1->Lines->Delete(iNumberCount-1);
            SetNum(Memo1, RichEdit1); // нумерация строк
        }
        break;
        }
    case VK_UP: { // arrow up
            Memo1->Perform(EM_SCROLL,SB_LINEUP,0);
            RichEdit1->Perform(EM_SCROLL,SB_LINEUP,0);
        break;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
// При нажатии клавиши <Enter> - номер новой строки
//  if(Key == VK_RETURN) {
//      Memo1->Lines->Add(IntToStr(RichEdit1->Lines->Count+1));
//  }
int iMainCount = RichEdit1->Lines->Count;
    if (RichEdit1->CaretPos.y==iMainCount) {
        iMainCount++;
    }
    switch (Key){
        case VK_DELETE: { // delete
            if (iMainCount < Memo1->Lines->Count) {
                Memo1->Lines->Delete(Memo1->Lines->Count-1);
            }
            break;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
    int pos_char = 0; // позиция символа,
                      // на который надо поставить курсор
    if(Key==VK_UP) {
        Memo1->Perform(EM_SCROLL,SB_LINEUP,0);
        RichEdit1->Perform(EM_SCROLL,SB_LINEUP,0);
    }
    if(Key==VK_DOWN) {
        Memo1->Perform(EM_SCROLL,SB_LINEDOWN,0);
        RichEdit1->Perform(EM_SCROLL,SB_LINEDOWN,0);
    }
    if( ( Shift.Contains(ssCtrl) ) && ( Key == VK_HOME) ) {
        // CTRL+HOME
        Memo1->Perform(EM_SETSEL, pos_char, pos_char);
        Memo1->Perform(EM_SCROLLCARET, 0, 0);
    }
    if( ( Shift.Contains(ssCtrl) ) && ( Key == VK_END) ) {
        // CTRL+END
        Memo1->Perform(WM_VSCROLL,SB_BOTTOM,SB_THUMBTRACK);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseWheelDown(TObject *Sender, TShiftState Shift,
          TPoint &MousePos, bool &Handled)
{
    int iFirstRich1 = SendMessage(RichEdit1->Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
    int iFirstRich2 = SendMessage(Memo1->Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
    if (iFirstRich1 != iFirstRich2){
        SendMessage(Memo1->Handle, EM_LINESCROLL, 0, iFirstRich1-iFirstRich2);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseWheelUp(TObject *Sender, TShiftState Shift,
          TPoint &MousePos, bool &Handled)
{
  int iFirstRich1 = SendMessage(RichEdit1->Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
  int iFirstRich2 = SendMessage(Memo1->Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
  if (iFirstRich1 != iFirstRich2){
        SendMessage(Memo1->Handle, EM_LINESCROLL, 0, iFirstRich1-iFirstRich2);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
    if ( RichEdit1->WordWrap ) { // если перенос строк
        SetNum(Memo1, RichEdit1); // нумеруємо рядки
//      MemoWidth(Memo1);
    }
}
//---------------------------------------------------------------------------
/*
//Получаю текущую позицию скролбаров
  int ix=GetScrollPos(Memo1->Handle,SB_HORZ);
  int iy=GetScrollPos(Memo1->Handle,SB_VERT);
*/
//---------------------------------------------------------------------------

<- код прозрачный, понятный и провереный ->
Поддержка, техническое обслуживание и консультации не предоставляются.

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096

	Нумерация строк 19.03.2011, 14:46. Показов 8578. Ответов 16 Метки нет (Все метки) Добрый день. У меня на форме есть два компонента Memo1 И Memo2 типа TMemo. Так вот. Memo1 привязан к левой части формы а Memo2 на клиентской. Так вот. Мне нужно что-бы Memo2 нумеровал строки Memo2 как в среде разработки. Только продолжительно . За ранее спасибо Добавлено через 5 минут Нумерацию я конечно сделал. Но вот если опускаться компонентом Memo1 в низ по тексту, второй компонент будет стоят там где и стоял. 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	19.03.2011, 15:43
	покажи, как делал ? 1

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096
	19.03.2011, 18:38 [ТС]
	LK, Ну как бы сказать. У меня сейчас проект не под рукой, но алгоритм я помню . Там я делал циклом, считал сколько строк у Memo, точнее уже кажется RichEdit. И добавлял инкрементированное значение циклом в второе поле. И если в поле увеличивались строки то удаляется все из табло и снова инкримитнируется. 0

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096
	19.03.2011, 18:53 [ТС]
	LK, К сожалению результат тот же. Цифры добавляются и уходят вниз. 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	19.03.2011, 18:56
	Естественно, ты не обрабатываешь поведение Мемо относительно РичЭдита. 1

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096
	20.03.2011, 13:52 [ТС]
	LK, Смысле? 0

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096
	21.03.2011, 14:34 [ТС]
	LK, Спасибо большое. Все работает 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	21.03.2011, 14:54
	Ну а обрабатывать FormResize, RichEdit1Change, RichEdit1KeyPress, т.е., VK_RETURN, VK_DELETE, VK_BACK кто будет ? Тоже я ? 0

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096
	21.03.2011, 18:43 [ТС]
	LK, За это не волнуйтесь, я сам. )))) 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	21.03.2011, 18:54
	за скролбары тоже не волноваться ? 1

@Vlad_IT 1452 / 360 / 61 Регистрация: 03.04.2010 Сообщений: 2,096
	21.03.2011, 19:17 [ТС]
	LK, Увидим Спасибо Вам большое ))) 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	21.03.2011, 19:23
	Большое Вам, Vlad_IT, пожалуйста . 1

@Byurrer 2 / 2 / 0 Регистрация: 09.04.2011 Сообщений: 110
	07.05.2011, 21:51
	LK, подскажите пожалуйста на счет скроллбаров, у меня на форме 2 RichEdit'a и оба должны одновременно прокручиваться, так как в одном номера строк а в другом текст, как это можно осуществить? Заранее спасибо! 0

@Maluda 1280 / 598 / 116 Регистрация: 18.08.2009 Сообщений: 832
	07.05.2011, 22:35
	Vlad_IT, скачай TAdvMemo (TMS Components) и не мучайся! Там и нумерация, и подсветка синтаксиса, и подсказка кода, и ещё столько всего, что реализует все твои фантазии. 0