paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 22:56:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed typos

Browse Source 
git-svn-id: trunk@41462 -
This commit is contained in:
mattias 2013-05-30 14:35:59 +00:00
parent 422e68c742
commit 378fa43c2d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/keymapping.pp
View File

@ -3490,7 +3490,7 @@ begin
- ecIdePTmplEdOutNextCell and ecIdePTmplEdNextCell both map to ecSynPTmplEdNextCell
- which maps to "ecPluginFirst + n", as many others.
But the IDE requires unique values.
The unique values in the plugin (+ KeyOffset) can not be used, a they are not at fixed numbers
The unique values in the plugin (+ KeyOffset) can not be used, as they are not at fixed numbers
*)
KeyStrokesByCmds:=TAvgLvlTree.Create(@CompareCmd);
ToBeFreedKeys:=TObjectList.Create;
@ -3501,7 +3501,7 @@ begin
for i:=ASynEditKeyStrokes.Count-1 downto 0 do begin
Key:=ASynEditKeyStrokes[i];
Node:=KeyStrokesByCmds.FindKey({%H-}Pointer(Key.Command), @CompareKeyCmd);
if Assigned(Node) then begin // Another key already defined for this command
if Assigned(Node) then begin // Another key is already defined for this command
KeyList:=TKeyStrokeList(Node.Data);
if KeyList.Count < 3 then
KeyList.Add(Key)