Получение номера строки и количество символов в строке также как в Notepad++

@Alexandr_7 · Регистрация: 29.12.2015

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

Здравствуйте. Подскажите событие SynEdit получение номера строки и количество символов в строке чтобы получилось также как это сделано в Notepad++
Пока что я использую SynEdit1Change но оно срабатывает не всегда. Событие которое бы срабатывало каждый раз при смене каретки чет не нашел.

@Joy · 28.09.2018, 09:21

Onclick, onkeyup пробовали?

@volvo · 28.09.2018, 09:32

У SynEdit-а есть событие OnProcessCommand, которое срабатывает на каждый чих, не надо обрабатывать несколько событий, связанных с клавиатурой/мышью отдельно.

@Alexandr_7 · 28.09.2018, 11:15 **[ТС]**

А может ктодать ссылдку на описания параметров события OnProcessCommand
Мне его нужно в кое каких местах программно вызвать.ю Или для этогго достаточно кое что другое сделать

@volvo · 28.09.2018, 11:17

Вот его вызывать вручную точно не нужно. Проблем не оберешься. Что именно хочется сделать, для чего ты планировал вызывать обработчик OnProcessCommand?

@Alexandr_7 · 28.09.2018, 14:33 **[ТС]**

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

Вот его вызывать вручную точно не нужно. Проблем не оберешься. Что именно хочется сделать, для чего ты планировал вызывать обработчик OnProcessCommand?

Короче нужно выполнять этот код:

Delphi

CountChInScript := 0;
  CountScript := 0;
  StatusBar1.Panels.Items[0].Text := 'Sel Ln: ' + IntToStr(sRMMVTEdit.CaretY);
  StatusBar1.Panels.Items[1].Text := 'F.Col: ' + IntToStr(UTF8Length(sRMMVTEdit.Lines[sRMMVTEdit.CaretY - 1]));
  if UTF8Length(sRMMVTEdit.Text) > 0 then
  begin
    str := sRMMVTEdit.Lines[sRMMVTEdit.CaretY - 1];
    StatusBar1.Panels.Items[2].Text := 'Col Text: ' + IntToStr(GetCountChInTextAndInScript(str, CountChInScript, CountScript));
  end else
    StatusBar1.Panels.Items[2].Text := 'Col Text:  0';
 
  StatusBar1.Panels.Items[3].Text := 'Col Script: ' + IntToStr(CountScript);
 
  if chbParsingGivenFace.Checked then
    sRMMVTEdit.RightEdge := (CountChInScript + 40)
  else
    sRMMVTEdit.RightEdge := (CountChInScript + 50);

При каждом изменении SynEdit точнее при изменении текста или позиции каретки
Но также есть CheckBox - chbParsingGivenFace
Так что при изменении chbParsingGivenFace данный код тоже должен срабатывать и при старте программы
Впрочем я думаю вынести этот код в отдельный метод и его вызывать когда нужно.

Добавлено через 2 часа 57 минут
OnProcessCommand не подходит. Ибо срабатывает до внесеных изменений а не после.
Например нажимаю Enter для добавления новой строки и в тоге вот это

Delphi

1	StatusBar1.Panels.Items[0].Text := 'Sel Ln: ' + IntToStr(sRMMVTEdit.CaretY);

Возвращает предыдущую строку.
А мне же нужно чтобы действовал также как OnChange
Только чтобы после смены каретки например после переходами на строки событие тоже срабатывало. Если короче то как и в Notepad это сделано только кроссплатформенный способ.

Добавлено через 4 минуты
К тому же если менять положение каретки мышкой то событие OnProcessCommand не срабатывает
Так что тут походу собственное событие прийдется писать на отлов изменений x и y каретки.
В принципе при написании текста каретка тоже меняется.

@volvo · 28.09.2018, 15:56

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

Так что тут походу собственное событие прийдется писать на отлов изменений x и y каретки

Тебе бы исходники компонента почитать, там событий больше, чем ты себе представить можешь. Скажем, OnStatusChange:

Pascal

procedure TForm1.SynEdit1StatusChange(Sender: TObject;
  Changes: TSynStatusChanges);
begin
  StatusBar1.Panels.Items[0].Text := 'Sel Ln: ' + IntToStr((Sender as TSynEdit).CaretY);
end;

отображает изменения и при тыке мышью, и при перемешении каретки с клавиатуры, и при печати текста, как хочешь...

@Alexandr_7 · 28.09.2018, 17:32 **[ТС]**

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

Тебе бы исходники компонента почитать, там событий больше, чем ты себе представить можешь. Скажем, OnStatusChange:

А есть на русском вики по компоненту?

@Alexandr_7 46 / 20 / 5 Регистрация: 29.12.2015 Сообщений: 1,863
		1
	Получение номера строки и количество символов в строке также как в Notepad++ 27.09.2018, 11:45. Показов 4047. Ответов 7 Метки нет (Все метки) Здравствуйте. Подскажите событие SynEdit получение номера строки и количество символов в строке чтобы получилось также как это сделано в Notepad++ Пока что я использую SynEdit1Change но оно срабатывает не всегда. Событие которое бы срабатывало каждый раз при смене каретки чет не нашел. 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	28.09.2018, 09:21	2
	Onclick, onkeyup пробовали? 0

@volvo Супер-модератор 32970 / 21283 / 8173 Регистрация: 22.10.2011 Сообщений: 36,556 Записей в блоге: 8
	28.09.2018, 09:32	3
	У SynEdit-а есть событие OnProcessCommand, которое срабатывает на каждый чих, не надо обрабатывать несколько событий, связанных с клавиатурой/мышью отдельно. 1

@Alexandr_7 46 / 20 / 5 Регистрация: 29.12.2015 Сообщений: 1,863
	28.09.2018, 11:15 [ТС]	4
	А может ктодать ссылдку на описания параметров события OnProcessCommand Мне его нужно в кое каких местах программно вызвать.ю Или для этогго достаточно кое что другое сделать 0

@volvo Супер-модератор 32970 / 21283 / 8173 Регистрация: 22.10.2011 Сообщений: 36,556 Записей в блоге: 8
	28.09.2018, 11:17	5
	Вот его вызывать вручную точно не нужно. Проблем не оберешься. Что именно хочется сделать, для чего ты планировал вызывать обработчик OnProcessCommand? 0

@Alexandr_7 46 / 20 / 5 Регистрация: 29.12.2015 Сообщений: 1,863
	28.09.2018, 17:32 [ТС]	8
	Сообщение от volvo Тебе бы исходники компонента почитать, там событий больше, чем ты себе представить можешь. Скажем, OnStatusChange: А есть на русском вики по компоненту? 0

Получение номера строки и количество символов в строке также как в Notepad++

Решение