Главная страница
    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.053 c
2-1206211049
Viktor
2008-03-22 21:37
2008.04.20
Как создать отчёт из 2-х таблиц в Quick Reports?


15-1204541719
Kerk
2008-03-03 13:55
2008.04.20
Придумайте чего можно сделать на домене urlz.ru


2-1206039059
Riply
2008-03-20 21:50
2008.04.20
Работа с памятью. ( Выравнивание )


15-1204555457
@!!ex
2008-03-03 17:44
2008.04.20
Показать сообщение во время компиляции проекта.


4-1187171747
suspeded
2007-08-15 13:55
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский