Модератор: Дед Пахом
Код: Выделить всё
PROGRAM
MAP
convert2(string str, byte direction),string
END
CODE
message(convert2('Ghbvth yf heccrjv zpsrt фтв щт Утпдшыр!', 3))
convert2 procedure(string str, byte direction)!,string
str1 string('йцукенгшщзхъфывапролджэячсмитьбюё')
str2 string('qwertyuiop[]asdfghjkl;''zxcvbnm,.`')
c long
l long
p long
code
l = len(clip(str))
loop c = 1 to l
case direction
! russian to english = 1
of 1
p = instring(lower(str[c]),str1,1,1)
if p
if str[c] = lower(str[c])
str[c] = str2[p]
else
str[c] = upper(str2[p])
end
end
! english to russian = 2
of 2
p = instring(lower(str[c]),str2,1,1)
if p
if str[c] = lower(str[c])
str[c] = str1[p]
else
str[c] = upper(str1[p])
end
end
! toggle language = 3
of 3
p = instring(lower(str[c]),str1,1,1)
if p
if str[c] = lower(str[c])
str[c] = str2[p]
else
str[c] = upper(str2[p])
end
else
p = instring(lower(str[c]),str2,1,1)
if p
if str[c] = lower(str[c])
str[c] = str1[p]
else
str[c] = upper(str1[p])
end
end
end
end
end
return str
Круто ! Но это ведь как-то надо обновлять при переключении раскладки, в т.ч. и в неактивных окнах.
Вы это себе тут нафантазировалиИгорь Столяров писал(а): 28 Июнь 2018, 10:44Но это ведь как-то надо обновлять при переключении раскладки, в т.ч. и в неактивных окнах.
Спасибо, всё работает, но потребовался небольшой допил.
глянь сюда viewtopic.php?f=1&t=3944 ммм --AndreyH писал(а): 13 Сентябрь 2018, 20:45А как отобразить русский текст в списке темплейтов или списке процедур app-шника для Clarion10. Например, при редактировании темплейта нормальный русский заголовок, а в списке темплейтов - кракозябры.
Заранее благодарю.
Кракозябры в IDE
clarion.envAndreyH писал(а): 13 Сентябрь 2018, 20:45А как отобразить русский текст в списке темплейтов или списке процедур app-шника для Clarion10. Например, при редактировании темплейта нормальный русский заголовок, а в списке темплейтов - кракозябры. В Tools-Options все посмотрел, но нужной настройки не нашел.
Заранее благодарю.
