aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens')
-rw-r--r--Game/Code/Screens/UScreenEditSub.pas41
1 files changed, 18 insertions, 23 deletions
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 8b3d3117..e41aba86 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -929,8 +929,6 @@ begin
SDLK_PERIOD:
begin
// moves text to right in current sentence
- if AktSong.isDuet then
- Exit;
MoveTextToRight;
end;
@@ -1010,9 +1008,6 @@ begin
// alt + ctrl + shift + right = move all from cursor to right
if SDL_ModState = KMOD_LALT + KMOD_LCTRL + KMOD_LSHIFT then
begin
- if AktSong.isDuet then
- Exit;
-
MoveAllToEnd(1);
FixTimings;
end;
@@ -1095,8 +1090,6 @@ begin
// alt + ctrl + shift + right = move all from cursor to left
if SDL_ModState = KMOD_LALT + KMOD_LCTRL + KMOD_LSHIFT then
begin
- if AktSong.isDuet then
- Exit;
MoveAllToEnd(-1);
FixTimings;
end;
@@ -1985,6 +1978,7 @@ begin
//SelectPrevNote();
//SelectNextNote();
Czesci[CP].Czesc[Czesci[CP].Akt].Nuta[AktNuta[CP]].Color := 2;
+ EditorLyric[CP].AddCzesc(CP, Czesci[CP].Akt);
end;
procedure TScreenEditSub.TransposeNote(Transpose: integer);
@@ -2021,26 +2015,26 @@ var
N: integer;
NStart: integer;
begin
- for C := Czesci[0].Akt to Czesci[0].High do
+ for C := Czesci[CP].Akt to Czesci[CP].High do
begin
NStart := 0;
- if C = Czesci[0].Akt then NStart := AktNuta[0];
- for N := NStart to Czesci[0].Czesc[C].HighNut do
+ if C = Czesci[CP].Akt then NStart := AktNuta[CP];
+ for N := NStart to Czesci[CP].Czesc[C].HighNut do
begin
- Inc(Czesci[0].Czesc[C].Nuta[N].Start, Move); // move note start
+ Inc(Czesci[CP].Czesc[C].Nuta[N].Start, Move); // move note start
if N = 0 then
begin // fix beginning
- Inc(Czesci[0].Czesc[C].Start, Move);
- Inc(Czesci[0].Czesc[C].StartNote, Move);
+ Inc(Czesci[CP].Czesc[C].Start, Move);
+ Inc(Czesci[CP].Czesc[C].StartNote, Move);
end;
- if N = Czesci[0].Czesc[C].HighNut then // fix ending
- Inc(Czesci[0].Czesc[C].Koniec, Move);
+ if N = Czesci[CP].Czesc[C].HighNut then // fix ending
+ Inc(Czesci[CP].Czesc[C].Koniec, Move);
end; // for
end; // for
- EditorLyric[0].AddCzesc(0, Czesci[0].Akt);
+ EditorLyric[CP].AddCzesc(CP, Czesci[CP].Akt);
end;
procedure TScreenEditSub.MoveTextToRight;
@@ -2049,19 +2043,20 @@ var
N: integer;
NHigh: integer;
begin
- C := Czesci[0].Akt;
- NHigh := Czesci[0].Czesc[C].HighNut;
+ C := Czesci[CP].Akt;
+ NHigh := Czesci[CP].Czesc[C].HighNut;
// last word
- Czesci[0].Czesc[C].Nuta[NHigh].Tekst := Czesci[0].Czesc[C].Nuta[NHigh-1].Tekst + Czesci[0].Czesc[C].Nuta[NHigh].Tekst;
+ Czesci[CP].Czesc[C].Nuta[NHigh].Tekst := Czesci[CP].Czesc[C].Nuta[NHigh-1].Tekst +
+ Czesci[CP].Czesc[C].Nuta[NHigh].Tekst;
// other words
- for N := NHigh - 1 downto AktNuta[0] + 1 do
+ for N := NHigh - 1 downto AktNuta[CP] + 1 do
begin
- Czesci[0].Czesc[C].Nuta[N].Tekst := Czesci[0].Czesc[C].Nuta[N-1].Tekst;
+ Czesci[CP].Czesc[C].Nuta[N].Tekst := Czesci[CP].Czesc[C].Nuta[N-1].Tekst;
end; // for
- Czesci[0].Czesc[C].Nuta[AktNuta[0]].Tekst := '- ';
- EditorLyric[0].AddCzesc(0, Czesci[0].Akt);
+ Czesci[CP].Czesc[C].Nuta[AktNuta[CP]].Tekst := '- ';
+ EditorLyric[CP].AddCzesc(CP, Czesci[CP].Akt);
end;
procedure TScreenEditSub.MarkSrc;