fixed init translation on game screen

digao-dalpiaz · Sep 28, 2020 · 8b0ad99 · 8b0ad99
1 parent 82beb11
commit 8b0ad99
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/Languages/English.lang b/Languages/English.lang
@@ -63,7 +63,7 @@ LOG_DROP_CONTINUE=The situation of the lost players has been resolved and the ga
 START_BTN_JOIN=Join
 START_BTN_EXIT=Exit
 
-GAME_STATUS_PREPARING=Wait room
+GAME_STATUS_PREPARING=Waiting room
 GAME_STATUS_PLAYING=Game running
 GAME_STATUS_MYTURN=Your turn
 GAME_STATUS_WAITVALID=Waiting validation

diff --git a/UFrmGame.pas b/UFrmGame.pas
@@ -85,8 +85,6 @@ implementation
 
 procedure TFrmGame.FormCreate(Sender: TObject);
 begin
-  InitTranslation;
-
   PB := TMatrixImage.Create(Self);
   PB.Parent := SB;
 end;
@@ -107,6 +105,8 @@ procedure TFrmGame.InitTranslation;
 
 procedure TFrmGame.Initialize(Reconnected: Boolean);
 begin
+  InitTranslation;
+
   if Reconnected then
     SetStatus(gsPaused)
   else

diff --git a/UFrmStart.pas b/UFrmStart.pas
@@ -191,6 +191,8 @@ procedure TFrmStart.EdLanguageChange(Sender: TObject);
   pubLanguageID := LST_LANGUAGES[EdLanguage.ItemIndex].ID;
   FrmMain.ConfigLanguage(True); //save config language
   Lang.LoadLanguage; //reload language
+
+  //reload screen translation
   FrmMain.InitTranslation;
   FrmStart.InitTransation;
 end;