Скачать: CL | DM;

Определить, что текущая раскладка 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c