From 1fac8d24a0b62ec7ee4ac128758015edd929033e Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Sun, 11 Jul 2010 22:44:50 +0000 Subject: enable editor keys for macosx changing start and end of notes. CTRL does not work. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2577 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/screens/UScreenEditSub.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/screens/UScreenEditSub.pas') diff --git a/src/screens/UScreenEditSub.pas b/src/screens/UScreenEditSub.pas index ee811a6a..fb3f04ce 100644 --- a/src/screens/UScreenEditSub.pas +++ b/src/screens/UScreenEditSub.pas @@ -560,7 +560,7 @@ begin end; // ctrl + right - if SDL_ModState = KMOD_LCTRL then + if (SDL_ModState = KMOD_LCTRL) or (SDL_ModState = KMOD_LCTRL + KMOD_LSHIFT) then begin if Lines[0].Line[Lines[0].Current].Note[CurrentNote].Length > 1 then begin @@ -586,7 +586,7 @@ begin end; // alt + right - if SDL_ModState = KMOD_LALT then + if (SDL_ModState = KMOD_LALT) or (SDL_ModState = KMOD_LALT + KMOD_LSHIFT) then begin Inc(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Length); if CurrentNote = Lines[0].Line[Lines[0].Current].HighNote then @@ -615,7 +615,7 @@ begin end; // ctrl + left - if SDL_ModState = KMOD_LCTRL then + if (SDL_ModState = KMOD_LCTRL) or (SDL_ModState = KMOD_LCTRL + KMOD_LSHIFT) then begin Dec(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Start); Inc(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Length); @@ -642,7 +642,7 @@ begin end; // alt + left - if SDL_ModState = KMOD_LALT then + if (SDL_ModState = KMOD_LALT) or (SDL_ModState = KMOD_LALT + KMOD_LSHIFT) then begin if Lines[0].Line[Lines[0].Current].Note[CurrentNote].Length > 1 then begin -- cgit v1.2.3