Merge pull request #909 from UltraStar-Deluxe/fix-tournament-nameinput

allow to set player names in party->tournament again
UltraStar-Deluxe · Oct 11, 2024 · 5468dbc · 5468dbc
2 parents 459a0f8 + 62b3a66
commit 5468dbc
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/screens/UScreenPartyTournamentPlayer.pas b/src/screens/UScreenPartyTournamentPlayer.pas
@@ -179,6 +179,7 @@ function TScreenPartyTournamentPlayer.ParseInput(PressedKey: cardinal; CharCode:
     until ((Interactions[Interaction].Typ = iSelectS) and
       SelectsS[Interactions[Interaction].Num].Visible) or
       (Button[Interactions[Interaction].Num].Visible);
+    SetTextInput(Interactions[Interaction].Typ = iButton);
   end;
   procedure IntPrev;
   begin
@@ -187,6 +188,7 @@ function TScreenPartyTournamentPlayer.ParseInput(PressedKey: cardinal; CharCode:
     until ((Interactions[Interaction].Typ = iSelectS) and
       SelectsS[Interactions[Interaction].Num].Visible) or
       (Button[Interactions[Interaction].Num].Visible);
+    SetTextInput(Interactions[Interaction].Typ = iButton);
   end;
 begin
   Result := true;