aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/ULyrics_bak.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes/ULyrics_bak.pas')
-rw-r--r--Game/Code/Classes/ULyrics_bak.pas12
1 files changed, 6 insertions, 6 deletions
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;