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

LCL: Prevent also Insert and PrintScreen keys from entering '?' to a cell

Browse Source 
git-svn-id: trunk@37309 -
This commit is contained in:
juha 2012-05-17 19:03:08 +00:00
parent 0f72da14a7
commit 43b55bf526
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -6540,10 +6540,10 @@ begin
Relaxed := not (goRowSelect in Options) or (goRelaxedRowSelect in Options); Relaxed := not (goRowSelect in Options) or (goRelaxedRowSelect in Options);
case Key of case Key of
// Ignore solo Shift or Control keys. Why they come here? // 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_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_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_MENU, VK_HELP, VK_LWIN, VK_RWIN, VK_PRINT, VK_INSERT :
Key := 0; Key := 0;
VK_TAB: VK_TAB:
if goTabs in Options then begin if goTabs in Options then begin