Адаптируя РМК Розницы под "тачи" столкнулся с проблемой отсутствия нормальной символьно-цифровой экранной клавиатуры в конфигурации. В общем-то и не ожидал ее там найти. Попытался использовать Osk (стандартная клавиатура Windows), VK (бесплатная клавиатура). Можно использовать с большой натяжкой. Требуется указывать фокус на элемент ввода. И самое неприятное - их нельзя программно закрыть. По крайней мере ссылок на команды управления ими я не нашел.
Принял трудное решение написать свою "Экранку". Предлагаю вашему вниманию клавиатуру с открытым кодом для управляемых форм.
Обработка может открываться как файл и может быть подключена как дополнительная.
В комплекте также представлена обработка с примером вызова клавиатуры с обработкой оповещения нажатия на клавиши.
Клавиатура возвращает события: "Enter" и "Текст".
Если событие "Текст", то в параметре обработки оповещения содержится весь текст, набираемый на клавиатуре (не отдельный символ, а именно весь текст). Это обусловлено тем, что мы не имеем доступа к редактируемому тексту со стороны клавиатуры, но хотим использовать спец символы табуляция и "забой", передача которых в основную форму вызовет необходимость писать дополнительную обработку этих действий, что нам не хочется делать, ибо лень.
Событие "Enter" также вернет весь текст. По получению данного события можно программно закрыть клавиатуру (на усмотрение программиста) и выполнить требуемые действия с полученным текстом. По событию "Enter" буфер текста на стороне клавиатуры обнуляется.
Пример обработки оповещения:
//Оповещение срабатывает по нажатию клавиш во внешней обработке
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если Источник = "Виртуальная клавиатура" Тогда
Если ИмяСобытия = "Текст" Тогда
ТекстоваяСтрока = Параметр.Текст;
ИначеЕсли ИмяСобытия = "Enter" Тогда
ТекстоваяСтрокаПриИзменении(Неопределено);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Пример открытия клавиатуры:
//Вызов клавиатуры
&НаКлиенте
Процедура Клавиатура(Команда)
Попытка
//Если подключена как внешняя обработка
ОткрытьФорму("ВнешняяОбработка.ВиртуальнаяКлавиатура.Форма.Форма");
Исключение
//Откроем как файл.
//Помещаем обработку во временном хранилище
АдресХранилища = "";
Результат = ПоместитьФайл(АдресХранилища, ПутьКФайлуОбработки, , Ложь);
ИмяОбработки = ПодключитьВнешнююОбработку(АдресХранилища);
// Откроем форму подключенной внешней обработки
ОткрытьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма");
КонецПопытки;
КонецПроцедуры
&НаСервере
Функция ПодключитьВнешнююОбработку(АдресХранилища)
Возврат ВнешниеОбработки.Подключить(АдресХранилища);
КонецФункции
Тестировалось на платформе 8.3.13. Работает на любых конфигурациях на управляемых формах.
Файлы в архиве:
ВиртуальнаяКлавиатура.epf - основной файл. Обработка "Виртуальная клавиатура".
ВызовКлавиатуры.epf - пример вызова виртуальной клавиатуры.
Вступайте в нашу телеграмм-группу Инфостарт
