Замена символа при вводе

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
morkovin
Ветеран
Сообщения: 908
Зарегистрирован: 20 Июль 2005, 14:53
Откуда: Volgograd, Russia
Благодарил (а): 2 раза
Поблагодарили: 3 раза
Контактная информация:

Замена символа при вводе

Сообщение morkovin »

Из-за какой-то кривизны в Win10 с раскладкой клавиатуры юзеры не могут ввести символ "@" в поле емайл. Выводится " (двойная кавычка). Язык ввода я переключаю на Latin. ес-сно. После некоторой долбёжки по Shift+Alt и Shift+Ctrl иногда удаётся переключиться на правильную раскладку. Задолбало уже. Хочется сделать автоматическую замену и забыть об этом кошмаре.
З.Ы, Форум перечитал. Но ничего подходящего не нашел.
WBR, morkovin
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7322
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Замена символа при вводе

Сообщение Игорь Столяров »

Ну можно попробовать также, как работает шаблон с подменой десятичной точки …
- Вешаем на поле ALERT для двойной кавычки;
- Перехватываем по PreAlertKey и если раскладка английская - заменяем на "@"

Код: Выделить всё

  ! ВАРИАНТ КОДА ДЛЯ ПОДМЕНЫ ДЕСЯТИЧНОЙ ТОЧКИ - ЗАМЕНИТЬ СИМВОЛЫ НА НУЖНЫЕ !!! 
  If KeyCode() = DecimalKey
    If GetKeyboardLayoutNameA(Loc:TempString).
    if Loc:TempString = '00000419'   ! Если включена русская раскладка
       PressKey(191)
    else
       Press('.')
    end
  end
За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Замена символа при вводе

Сообщение kreator »

Если это Кларион и поле Entry, то в свойствах поля надо выставить IMM и отслеживать ввод по EVENT:NewSelection. С текстовым полем так не получится. В таймере надо замену делать.
We are hard at work… for you. :)
Аватара пользователя
morkovin
Ветеран
Сообщения: 908
Зарегистрирован: 20 Июль 2005, 14:53
Откуда: Volgograd, Russia
Благодарил (а): 2 раза
Поблагодарили: 3 раза
Контактная информация:

Замена символа при вводе

Сообщение morkovin »

kreator писал(а): 18 Июнь 2020, 9:40 Если это Кларион и поле Entry, то в свойствах поля надо выставить IMM и отслеживать ввод по EVENT:NewSelection. С текстовым полем так не получится. В таймере надо замену делать.
Спасибо!!! Вот так сделал на это событие :

Код: Выделить всё

UPDATE(?Loc:Email)
IF INSTRING('"',CLIP(Loc:Email),1,1) >0 THEN
    xReplace(Loc:Email,'"','@')                             !from xFunction set
    CHANGE(?Loc:Email,Loc:Email)
END
Проверил. Работает!
З.Ы. Это надо в FAQ!
WBR, morkovin
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Замена символа при вводе

Сообщение kreator »

Во-первых, instring может быть лишнее, достаточно prop:SelStart смотреть. Во-вторых, что тут такого, что нужно в FAQ?
We are hard at work… for you. :)
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Замена символа при вводе

Сообщение kreator »

Я бы вот так сделал:

Код: Выделить всё

update(?)
if LOC:TestString[?LOC:TestString{prop:SelStart}-1]='"'
  LOC:TestString[?LOC:TestString{prop:SelStart}-1] = '@'
  change(?LOC:TestString, LOC:TestString)
end
We are hard at work… for you. :)
VWV
Бывалый
Сообщения: 60
Зарегистрирован: 12 Июнь 2015, 22:59
Откуда: Новороссийск
Благодарил (а): 4 раза
Поблагодарили: 1 раз

Замена символа при вводе

Сообщение VWV »

Подскажите, как в EIP подменить десятичный разделитель на точку для Decimalkey, когда включена русская раскладка
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7322
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Замена символа при вводе

Сообщение Игорь Столяров »

VWV писал(а): 16 Июнь 2022, 17:21 как в EIP подменить десятичный разделитель на точку для Decimalkey
Абсолютно точно также как и для любого другого поля ввода.

1. Включаем на нужных EIP полях ALERT по прессу DecimalKey

Код: Выделить всё

EditInPlace::XYZ:MyField.Init PROCEDURE(UNSIGNED FieldNumber,UNSIGNED ListBox,*? UseVar)
...
  PARENT.Init(FieldNumber,ListBox,UseVar)
...
  Self.FEQ{Prop:Alrt,250} = DecimalKey
2. Обрабатываем нажатие DecimalKey на EIP поле ввода

Код: Выделить всё

BRW1::EIPManager.TakeFieldEvent PROCEDURE
Loc:TempString  CString(21)
...
  ReturnValue = PARENT.TakeFieldEvent()
...  
    If Event() = Event:PreAlertKey  
       If KeyCode() = DecimalKey
          If GetKeyboardLayoutNameA(Loc:TempString).
          If Loc:TempString = '00000419'   ! Если включена русская раскладка
             PressKey(191)
          else
             Press('.')
          end
       end
    end
  ! End of "Browse EIP Manager Method Executable Code Section"
  RETURN ReturnValue
3. Всё ! :)
За теми кто отстал - не возвращаться. (С) Кодекс
VWV
Бывалый
Сообщения: 60
Зарегистрирован: 12 Июнь 2015, 22:59
Откуда: Новороссийск
Благодарил (а): 4 раза
Поблагодарили: 1 раз

Замена символа при вводе

Сообщение VWV »

Спасибо!
Ответить