paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 13:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix 2 stage key-combos issue #0027992

Browse Source 
git-svn-id: trunk@49893 -
This commit is contained in:
martin 2015-09-29 12:29:20 +00:00
parent 801c0933d5
commit 337e3a4589
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/keymapping.pp
View File

@ -3537,8 +3537,10 @@ var
// Ignore the second Ctrl key in sequential combos unless both variations are defined.
// For example "Ctrl-X, Y" and "Ctrl-X, Ctrl-Y" are then treated the same.
if (aKey.Key2<>VK_UNKNOWN) and (aKey.Shift=[ssCtrl]) and (aKey.Shift2-[ssCtrl]=[])
and not ShiftConflict(aKey) then
aKey.ShiftMask2:=[ssCtrl]
and not ShiftConflict(aKey) then begin
aKey.ShiftMask2:=[ssCtrl];
aKey.Shift2:=[];
end
else
aKey.ShiftMask2:=[];
end;