From 98e6ec0f7e545be9b929e04619b980f4ffe49b36 Mon Sep 17 00:00:00 2001 From: juha Date: Fri, 18 May 2012 15:41:47 +0000 Subject: [PATCH] LCL: filter out F-keys without shift state only, issue #22057 git-svn-id: trunk@37317 - --- lcl/grids.pas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lcl/grids.pas b/lcl/grids.pas index 564f0b9958..dfd4ffda2d 100644 --- a/lcl/grids.pas +++ b/lcl/grids.pas @@ -6544,10 +6544,11 @@ begin case Key of // 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_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 : + VK_SHIFT, VK_CONTROL, VK_MENU, VK_HELP, VK_LWIN, VK_RWIN, VK_PRINT, VK_INSERT : 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: if goTabs in Options then begin if GetDeltaMoveNext(Sh, DeltaCol,DeltaRow) then begin