paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit/KeyMapping: Fix revision 18909 #d84d274464 / KeyBindings => The fix was to eager, and removed some valid Bindings

Browse Source 
git-svn-id: trunk@18911 -
This commit is contained in:
martin 2009-03-07 14:32:54 +00:00
parent ed7b49c4d1
commit f5095255dc
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/keymapping.pp
View File

@ -2741,7 +2741,9 @@ begin
Key.Shift2:=CurRelation.ShortcutB.Shift2; Key.Shift2:=CurRelation.ShortcutB.Shift2;
end; end;
inc(KeyCnt); inc(KeyCnt);
end else begin end
else
if MaxKeyCnt > 0 then begin
// Key with a different ecCommand => Remove if it has a conflicting keystroke(s) // Key with a different ecCommand => Remove if it has a conflicting keystroke(s)
if ( (CurRelation.ShortcutA.Key1 <> VK_UNKNOWN) and if ( (CurRelation.ShortcutA.Key1 <> VK_UNKNOWN) and
(Key.Key = CurRelation.ShortcutA.Key1) and (Key.Key = CurRelation.ShortcutA.Key1) and