From 7a838d92b4e1935ff1e68a0919e3edb4e5648d6f Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Sun, 4 May 2025 15:43:04 +0200 Subject: [PATCH] Make map screen location name more readable... Added a partially transparent black box behind the name of the location that's being pointed to on the map screen to make the name better readable on white backgrounds --- P3D/Screens/MapScreen.vb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/P3D/Screens/MapScreen.vb b/P3D/Screens/MapScreen.vb index 713727c79..c3923e1c3 100644 --- a/P3D/Screens/MapScreen.vb +++ b/P3D/Screens/MapScreen.vb @@ -688,11 +688,15 @@ End If If Me.hoverText <> "" And Me.pokehoverText <> "" Then - Core.SpriteBatch.DrawString(FontManager.MainFont, Localization.GetString("pokemon_name_" & Me.pokehoverText) & " at " & Localization.GetString("Places_" & Me.hoverText), New Vector2(Me.CursorPosition.X + 32 + 2, Me.CursorPosition.Y - 32 + 2), Color.Black) - Core.SpriteBatch.DrawString(FontManager.MainFont, Localization.GetString("pokemon_name_" & Me.pokehoverText) & " at " & Localization.GetString("Places_" & Me.hoverText), New Vector2(Me.CursorPosition.X + 32, Me.CursorPosition.Y - 32), Color.White) + Dim hoverString As String = Localization.GetString("pokemon_name_" & Me.pokehoverText) & " at " & Localization.GetString("Places_" & Me.hoverText) + Core.SpriteBatch.DrawRectangle(New Rectangle(CInt(Me.CursorPosition.X + 32 - 2), CInt(Me.CursorPosition.Y - 32 + 2), CInt(FontManager.MainFont.MeasureString(hoverString).X + 2 + 4), CInt(FontManager.MainFont.MeasureString(hoverString).Y)), New Color(0, 0, 0, 0.6F)) + Core.SpriteBatch.DrawString(FontManager.MainFont, hoverString, New Vector2(CInt(Me.CursorPosition.X + 32 + 2), CInt(Me.CursorPosition.Y - 32 + 2)), Color.Black) + Core.SpriteBatch.DrawString(FontManager.MainFont, hoverString, New Vector2(CInt(Me.CursorPosition.X + 32), CInt(Me.CursorPosition.Y - 32)), Color.White) ElseIf Me.hoverText <> "" And Me.pokehoverText = "" Then - Core.SpriteBatch.DrawString(FontManager.MainFont, Localization.GetString("Places_" & Me.hoverText), New Vector2(Me.CursorPosition.X + 32 + 2, Me.CursorPosition.Y - 32 + 2), Color.Black) - Core.SpriteBatch.DrawString(FontManager.MainFont, Localization.GetString("Places_" & Me.hoverText), New Vector2(Me.CursorPosition.X + 32, Me.CursorPosition.Y - 32), Color.White) + Dim hoverString As String = Localization.GetString("Places_" & Me.hoverText) + Core.SpriteBatch.DrawRectangle(New Rectangle(CInt(Me.CursorPosition.X + 32 - 2), CInt(Me.CursorPosition.Y - 32 + 2), CInt(FontManager.MainFont.MeasureString(hoverString).X + 2 + 4), CInt(FontManager.MainFont.MeasureString(hoverString).Y)), New Color(0, 0, 0, 0.6F)) + Core.SpriteBatch.DrawString(FontManager.MainFont, hoverString, New Vector2(Me.CursorPosition.X + 32 + 2, Me.CursorPosition.Y - 32 + 2), Color.Black) + Core.SpriteBatch.DrawString(FontManager.MainFont, hoverString, New Vector2(Me.CursorPosition.X + 32, Me.CursorPosition.Y - 32), Color.White) End If Dim regionString As String = Localization.GetString(Me.currentRegion(0).ToString().ToUpper() & Me.currentRegion.Remove(0, 1))