• Registered: 2014-11-13
  • Posts: 325

Topic: Кодировка

Доброго всем дня!

Подскажите пож-ста, как при вводе данных в базу, при помещении курсора в определенное поле автоматически переключать нужную для этого, конкретного поля кодировку (RU/EN)? Можно ли скриптом это прописать?
Если нельзя для конкретного поля, то хотя бы - при начальной загрузке проекта? Например, у меня по умолчанию всегда EN стоит кодировка, загружаю проект, нужна RU - всегда забываю переключиться и начинаю печатать вместо русского, латиницей...

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Кодировка

Приветствую,

в последнюю бета версию (1.50) добавил функцию.
https://www.dropbox.com/s/0m799p8qxh5kb … 0.zip?dl=0


ChangeKeyboardLayout(LANG_RUSSIAN); 
ChangeKeyboardLayout(LANG_ENGLISH);

для переключения доступны и все остальные языки.

LANG_INVARIANT
LANG_AFRIKAANS
LANG_ALBANIAN
LANG_ARABIC
LANG_BASQUE
LANG_BELARUSIAN
LANG_BULGARIAN
LANG_CATALAN
LANG_CHINESE
LANG_CROATIAN
LANG_CZECH
LANG_DANISH
LANG_DUTCH
LANG_ENGLISH
LANG_ESTONIAN
LANG_FAEROESE
LANG_FARSI
LANG_FINNISH
LANG_FRENCH
LANG_GERMAN
LANG_GREEK
LANG_HEBREW
LANG_HUNGARIAN
LANG_ICELANDIC
LANG_INDONESIAN
LANG_ITALIAN
LANG_JAPANESE
LANG_KOREAN
LANG_LATVIAN
LANG_LITHUANIAN
LANG_NORWEGIAN
LANG_POLISH
LANG_PORTUGUESE
LANG_ROMANIAN
LANG_RUSSIAN
LANG_SERBIAN
LANG_SLOVAK
LANG_SLOVENIAN
LANG_SPANISH
LANG_SWEDISH
LANG_THAI
LANG_TURKISH
LANG_UKRAINIAN
LANG_VIETNAMESE
Dmitry.
  • Registered: 2014-11-13
  • Posts: 325

Re: Кодировка

Спасибо! Жаль, что в 1.46 скриптом нельзя...

  • Registered: 2015-10-12
  • Posts: 84

Re: Кодировка

Hi to everyone,

I still have'nt found a solution to my problem.
On a form I have one drop down list with items in english (FORD,RENAULT.....).
The other fields on the form are filled in Greek.
When I get to the drop down list I have to change the keyboard layout pressing Alt+Shift so I can select a value from the list. This is tiresome. Is there a way when entering the drop down list field the language to change automatically to english?

I have tried the above solutions but they do not work.

Thanks
Greece

  • Registered: 2014-08-02
  • Posts: 913

Re: Кодировка

Hello geochrist

Does this can help you ?

procedure Form1_Edit1_OnEnter (Sender: string);
begin
    ChangeKeyboardLayout(LANG_GREEK); 
end;


or (with a button

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    ChangeKeyboardLayout(LANG_GREEK);
end;

JB