Commit d083c4de authored by Denis Budyak's avatar Denis Budyak

Кириллица работает в любой раскладке, остались сочетания Ctrl-буква, но

не все. Ctrl-f работает, Ctrl-Shift-O - не работает.
parent eeb9444b
......@@ -631,7 +631,7 @@ VAR
KernelLog.String("HandleKey finally..."); KernelLog.Ln; (* , ch, keysm="); KernelLog.Int(ORD(ch),10); KernelLog.Hex(msg.keysym,10); KernelLog.Bits(msg.flags,0,32); KernelLog.Ln; *)
Report(msg, SIGNED32(wParam));
ObrabotajjCifroBukvy(msg,SIGNED32(wParam));
IF (msg.keysym # 0) OR (msg.ch # 0X) THEN
......@@ -653,7 +653,8 @@ VAR
VAR keyCodesToLowerUpperCaseChars : keyCodesToLowerUpperCaseCharsType;
PROCEDURE Init_keyCodesToLowerUpperCaseChars;
BEGIN
keyCodesToLowerUpperCaseChars[192][1] := 126; (* knopka ` *)
keyCodesToLowerUpperCaseChars[192][0] := 96; (* knopka ` *)
keyCodesToLowerUpperCaseChars[192][1] := 126;
keyCodesToLowerUpperCaseChars[48][1] := 41; (* 030H - knopka 0 *)
keyCodesToLowerUpperCaseChars[50][1] := 64; (* knopka 2 *)
......@@ -665,9 +666,17 @@ VAR
keyCodesToLowerUpperCaseChars[56][1] := 42; (* knopka 8 *)
keyCodesToLowerUpperCaseChars[57][1] := 40; (* knopka 9*)
keyCodesToLowerUpperCaseChars[219][0] := 91; (* knopka ` *)
keyCodesToLowerUpperCaseChars[219][1] := 123;
keyCodesToLowerUpperCaseChars[221][0] := 93; (* knopka ` *)
keyCodesToLowerUpperCaseChars[221][1] := 125;
keyCodesToLowerUpperCaseChars[189][1] := 45; (* knopka - *)
keyCodesToLowerUpperCaseChars[187][1] := 61; (* knopka =*)
keyCodesToLowerUpperCaseChars[186][0] := 59; (* knopka : *)
keyCodesToLowerUpperCaseChars[186][1] := 58;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment