aboutsummaryrefslogtreecommitdiffstats
path: root/src/screens/UScreenEditHeader.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-11-03 14:53:17 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-11-03 14:53:17 +0000
commitd33f56a40d9e8325a2782f90bb253dece5127c5f (patch)
tree900bf17f151709a17f2371371e7135bcf96357da /src/screens/UScreenEditHeader.pas
parent2b125425a66f54922e8aaf34c2a616c43f024f11 (diff)
downloadusdx-d33f56a40d9e8325a2782f90bb253dece5127c5f.tar.gz
usdx-d33f56a40d9e8325a2782f90bb253dece5127c5f.tar.xz
usdx-d33f56a40d9e8325a2782f90bb253dece5127c5f.zip
All comments are English now (Polish ones have been translated)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1498 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--src/screens/UScreenEditHeader.pas9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/screens/UScreenEditHeader.pas b/src/screens/UScreenEditHeader.pas
index 5ff3dde5..3678973e 100644
--- a/src/screens/UScreenEditHeader.pas
+++ b/src/screens/UScreenEditHeader.pas
@@ -275,8 +275,7 @@ end;
var
Min: integer;
Sec: integer;
- Tekst: string;
- Pet: integer;
+ Count: integer;
AktBeat: integer;
begin
{ glClearColor(1,1,1,1);
@@ -294,8 +293,8 @@ begin
AktBeat := Floor(CurrentSong.BPM[0].BPM * (Music.Position - CurrentSong.GAP / 1000) / 60);
Text[TextDebug].Text := IntToStr(AktBeat);
if AktBeat <> LastClick then begin
- for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
- if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = AktBeat) then begin
+ for Count := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
+ if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Count].Start = AktBeat) then begin
Music.PlayClick;
LastClick := AktBeat;
end;
@@ -314,7 +313,7 @@ begin
Text[TextNStart].Text := IntToStr(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Start);
Text[TextNDlugosc].Text := IntToStr(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc);
Text[TextNTon].Text := IntToStr(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Ton);
- Text[TextNText].Text := Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst;
+ Text[TextNText].Text := Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Text;
// draw static menu
inherited Draw;