paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 06:31:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* synchronize with ptc trunk from sourceforge; adds support for the numpad 5

Browse Source 
key in ptccrt and several keys under windows have been changed to produce
  the same key codes as under x11

git-svn-id: trunk@36556 -
This commit is contained in:
nickysn 2017-06-20 22:48:59 +00:00
parent a217c4c7d0
commit 9f5011af30
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/graph/src/ptcgraph/ptccrt.pp
View File

@ -419,6 +419,10 @@ begin
KeyBufAdd(#0#78) KeyBufAdd(#0#78)
else if KeyMode = kmGO32 then else if KeyMode = kmGO32 then
KeyBufAdd(#0#144); KeyBufAdd(#0#144);
PTCKEY_CLEAR,
PTCKEY_NUMPAD5:
if KeyMode in [kmGO32, kmFPWINCRT] then
KeyBufAdd(#0#143);
end; end;
end end
else else
@ -493,6 +497,9 @@ begin
PTCKEY_END: KeyBufAdd(#0#79); PTCKEY_END: KeyBufAdd(#0#79);
PTCKEY_PAGEUP: KeyBufAdd(#0#73); PTCKEY_PAGEUP: KeyBufAdd(#0#73);
PTCKEY_PAGEDOWN: KeyBufAdd(#0#81); PTCKEY_PAGEDOWN: KeyBufAdd(#0#81);
PTCKEY_CLEAR:
if KeyMode in [kmGO32, kmFPWINCRT] then
KeyBufAdd(#0#76);
else else
if (KeyEv.Unicode >= 32) and (KeyEv.Unicode <= 127) then if (KeyEv.Unicode >= 32) and (KeyEv.Unicode <= 127) then
KeyBufAdd(Chr(KeyEv.Unicode)); KeyBufAdd(Chr(KeyEv.Unicode));

12
packages/ptc/src/win32/base/win32kbd.inc
View File

@ -223,6 +223,18 @@ begin
KeyCode := PTCKEY_COMMA; KeyCode := PTCKEY_COMMA;
if wParam = VK_OEM_PERIOD then if wParam = VK_OEM_PERIOD then
KeyCode := PTCKEY_PERIOD; KeyCode := PTCKEY_PERIOD;
if wParam = VK_OEM_PLUS then
KeyCode := PTCKEY_EQUALS;
if wParam = VK_OEM_4 then
KeyCode := PTCKEY_OPENBRACKET;
if wParam = VK_OEM_6 then
KeyCode := PTCKEY_CLOSEBRACKET;
if wParam = VK_OEM_5 then
KeyCode := PTCKEY_BACKSLASH;
if wParam = VK_OEM_1 then
KeyCode := PTCKEY_SEMICOLON;
if wParam = VK_OEM_2 then
KeyCode := PTCKEY_SLASH;
{ handle key repeat count } { handle key repeat count }
for i := 1 to lParam and $FFFF do for i := 1 to lParam and $FFFF do