Fix choosebox being too small in some cases

This commit is contained in:
JappaWakka 2022-10-18 17:02:24 +02:00
parent b52e01e19a
commit b015a3632d
1 changed files with 2 additions and 2 deletions

View File

@ -152,8 +152,8 @@
While Me.TextFont.SpriteFont.MeasureString(Options(i).Replace("[POKE]", "Poké")).X - 16 > MaxWidth
MaxWidth += 16
End While
If MaxWidth < 32 Then
MaxWidth = 32
If MaxWidth < 48 Then
MaxWidth = 48
End If
Next
Canvas.DrawImageBorder(TextureManager.GetTexture("GUI\Overworld\ChooseBox", New Rectangle(0, 0, 48, 48), ""), 3, New Rectangle(CInt(Position.X), CInt(Position.Y), CInt((MaxWidth * 3) * Size), CInt((48 * Size) * Options.Count)), True)