tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 15:54:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Disabled scaling on some menus to prevent issues

Browse Source 
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 Dim Y As Single = 0F
If (index Mod 2) = 0 Then If (index Mod 2) = 0 Then
X = Core.ScreenSize.Width / 2.0F - 384 - 75 X = Core.windowSize.Width / 2.0F - 384 - 75
Else Else
X = Core.ScreenSize.Width / 2.0F + 75 X = Core.windowSize.Width / 2.0F + 75
End If End If
Select Case Math.Floor(index / 2) Select Case Math.Floor(index / 2)
Case 0 Case 0
Y = (Core.ScreenSize.Height / 2.0F) - 64 - 80 - 32 Y = (Core.windowSize.Height / 2.0F) - 64 - 80 - 32
Case 1 Case 1
Y = (Core.ScreenSize.Height / 2.0F) - 32 Y = (Core.windowSize.Height / 2.0F) - 32
Case 2 Case 2
Y = (Core.ScreenSize.Height / 2.0F) + 32 + 80 Y = (Core.windowSize.Height / 2.0F) + 32 + 80
End Select End Select
Return New Vector2(X, Y) Return New Vector2(X, Y)

6
P3D/Screens/NewOptionScreen.vb
View File

@ -290,10 +290,10 @@
End If End If
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 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 Dim x As Integer = PackNames.Count - 1
x = CInt(MathHelper.Clamp(x, 0, 3)) x = CInt(MathHelper.Clamp(x, 0, 3))
@ -421,7 +421,7 @@
Private Sub DrawPackInformationMenu() Private Sub DrawPackInformationMenu()
If Not PInfoSplash Is Nothing Then If Not PInfoSplash Is Nothing Then
SpriteBatch.DrawInterface(PInfoSplash, windowSize, Color.White) SpriteBatch.Draw(PInfoSplash, windowSize, Color.White)
End If End If
Dim CanvasTexture As Texture2D = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 0, 48, 48), "") Dim CanvasTexture As Texture2D = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 0, 48, 48), "")