localize switcher button captions in colony view

striezel · Jun 30, 2024 · 7590910 · 7590910
1 parent a29eb9b
commit 7590910
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/changelog.md b/changelog.md
@@ -11,6 +11,9 @@ improvements may be omitted.)_
   in the colony view is no longer obstructed by the box that displays the name
   of the building which is currently under construction.
 
+* __[fix]__
+  Two non-localized button captions in colony view are now localized.
+
 * __[improvement]__
   Terrain textures for wetland and marsh are added.
 

diff --git a/engine/Gui.pas b/engine/Gui.pas
@@ -2510,8 +2510,8 @@ procedure TGui.DrawColonyView;
 
   // -- captions
   glColor3ubv(@cMenuTextColour[0]);
-  WriteText('Buildings', cWindowWidth*PixelWidth-5.0+4*PixelWidth, y_Fields-6.0+4*PixelWidth);
-  WriteText('Units', cWindowWidth*PixelWidth-5.0+4*PixelWidth, y_Fields-5.5+4*PixelWidth);
+  WriteText(dat.GetLang.GetOthers(osBuildings), cWindowWidth*PixelWidth-5.0+4*PixelWidth, y_Fields-6.0+4*PixelWidth);
+  WriteText(dat.GetLang.GetOthers(osUnits), cWindowWidth*PixelWidth-5.0+4*PixelWidth, y_Fields-5.5+4*PixelWidth);
 
   if ColonyBuildingPage then
   begin

diff --git a/engine/Language.pas b/engine/Language.pas
@@ -37,7 +37,8 @@ interface
   TOtherString = (osLocation, osDestination, osFreight, osShip, osHighSea,
                   osNewWorld, osMoves, osEmpty, osNothing, osNoChanges, osTax,
                   osGold, osCost, osSaving, osEarnings, osName, osProgress,
-                  osQuitGame, osYes, osNo, osRiver, osRoad, osUndefined);
+                  osQuitGame, osYes, osNo, osRiver, osRoad, osUnits,
+                  osBuildings, osUndefined);
   TEuroPortString = (epsManageHeading, epsNotOnShip, epsGoOnShip, epsArm, epsDisarm, epsGiveHorses, epsNoHorses, epsGiveTools, epsNoTools, epsTrainHeading, epsBuyHeading);
   TReportType = (rtNone, rtCongress, rtJob, rtEconomy, rtColony, rtFleet, rtForeign, rtIndian, rtScore);
   TColonyString = (csRenameQuestion, csRenameLabel, csAbandonYes, csAbandonNo, csAbandonQuestion);
@@ -643,6 +644,8 @@ procedure TLanguage.InitialValues;
   Others[osNo]:= 'Nein';
   Others[osRiver]:= 'Fluss';
   Others[osRoad]:= 'Straße';
+  Others[osUnits]:= 'Einheiten';
+  Others[osBuildings]:= 'Gebäude';
   Others[osUndefined]:= 'Nicht definiert';
   //save/ load messages
   SaveLoad[slsLoadChoose]:= 'Wählen Sie den zu ladenden Spielstand.';