paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 19:43:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

Restates the hability to move to the end of line with Meta+arrows in Mac OS X Lazarus scheme. Tryed to prevent moving to end of file with Shift+End, but it doesn't seam to work.

Browse Source 
git-svn-id: trunk@16516 -
This commit is contained in:
sekelsenmat 2008-09-10 01:27:59 +00:00
parent c9143f45a9
commit a62e98a966
1 changed files with 6 additions and 2 deletions

8
ide/keymapping.pp
View File

@ -1367,10 +1367,14 @@ begin
{ Now override some entries }
case Command of
// moving
ecLineStart: SetResult(VK_HOME, [],VK_UNKNOWN,[]);
ecLineEnd: SetResult(VK_END, [],VK_UNKNOWN,[]);
ecLineStart: SetResult(VK_HOME, [],VK_LEFT,[ssMeta]);
ecLineEnd: SetResult(VK_END, [],VK_RIGHT,[ssMeta]);
ecEditorTop: SetResult(VK_UP,[ssMeta],VK_UNKNOWN,[]);
ecEditorBottom: SetResult(VK_DOWN,[ssMeta],VK_UNKNOWN,[]);
// selection
ecSelEditorTop: SetResult(VK_HOME, [ssShift,ssCtrl],VK_UNKNOWN,[]);
ecSelEditorBottom: SetResult(VK_END, [ssShift,ssCtrl],VK_UNKNOWN,[]);
end;
end;