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

@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);
*/
//---------------------------------------------------------------------------

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

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

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

	Нумерация строк 19.03.2011, 14:46. Показов 8684. Ответов 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