diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-03 22:49:06 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-03 22:49:06 +0000 |
commit | 9bbedc30d451861ccbd2348c00d7d8ae5a828c60 (patch) | |
tree | 4fd8278dca1cf9d6dcde420685a1fad9bd84e636 /src/screens/UScreenScore.pas | |
parent | 7e017d47108ec25fcf3c9bd86cccc79c27cd75f7 (diff) | |
download | usdx-9bbedc30d451861ccbd2348c00d7d8ae5a828c60.tar.gz usdx-9bbedc30d451861ccbd2348c00d7d8ae5a828c60.tar.xz usdx-9bbedc30d451861ccbd2348c00d7d8ae5a828c60.zip |
end of first pass. many more smaller changes and preparations for later additions
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3189 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | src/screens/UScreenScore.pas | 10 |
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]; |