paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 13:40:29 +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. // 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. // 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]=[]) if (aKey.Key2<>VK_UNKNOWN) and (aKey.Shift=[ssCtrl]) and (aKey.Shift2-[ssCtrl]=[])
and not ShiftConflict(aKey) then and not ShiftConflict(aKey) then begin
aKey.ShiftMask2:=[ssCtrl] aKey.ShiftMask2:=[ssCtrl];
aKey.Shift2:=[];
end
else else
aKey.ShiftMask2:=[]; aKey.ShiftMask2:=[];
end; end;