Автор | Сообщение |
|
| постоянный участник
|
Пост N: 6875
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.01.21 16:55. Заголовок: Интерфейс с украинским языком ?
Объявился у меня старый заказчик из Киева, у него Win10 с тремя языками. Нужно ему сделать печать на украинском в ФастРепорте. Вопрос такой - как для имеющей сейчас программы МиниГуи добавить украинский режим сохранения ini-файлов ? И как переключать принудительно на украинский язык отдельное окно для настроек текстовых данных ? Типа банк, расчётный счёт и другие различные сообщения. Заранее СПАСИБО за ответ.
|
|
|
Ответов - 66
, стр:
1
2
3
4
All
[только новые]
|
|
|
| постоянный участник
|
Пост N: 7185
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.12.21 17:31. Заголовок: Если основной текст ..
Если основной текст программы в RU1251, то языковой модуль для этой программы (отдельный prg) делаем его в кодировке utf-8: IF cLang == "RU1251" xRet := { "Удалить последний фильтр столбца",; "Удалить ВСЕ фильтры по столбцам" } ELSEIF cLang == "UA1251" xRet := { "Видалити останній фільтр стовпця",; "Видалити ВСІ фільтри по стовпцях" } ELSEIF cLang == "KZWIN" xRet := {"Соңғы баған сүзгісін жою" ,; "БАРЛЫҚ сүзгілерді бағандар бойынша жою"} .... For i :=1 To Len(xRet) xRet := hb_Utf8ToStr(xRet , "RU1251") Next .... Return xRet И в основной программе размещаем эти текстовые константы. Так будет верно ?
|
|
|
|
| постоянный участник
|
Пост N: 4013
Зарегистрирован: 17.02.12
|
|
Отправлено: 18.12.21 17:39. Заголовок: Andrey пишет Так буд..
Andrey пишет Попробуй, это же не долго, у тебя все под рукой Возможно команды из текста prg utf8 убери в осн. модуль и правильно напиши For i :=1 To Len(xRet) xRet := hb_Utf8ToStr(xRet , "RU1251") Next PS что за cdp будет стоять ?
|
|
|
|
| постоянный участник
|
Пост N: 7186
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.12.21 19:16. Заголовок: SergKis пишет: что ..
SergKis пишет: цитата: | что за cdp будет стоять ? |
| Да это сайт глюкнул. Писал так xRet [ nJ ] := hb_Utf8ToStr( xRet [ nJ ] , "RU1251")
|
|
|
|
| постоянный участник
|
Пост N: 4014
Зарегистрирован: 17.02.12
|
|
Отправлено: 18.12.21 19:22. Заголовок: Andrey SergKis пише..
Andrey SergKis пишет: цитата: | что за cdp будет стоять ? |
| Ты переводишь все в RU1251, а какая cdp будет уставлена для работы в момент работы с текстом ?
|
|
|
|
| постоянный участник
|
Пост N: 7187
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.12.21 20:24. Заголовок: SergKis пишет: Ты п..
SergKis пишет: цитата: | Ты переводишь все в RU1251, а какая cdp будет уставлена для работы в момент работы с текстом ? |
| Так теrст проги установлен в 1251, значит все значения на форме будут в 1251. Это я под себя перевожу под 1251. А для других надо бы тогда по другому: FUNCTION myLangeRes(..,cPrgCP) LOCAL xRet, cLang := hb_CdpSelect() ... xRet [ nJ ] := hb_Utf8ToStr( xRet [ nJ ] , cPrgCP)
|
|
|
|
| постоянный участник
|
Пост N: 7628
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.12.23 18:28. Заголовок: REQUEST HB_CODEPAGE_..
REQUEST HB_CODEPAGE_UA1251, HB_CODEPAGE_UA866 // украинский язык REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866 // русский язык REQUEST HB_LANG_BEWIN // белорусский язык А как работать в МиниГуи с кодовой страницей LANG_BEWIN ? В Харборе есть кодовая страница LANG_BEWIN ?
|
|
|
Ответов - 66
, стр:
1
2
3
4
All
[только новые]
|
|