aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens')
-rw-r--r--Game/Code/Screens/UScreenSing.pas23
1 files changed, 18 insertions, 5 deletions
diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index 608bae72..964123aa 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -87,6 +87,7 @@ type
{StaticP3RScoreBG: integer;
TextP3RScore: integer;}
+ StaticPausePopup: integer;
Tex_Background: TTexture;
FadeOut: boolean;
@@ -202,7 +203,7 @@ end;
//Pause Mod
procedure TScreenSing.Pause;
begin
- if not paused then //Pause einschalten
+ if not paused then //enable Pause
begin
// pause Time
PauseTime := LineState.CurrentTime;
@@ -216,7 +217,7 @@ begin
fCurrentVideoPlaybackEngine.Pause;
end
- else //Pause ausschalten
+ else //disable Pause
begin
LineState.CurrentTime := PauseTime; //Position of Notes
@@ -303,6 +304,9 @@ begin
TextP3RScore := AddText(Theme.Sing.TextP3RScore);
StaticP3SingBar := AddStatic(Theme.Sing.StaticP3SingBar);}
+ StaticPausePopup := AddStatic(Theme.Sing.PausePopUp);
+ Static[StaticPausePopup].Visible := false; //Pausepopup is not visibile at the beginning
+
if ScreenAct = 2 then begin
// katze und affe
@@ -347,7 +351,7 @@ begin
Scores.Init; //Get Positions for Players
-
+
// prepare players
SetLength(Player, PlayersPlay);
@@ -1212,8 +1216,7 @@ begin
if ShowFinish then begin
if (not AudioPlayback.Finished) and ((CurrentSong.Finish = 0) or (LineState.CurrentTime*1000 <= CurrentSong.Finish)) then begin
//Pause Mod:
- if not Paused then
- Sing(Self); // analyze song
+ if not Paused then Sing(Self); // analyze song
end else begin
// Log.LogError('End');
if not FadeOut then begin
@@ -1260,6 +1263,16 @@ begin
for T := 0 to 1 do
Text[T].X := Text[T].X - 10*ScreenX;
+ //Draw Pausepopup
+ //I use this workaround that the Static is drawen over the Lyrics, Lines, Scores and Effects
+ //maybe someone could find a better solution
+ if Paused then
+ begin
+ Static[StaticPausePopup].Visible := true;
+ Static[StaticPausePopup].Draw;
+ Static[StaticPausePopup].Visible := false;
+ end;
+
end;
procedure TScreenSing.Finish;