From 8b0ad99ea3125717a4903c8303860051970cb2c9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rodrigo=20Depin=C3=A9=20Dalpiaz?= <dalpiaze@gmail.com>
Date: Mon, 28 Sep 2020 20:55:56 -0300
Subject: [PATCH] fixed init translation on game screen

---
 Languages/English.lang | 2 +-
 UFrmGame.pas           | 4 ++--
 UFrmStart.pas          | 2 ++
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Languages/English.lang b/Languages/English.lang
index 45bf904..2a43897 100644
--- 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
index f6be11e..b2862f7 100644
--- 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
index ea15211..474597c 100644
--- 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;