aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-07-11 22:44:50 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-07-11 22:44:50 +0000
commit1fac8d24a0b62ec7ee4ac128758015edd929033e (patch)
tree62a54ac883888230291bf2c6595bdbcf73c4ebee
parent3fdda014a70495b13bdda669af8d4880c999bb47 (diff)
downloadusdx-1fac8d24a0b62ec7ee4ac128758015edd929033e.tar.gz
usdx-1fac8d24a0b62ec7ee4ac128758015edd929033e.tar.xz
usdx-1fac8d24a0b62ec7ee4ac128758015edd929033e.zip
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
-rw-r--r--src/screens/UScreenEditSub.pas8
1 files changed, 4 insertions, 4 deletions
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