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

LCL: filter out F-keys without shift state only, issue #22057

Browse Source 
git-svn-id: trunk@37317 -
This commit is contained in:
juha 2012-05-18 15:41:47 +00:00
parent 9322aa8ab4
commit 98e6ec0f7e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

@ -6544,10 +6544,11 @@ begin
case Key of case Key of
// Ignore solo Shift or Control keys. Why they come here anyway? // Ignore solo Shift or Control keys. Why they come here anyway?
VK_SHIFT, VK_CONTROL, // VK_F2 is used later for editing the cell. VK_SHIFT, VK_CONTROL, VK_MENU, VK_HELP, VK_LWIN, VK_RWIN, VK_PRINT, VK_INSERT :
VK_F1, VK_F3, VK_F4, VK_F5, VK_F6, VK_F7, VK_F8, VK_F9, VK_F10, VK_F11, VK_F12,
VK_MENU, VK_HELP, VK_LWIN, VK_RWIN, VK_PRINT, VK_INSERT :
Key := 0; Key := 0;
VK_F1, VK_F3, VK_F4, VK_F5, VK_F6, VK_F7, VK_F8, VK_F9, VK_F10, VK_F11, VK_F12:
if Shift=[] then // VK_F2 is used later for editing the cell.
Key := 0;
VK_TAB: VK_TAB:
if goTabs in Options then begin if goTabs in Options then begin
if GetDeltaMoveNext(Sh, DeltaCol,DeltaRow) then begin if GetDeltaMoveNext(Sh, DeltaCol,DeltaRow) then begin