From 980c5eef2b7c1fba27a683e0b1d678945d7a1c37 Mon Sep 17 00:00:00 2001 From: s_alexander Date: Fri, 14 Mar 2008 03:20:23 +0000 Subject: fixes for delphi :P git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@958 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/ULyrics.pas | 8 ++++---- 1 file 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 -- cgit v1.2.3