From e4fc1ba3d1b0c146ea806319514d2603f0d4f112 Mon Sep 17 00:00:00 2001 From: f1fth_freed0m Date: Fri, 11 Apr 2008 19:32:27 +0000 Subject: translated some polish code AddCzesc -> AddLine NrCzesc -> NrLine NrCzesci -> NrLines Pet -> Count SingDrawCzesc -> SingDrawLine SingDrawPlayerCzesc -> SingDrawPlayerLine SingDrawPlayerBGCzesc -> SingDrawPlayerBGLine EditDrawCzesc -> EditDrawLine Tekst -> Text git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1020 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/ULyrics_bak.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'Game/Code/Classes/ULyrics_bak.pas') diff --git a/Game/Code/Classes/ULyrics_bak.pas b/Game/Code/Classes/ULyrics_bak.pas index e44800d6..c4ce0e1b 100644 --- a/Game/Code/Classes/ULyrics_bak.pas +++ b/Game/Code/Classes/ULyrics_bak.pas @@ -86,7 +86,7 @@ type constructor Create; procedure AddWord(Text: string); - procedure AddCzesc(NrCzesci: integer); + procedure AddLine(NrLine: integer); function SelectedLetter: integer; // LCD function SelectedLength: integer; // LCD @@ -259,15 +259,15 @@ begin Refresh; end; -procedure TLyric.AddCzesc(NrCzesci: integer); +procedure TLyric.AddLine(NrLine: integer); var N: integer; begin Clear; - for N := 0 to Lines[0].Line[NrCzesci].HighNote do begin - Italic := Lines[0].Line[NrCzesci].Note[N].NoteType = ntFreestyle; - AddWord(Lines[0].Line[NrCzesci].Note[N].Text); - Text := Text + Lines[0].Line[NrCzesci].Note[N].Text; + for N := 0 to Lines[0].Line[NrLine].HighNote do begin + Italic := Lines[0].Line[NrLine].Note[N].NoteType = ntFreestyle; + AddWord(Lines[0].Line[NrLine].Note[N].Text); + Text := Text + Lines[0].Line[NrLine].Note[N].Text; end; Selected := -1; end; -- cgit v1.2.3