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

IDE: fixed crash on keymapping grab for unknown keys

Browse Source 
git-svn-id: trunk@15855 -
This commit is contained in:
mattias 2008-07-24 10:48:30 +00:00
parent c9298fa17b
commit 23cd6854d5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/keymapping.pp
View File

@ -2199,7 +2199,8 @@ begin
,' Key=',Key,' Ctrl=',ssCtrl in Shift,' Shift=',ssShift in Shift
,' Alt=',ssAlt in Shift,' AsString=',KeyAndShiftStateToEditorKeyString(Key),
'');}
if not (Key in [VK_CONTROL, VK_LCONTROL, VK_RCONTROL,
if (GrabbingKey>0)
and not (Key in [VK_CONTROL, VK_LCONTROL, VK_RCONTROL,
VK_SHIFT, VK_LSHIFT, VK_RSHIFT,
VK_MENU, VK_LMENU, VK_RMENU]) then
begin