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

Disabled scaling on some menus to prevent issues 

for now
This commit is contained in:
Jasper "JappaWakka" Speelman 2022-05-14 16:26:42 +02:00
parent 4d36a5851b
commit a7045ea517
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
P3D/Screens/NewMenuScreen.vb
View File

@ -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)

6
P3D/Screens/NewOptionScreen.vb
View File

@ -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), "")