aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authors_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-14 03:20:23 +0000
committers_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-14 03:20:23 +0000
commit980c5eef2b7c1fba27a683e0b1d678945d7a1c37 (patch)
treedb6d532daa8c798184281374f992563e096265fb
parent3206170f01b1ae102b94ecf4f65647d86312edc2 (diff)
downloadusdx-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
-rw-r--r--Game/Code/Classes/ULyrics.pas8
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