Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.04.20;
Скачать: [xml.tar.bz2];

Вниз

Определить, что текущая раскладка Ru или не Ru   Найти похожие ветки 

 
@!!ex ©   (2008-03-26 08:19) [0]

Как?


 
TUser ©   (2008-03-26 08:31) [1]

GetKeywordLayout или что-то вроде того.


 
@!!ex ©   (2008-03-26 09:20) [2]

Ок. Спасибо!


 
kyn66   (2008-03-26 10:52) [3]

Я к примеру при изменении раскладки клавы меняю значок вот так:

procedure TMainFrm.Timer1Timer(Sender: TObject);
Const
 re : array[Boolean] of byte = (0, 1);
var
 Layout: array [0.. KL_NAMELENGTH] of char;
begin
 GetKeyboardLayoutName(Layout);
 LayoutImage1.Picture.Bitmap := PicClip2.GraphicCell[re[Layout = "00000409"]];
 LayoutImage2.Picture.Bitmap := PicClip2.GraphicCell[re[Layout = "00000409"]];
 LayoutImage3.Picture.Bitmap := PicClip2.GraphicCell[re[Layout = "00000409"]];
end;



 
tesseract ©   (2008-03-26 12:31) [4]


> Я к примеру при изменении раскладки клавы меняю значок вот
> так:


Редкий изврат.  Надо просто обрабатывать WM_INPUTLANGCHANGE


> Ок. Спасибо!


if GetKeyboardLayoutName= "00000419" then result:=true;


 
han_malign ©   (2008-03-26 13:25) [5]


> Редкий изврат.  Надо просто обрабатывать WM_INPUTLANGCHANGE
>

- а что в Висте это уже починили?
А то мне пришлось msctf пользовать - ITfLanguageProfileNotifySink на ITfInputProcessorProfiles/ITfSource вешать...


 
tesseract ©   (2008-03-26 13:43) [6]


> - а что в Висте это уже починили?


Висту надо сносить :-). Не в курсе, не бодался с нею.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.04.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.041 c
3-1195702264
Петро
2007-11-22 06:31
2008.04.20
Универсальный доступ к СУБД


2-1206565281
MSD
2008-03-27 00:01
2008.04.20
вопрос Edit


6-1185196401
Newfrost
2007-07-23 17:13
2008.04.20
idHTTP и проблемы с кодировкой


2-1206527869
Gavrila
2008-03-26 13:37
2008.04.20
PopupMenu - определить какой Item вызвал событие OnClik


8-1178470753
ElenaS
2007-05-06 20:59
2008.04.20
открытые проекты звуковых редакторов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский