Положение каретки в поле ввода

@MrAndrey_ka · Регистрация: 13.05.2009

Версия платформы 8.2.17 конфигурация на управляемых формах

Есть форма с многострочным полем ввода(Формула) и кучей кнопочек под ней, нажимая на которые вставляется некий текст в текущую позицию каретки ввода в поле ввода

1C

нс = 0; нк = 0; кс = 0; кк = 0;
    Элементы.Формула.ПолучитьГраницыВыделения(нс, нк, кс, кк); 
    
    Результат = "";
    Данные = Формула;
    
    сч = 1;
    Пока сч < нс цикл
        результат = результат + СтрПолучитьСтроку(Данные, сч) + Символы.ПС;
        сч = сч + 1;
    КонецЦикла;
    
    Если нк > 1 Тогда
        результат = результат + Лев(СтрПолучитьСтроку(Данные, нс), нк-1);   
    КонецЕсли;
    
    результат = результат +  Реквизит(ЭтаФорма[Элемент.Имя], "ПредставлениеВФормуле");
    нс = СтрДлина(результат);
    
    результат = результат + Сред(СтрПолучитьСтроку(Данные, кс), кк);
    сч = кс + 1;
    нк = СтрЧислоСтрок(Данные);
    
    Пока сч <= нк Цикл
        результат = результат + Символы.ПС + СтрПолучитьСтроку(Данные, сч);
        сч = сч + 1;
    КонецЦикла;   
    
    Формула = результат;
    Элементы.Формула.УстановитьГраницыВыделения(нс, нс);

все работает нормально за исключением одного момента, после этого каретка перемещается в начало строки.
при этом каретка перемещается в начало уже после выхода с процедуры, я так понимаю что после того как я присваиваю Формула = результат; идет обновление поля ввода и уже в это время сбрасывается позиция каретки, как можно это обойти?

@duk337 · 29.07.2013, 15:49

по-моему никак. Только если right-arrow засовывать. Так для этого позицию надо знать

Добавлено через 58 секунд
хотя позиция известна...

@MrAndrey_ka · 29.07.2013, 16:26 **[ТС]**

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

right-arrow

а это что такое?

@Dethmontt · 29.07.2013, 17:56

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

Элементы.Формула.УстановитьГраницыВыделения(нс, нс);

Это так работает эта хрень... Попробуй вот так

1C

1	Элементы.Формула.УстановитьГраницыВыделения(нс, нс+1);

@duk337 · 29.07.2013, 20:41

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

а это что такое?

вот что мне поведал переводчик гугл: "стрелка вправо"... А то я уже было засомневался

@MrAndrey_ka · 30.07.2013, 16:47 **[ТС]**

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

Это так работает эта хрень... Попробуй вот так

1C

1	Элементы.Формула.УстановитьГраницыВыделения(нс, нс+1);

да что так, что так, все равно не выходит, дело в том что каретка передвигается в начало уже после того как срабатывает эта строка

duk337, а можно подробнее свои домыслы объяснить??

@Dethmontt · 30.07.2013, 18:33

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

да что так, что так, все равно не выходит, дело в том что каретка передвигается в начало уже после того как срабатывает эта строка

Проверял, отлично работает при условии если
- Начальная позиция <(меньше) Конечной позиции
и числа позиций не выходят за границы длинны текста

Добавлено через 1 минуту

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

и числа позиций не выходят за границы длинны текста

Т.е. число начальной позиции не может быть больше предпоследнего символа

@duk337 · 30.07.2013, 20:24

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

duk337, а можно подробнее свои домыслы объяснить??

эмуляция нажатия кнопки. Вариант с отчаяния

@Dethmontt · 30.07.2013, 23:32

В твоем случае работать будет вот так: (Но будет выделяться последняя буква)

1C

1	Элементы.Формула.УстановитьГраницыВыделения(нс-1, нс);

P.S. Как это побороть не прибегая к сторонним объектам и не добавляя пробел в конец строки - НЕЗНАЮ.
Но скажу спасибо если разберешься!

@MrAndrey_ka · 05.08.2013, 13:14 **[ТС]**

Проверял, отлично работает при условии если
- Начальная позиция <(меньше) Конечной позиции
и числа позиций не выходят за границы длинны текста

а проверь еще раз не забывая о том что перед установкой выделения строка элемента тоже меняется Формула = результат;.... если получится прошу выложить весь код!

@Dethmontt · 05.08.2013, 15:21

да пожалуйста

1C

&НаКлиенте
Процедура Команда1(Команда)
    
    Строкаформулы = "";
    ГСЧ = Новый ГенераторСлучайныхЧисел;
    
    Строкаформулы = Строкаформулы+ГСЧ.СлучайноеЧисло(1,9999999);
    Строкаформулы = Строкаформулы+"-"+ГСЧ.СлучайноеЧисло(1,9999999);
    
    Результат = Строкаформулы;
    ЭтаФорма.ТекущийЭлемент = Элементы.Результат;
    ЭтаФорма.ОбновитьОтображениеДанных();
    Элементы.Результат.УстановитьГраницыВыделения(СтрДлина(Результат),СтрДлина(Результат)+1);
    
    
КонецПроцедуры

@Dethmontt · 05.08.2013, 15:22

Сама обработка ВыделениеПоследнегоСимвола.rar

@Dethmontt · 05.08.2013, 15:26

И что бы поставить курсор в конец строки у меня получилось только добавляя пробел в конец строки. Если знаешь как по другому поделись =)))

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	05.08.2013, 13:14 [ТС]	10
	Проверял, отлично работает при условии если - Начальная позиция <(меньше) Конечной позиции и числа позиций не выходят за границы длинны текста а проверь еще раз не забывая о том что перед установкой выделения строка элемента тоже меняется Формула = результат;.... если получится прошу выложить весь код! 0

@Dethmontt Модератор 3709 / 2906 / 572 Регистрация: 10.03.2011 Сообщений: 11,442 Записей в блоге: 1
	05.08.2013, 15:22	12
	Сама обработка ВыделениеПоследнегоСимвола.rar 0

@duk337 2954 / 1766 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	29.07.2013, 15:49	2
	по-моему никак. Только если right-arrow засовывать. Так для этого позицию надо знать Добавлено через 58 секунд хотя позиция известна... 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	29.07.2013, 16:26 [ТС]	3
	Сообщение от duk337 right-arrow а это что такое? 0

@duk337 2954 / 1766 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	29.07.2013, 20:41	5
	Сообщение от MrAndrey_ka а это что такое? вот что мне поведал переводчик гугл: "стрелка вправо"... А то я уже было засомневался 0

@Dethmontt Модератор 3709 / 2906 / 572 Регистрация: 10.03.2011 Сообщений: 11,442 Записей в блоге: 1
	30.07.2013, 18:33	7
	Сообщение от MrAndrey_ka да что так, что так, все равно не выходит, дело в том что каретка передвигается в начало уже после того как срабатывает эта строка Проверял, отлично работает при условии если - Начальная позиция <(меньше) Конечной позиции и числа позиций не выходят за границы длинны текста Добавлено через 1 минуту Сообщение от Dethmontt и числа позиций не выходят за границы длинны текста Т.е. число начальной позиции не может быть больше предпоследнего символа 0

@duk337 2954 / 1766 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	30.07.2013, 20:24	8
	Сообщение от MrAndrey_ka duk337, а можно подробнее свои домыслы объяснить?? эмуляция нажатия кнопки. Вариант с отчаяния 0

@Dethmontt Модератор 3709 / 2906 / 572 Регистрация: 10.03.2011 Сообщений: 11,442 Записей в блоге: 1
	05.08.2013, 15:26	13
	И что бы поставить курсор в конец строки у меня получилось только добавляя пробел в конец строки. Если знаешь как по другому поделись =))) 0

Опции темы