diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-04 00:19:50 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-04 00:19:50 +0000 |
commit | e2a9ad22a5dc8a14b7fa536e28628f85481e8caf (patch) | |
tree | a3db9eaf0ebf8758e69e85d8a185b9650e4b7384 | |
parent | 9bbedc30d451861ccbd2348c00d7d8ae5a828c60 (diff) | |
download | usdx-e2a9ad22a5dc8a14b7fa536e28628f85481e8caf.tar.gz usdx-e2a9ad22a5dc8a14b7fa536e28628f85481e8caf.tar.xz usdx-e2a9ad22a5dc8a14b7fa536e28628f85481e8caf.zip |
fix bug introduced in 3172
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3190 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-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; |