paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Support function keys F1 .. F30. Issue #38842, patch by Anton Kavalenka.

Browse Source 
git-svn-id: trunk@65091 -
This commit is contained in:
juha 2021-05-07 09:07:11 +00:00
parent 8891a9d277
commit 2f5e5ca72a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk3/gtk3procs.pas
View File

@ -655,6 +655,8 @@ begin
GDK_KEY_Tab, GDK_KEY_3270_BackTab, GDK_KEY_ISO_Left_Tab: Result := VK_TAB;
GDK_KEY_Shift_L, GDK_KEY_Shift_R: Result := VK_SHIFT;
GDK_KEY_Control_L, GDK_KEY_Control_R: Result := VK_CONTROL;
GDK_KEY_F1 .. GDK_KEY_F30:
Result:= VK_F1 + (AValue - GDK_KEY_F1);
end;
end;