| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

@!!ex ©   (2008-03-26 08:19:00) 

Как?

---

tesseract   (2008-03-26 13:43:00) [1]

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


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

---

han_malign   (2008-03-26 13:25:00) [2]

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

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

---

tesseract   (2008-03-26 12:31:00) [3]

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


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


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


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

---

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

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

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;



---

@!!ex   (2008-03-26 09:20:00) [5]

Ок. Спасибо!

---

TUser   (2008-03-26 08:31:00) [6]

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

---

Наверх