diff --git a/P3D/Screens/NewMenuScreen.vb b/P3D/Screens/NewMenuScreen.vb index cc5c5658c..4bd35b5b9 100644 --- a/P3D/Screens/NewMenuScreen.vb +++ b/P3D/Screens/NewMenuScreen.vb @@ -154,18 +154,18 @@ Dim Y As Single = 0F If (index Mod 2) = 0 Then - X = Core.ScreenSize.Width / 2.0F - 384 - 75 + X = Core.windowSize.Width / 2.0F - 384 - 75 Else - X = Core.ScreenSize.Width / 2.0F + 75 + X = Core.windowSize.Width / 2.0F + 75 End If Select Case Math.Floor(index / 2) Case 0 - Y = (Core.ScreenSize.Height / 2.0F) - 64 - 80 - 32 + Y = (Core.windowSize.Height / 2.0F) - 64 - 80 - 32 Case 1 - Y = (Core.ScreenSize.Height / 2.0F) - 32 + Y = (Core.windowSize.Height / 2.0F) - 32 Case 2 - Y = (Core.ScreenSize.Height / 2.0F) + 32 + 80 + Y = (Core.windowSize.Height / 2.0F) + 32 + 80 End Select Return New Vector2(X, Y) diff --git a/P3D/Screens/NewOptionScreen.vb b/P3D/Screens/NewOptionScreen.vb index 554e5e13c..275cc7ee9 100644 --- a/P3D/Screens/NewOptionScreen.vb +++ b/P3D/Screens/NewOptionScreen.vb @@ -290,10 +290,10 @@ End If End If - Canvas.DrawRectangle(New Rectangle(CInt(windowSize.Width / 2) - 328, CInt(Core.windowSize.Height / 2 - 128 + i * 50), 500, 48), c, True) + Canvas.DrawRectangle(New Rectangle(CInt(windowSize.Width / 2) - 328, CInt(Core.windowSize.Height / 2 - 128 + i * 50), 500, 48), c, False) Next - Canvas.DrawScrollBar(New Vector2(CInt(windowSize.Width / 2) + 188, CInt(Core.windowSize.Height / 2 - 128)), PackNames.Count, 4, packsMenuIndex(2), New Size(4, 200), False, New Color(77, 147, 198, CInt(255 * _interfaceFade * _pageFade)), New Color(255, 255, 255, CInt(255 * _interfaceFade * _pageFade)), True) + Canvas.DrawScrollBar(New Vector2(CInt(windowSize.Width / 2) + 188, CInt(Core.windowSize.Height / 2 - 128)), PackNames.Count, 4, packsMenuIndex(2), New Size(4, 200), False, New Color(77, 147, 198, CInt(255 * _interfaceFade * _pageFade)), New Color(255, 255, 255, CInt(255 * _interfaceFade * _pageFade)), False) Dim x As Integer = PackNames.Count - 1 x = CInt(MathHelper.Clamp(x, 0, 3)) @@ -421,7 +421,7 @@ Private Sub DrawPackInformationMenu() If Not PInfoSplash Is Nothing Then - SpriteBatch.DrawInterface(PInfoSplash, windowSize, Color.White) + SpriteBatch.Draw(PInfoSplash, windowSize, Color.White) End If Dim CanvasTexture As Texture2D = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 0, 48, 48), "")