tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ChooseBox dynamically scales to the content

This commit is contained in:
Jasper "JappaWakka" Speelman 2022-05-14 14:20:47 +02:00
parent cff621337f
commit 922502fc40
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/GUI/Overworld/ChooseBox.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 312 B

After

Width:  |  Height:  |  Size: 319 B

11
P3D/Dialogues/ChooseBox.vb
View File

@ -147,7 +147,16 @@
With Core.SpriteBatch
'Bounding box
If DrawBox Then
Canvas.DrawImageBorder(TextureManager.GetTexture("GUI\Overworld\ChooseBox", New Rectangle(0, 0, 72, 48), ""), 3, New Rectangle(CInt(Position.X), CInt(Position.Y), CInt(360 * Size), CInt((48 * Size) * Options.Count)), True)
Dim MaxWidth = 0
For i = 0 To Options.Count - 1
While Me.TextFont.SpriteFont.MeasureString(Options(i).Replace("[POKE]", "Poké")).X - 16 > MaxWidth
MaxWidth += 16
End While
If MaxWidth < 32 Then
MaxWidth = 32
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)
End If
'Text
For i = 0 To Options.Count - 1