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

View File

@ -152,8 +152,8 @@
While Me.TextFont.SpriteFont.MeasureString(Options(i).Replace("[POKE]", "Poké")).X - 16 > MaxWidth While Me.TextFont.SpriteFont.MeasureString(Options(i).Replace("[POKE]", "Poké")).X - 16 > MaxWidth
MaxWidth += 16 MaxWidth += 16
End While End While
If MaxWidth < 32 Then If MaxWidth < 48 Then
MaxWidth = 32 MaxWidth = 48
End If End If
Next 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) 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)