paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +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 - ecIdePTmplEdOutNextCell and ecIdePTmplEdNextCell both map to ecSynPTmplEdNextCell
- which maps to "ecPluginFirst + n", as many others. - which maps to "ecPluginFirst + n", as many others.
But the IDE requires unique values. 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); KeyStrokesByCmds:=TAvgLvlTree.Create(@CompareCmd);
ToBeFreedKeys:=TObjectList.Create; ToBeFreedKeys:=TObjectList.Create;
@ -3501,7 +3501,7 @@ begin
for i:=ASynEditKeyStrokes.Count-1 downto 0 do begin for i:=ASynEditKeyStrokes.Count-1 downto 0 do begin
Key:=ASynEditKeyStrokes[i]; Key:=ASynEditKeyStrokes[i];
Node:=KeyStrokesByCmds.FindKey({%H-}Pointer(Key.Command), @CompareKeyCmd); 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); KeyList:=TKeyStrokeList(Node.Data);
if KeyList.Count < 3 then if KeyList.Count < 3 then
KeyList.Add(Key) KeyList.Add(Key)