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

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

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

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

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

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