From f18dc03c4c18532a6004fd859432b67988f8b7af Mon Sep 17 00:00:00 2001 From: "Jasper \"JappaWakka\" Speelman" Date: Fri, 6 May 2022 22:45:13 +0200 Subject: [PATCH] Contentpack info out of bounds fix --- P3D/Screens/NewOptionScreen.vb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/P3D/Screens/NewOptionScreen.vb b/P3D/Screens/NewOptionScreen.vb index c6453d02f..554e5e13c 100644 --- a/P3D/Screens/NewOptionScreen.vb +++ b/P3D/Screens/NewOptionScreen.vb @@ -402,10 +402,10 @@ Dim s() As String = ContentPackManager.GetContentPackInfo(packName) If s.Length > 0 Then - PInfoVersion = s(0) + PInfoVersion = s(0).CropStringToWidth(FontManager.InGameFont, 540 - 16 - CInt(FontManager.InGameFont.MeasureString(Localization.GetString("option_screen_contentpacks_version")).X)) End If If s.Length > 1 Then - PInfoAuthor = s(1) + PInfoAuthor = s(1).CropStringToWidth(FontManager.InGameFont, 540 - 16 - CInt(FontManager.InGameFont.MeasureString(Localization.GetString("option_screen_contentpacks_by")).X)) End If If s.Length > 2 Then PInfoDescription = s(2).CropStringToWidth(FontManager.InGameFont, 540) @@ -418,7 +418,6 @@ Private PInfoVersion As String = "" Private PInfoAuthor As String = "" Private PInfoDescription As String = "" - Private PInfoContent As String = "" Private Sub DrawPackInformationMenu() If Not PInfoSplash Is Nothing Then