aboutsummaryrefslogtreecommitdiffstats
path: root/src/screens/UScreenScore.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/screens/UScreenScore.pas')
-rw-r--r--src/screens/UScreenScore.pas10
1 files changed, 4 insertions, 6 deletions
diff --git a/src/screens/UScreenScore.pas b/src/screens/UScreenScore.pas
index 4fdaf0f1..6ecc7181 100644
--- a/src/screens/UScreenScore.pas
+++ b/src/screens/UScreenScore.pas
@@ -92,7 +92,7 @@ type
{ textures for playerstatics of seconds screen players }
TPlayerStaticTexture = record
- Tex: TTexture;
+ Tex: TTexture;
end;
TScreenScore = class(TMenu)
@@ -291,7 +291,7 @@ end;
procedure TScreenScore.RefreshTexts;
var
P: integer;
-
+
begin
if ActualRound < Length(PlaylistMedley.Stats) - 1 then
begin
@@ -537,8 +537,6 @@ begin
for Counter := 0 to High(Theme.Score.PlayerStatic[Player]) do
PlayerStatic[Player, Counter] := AddStatic(Theme.Score.PlayerStatic[Player, Counter]);
-
-
for Counter := 0 to High(Theme.Score.PlayerTexts[Player]) do
PlayerTexts[Player, Counter] := AddText(Theme.Score.PlayerTexts[Player, Counter]);
@@ -658,7 +656,7 @@ procedure TScreenScore.DrawPlayerBars;
var
I: integer;
begin
- for I := 0 to PlayersPlay-1 do
+ for I := 0 to PlayersPlay - 1 do
begin
if (PlayerPositionMap[I].Position > 0) and ((ScreenAct = PlayerPositionMap[I].Screen) or (PlayerPositionMap[I].BothScreens)) then
begin
@@ -699,7 +697,7 @@ begin
inherited;
ActualRound := 0;
- if ScreenSong.Mode = smMedley then
+ if (ScreenSong.Mode = smMedley) then
begin
for P := 0 to PlayersPlay - 1 do
Player[P] := PlaylistMedley.Stats[ActualRound].Player[P];