diff options
author | s_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-14 03:20:23 +0000 |
---|---|---|
committer | s_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-14 03:20:23 +0000 |
commit | 980c5eef2b7c1fba27a683e0b1d678945d7a1c37 (patch) | |
tree | db6d532daa8c798184281374f992563e096265fb /Game | |
parent | 3206170f01b1ae102b94ecf4f65647d86312edc2 (diff) | |
download | usdx-980c5eef2b7c1fba27a683e0b1d678945d7a1c37.tar.gz usdx-980c5eef2b7c1fba27a683e0b1d678945d7a1c37.tar.xz usdx-980c5eef2b7c1fba27a683e0b1d678945d7a1c37.zip |
fixes for delphi :P
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@958 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/ULyrics.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas index 4b456b4d..17c16d9e 100644 --- a/Game/Code/Classes/ULyrics.pas +++ b/Game/Code/Classes/ULyrics.pas @@ -337,11 +337,11 @@ begin If Line = nil then begin // reset all values, if the new line is nil (lines after the last line) - LyricLine.Start := -1; - LyricLine.Length := -1; + LyricLine.Start := 0; + LyricLine.Length := 0; LyricLine.CurWord := -1; LyricLine.LastLine := False; - LyricLine.Width := -1; + LyricLine.Width := 0; SetLength(LyricLine.Words, 0); end else if Length(Line.Note) > 0 then @@ -551,7 +551,7 @@ var } begin // lines with a width lower than 0, have not to be draw - if Line^.Width < 0 then + if Line^.Width <= 0 then exit; // this is actually a bit more than the real font size |