diff options
Diffstat (limited to 'src/base/USong.pas')
| -rw-r--r-- | src/base/USong.pas | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/src/base/USong.pas b/src/base/USong.pas index 35ce9dbd..02afcd2a 100644 --- a/src/base/USong.pas +++ b/src/base/USong.pas @@ -544,6 +544,8 @@ begin end; SetLength(Lines, 0); + SetLength(Lines, 2); +{ for later Duet addition if (CurLine[1] = 'P') then begin CurrentSong.isDuet := true; @@ -552,6 +554,7 @@ begin end else SetLength(Lines, 1); +} for Count := 0 to High(Lines) do begin @@ -640,6 +643,10 @@ begin end; // add notes + if not Both then + // P1 + ParseNote(CP, Param0, (Param1+Rel[CP]) * Mult, Param2 * Mult, Param3, ParamLyric) +{ for later replacement if (CP <> 2) then begin // P1 @@ -650,8 +657,7 @@ begin FileNamePath.ToNative+' Line:'+IntToStr(FileLineNo)); Break; end; - ParseNote(CP, Param0, (Param1+Rel[CP]) * Mult, Param2 * Mult, Param3, ParamLyric); - end +} else begin // P1 + P2 @@ -669,8 +675,12 @@ begin Param2 := ParseLyricIntParam(CurLine, LinePos); // read one more data for relative system // new sentence + if not Both then + // P1 +{ for later addition if not CurrentSong.isDuet then // one singer +} NewSentence(CP, (Param1 + Rel[CP]) * Mult, Param2) else begin @@ -1739,7 +1749,7 @@ begin CurrentSong := self; { add with Duet Result := Result and LoadSong(DuetChange); -} + if Result then begin //Medley and Duet - is it possible? Perhaps later... @@ -1748,6 +1758,7 @@ begin else Self.Medley.Source := msNone; end; +} finally SongFile.Free; |