aboutsummaryrefslogtreecommitdiffstats
path: root/src/screens
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-06-10 20:01:52 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-06-10 20:01:52 +0000
commit8e8d377291ba226116fe82141f955c8d07dfbcdb (patch)
tree589d2aa2d46ba537eab12571e4cb76d9752fa9dc /src/screens
parente670f3532376dd6aec2bc7b47d2052216be98516 (diff)
downloadusdx-8e8d377291ba226116fe82141f955c8d07dfbcdb.tar.gz
usdx-8e8d377291ba226116fe82141f955c8d07dfbcdb.tar.xz
usdx-8e8d377291ba226116fe82141f955c8d07dfbcdb.zip
changes to divide note
- split note in the center - use "~" instead of dash as lyrics for the new note - update lyric display after split git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2479 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/screens')
-rw-r--r--src/screens/UScreenEditSub.pas18
1 files changed, 13 insertions, 5 deletions
diff --git a/src/screens/UScreenEditSub.pas b/src/screens/UScreenEditSub.pas
index 7956b127..425036b0 100644
--- a/src/screens/UScreenEditSub.pas
+++ b/src/screens/UScreenEditSub.pas
@@ -1072,13 +1072,21 @@ begin
Note[N] := Note[N-1];
end;
- // me slightly modify new note
- Note[CurrentNote].Length := 1;
- Inc(Note[CurrentNote+1].Start);
- Dec(Note[CurrentNote+1].Length);
- Note[CurrentNote+1].Text := '- ';
+ // Note[Cur] and Note[Cur + 1] is identical at this point
+ // modify first note
+ Note[CurrentNote].Length := Note[CurrentNote+1].Length div 2 + Note[CurrentNote+1].Length mod 2;
+
+ // 2nd note
+ Note[CurrentNote+1].Start := Note[CurrentNote].Start + Note[CurrentNote].Length;
+ Note[CurrentNote+1].Length := Note[CurrentNote + 1].Length div 2;
+
+ Note[CurrentNote+1].Text := '~';
Note[CurrentNote+1].Color := 1;
end;
+
+ // update lyric display
+ Lyric.AddLine(Lines[0].Current);
+ Lyric.Selected := CurrentNote;
end;
procedure TScreenEditSub.DeleteNote;