Текущий архив: 2008.04.20;
Скачать: 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 вся ветка
Текущий архив: 2008.04.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.022 c
