paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: gtk2: map GDK_KEY_ISO_Level3_Shift to VK_MODECHANGE

Browse Source 
git-svn-id: trunk@58228 -
This commit is contained in:
mattias 2018-06-11 14:39:50 +00:00
parent ce916d287c
commit efac35aafb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -2246,7 +2246,7 @@ begin
DebugLn(['[HandleGTKKeyUpDown] START ',DbgSName(TControl(AData)),
' _Type=',(AEvent^._Type),
' state=',(AEvent^.state),
' keyval=',(AEvent^.keyval),
' keyval=',(AEvent^.keyval),'=$',hexstr(AEvent^.keyval,4),
' hardware_keycode=',(AEvent^.hardware_keycode),
' length=',(AEvent^.length),
' _string="',dbgMemRange(PByte(AEvent^._string),AEvent^.length),'"',
@ -2879,7 +2879,9 @@ procedure InitKeyboardTables;
GDK_Key_Cancel: AVKey := VK_CANCEL;
GDK_Key_Help: AVKey := VK_HELP;
GDK_Key_Break: AVKey := VK_CANCEL;
GDK_Key_Mode_switch: AVKey := VK_MODECHANGE;
GDK_Key_Mode_switch,
GDK_KEY_ISO_Level3_Shift,
GDK_KEY_ISO_Level5_Shift: AVKey := VK_MODECHANGE;
GDK_Key_Caps_Lock: AVKey := VK_CAPITAL;
GDK_Key_Shift_L: AVKey := VK_SHIFT;
GDK_Key_Shift_R: