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

Lighting colors and select menu audio bug fix

This commit is contained in:
JappaWakka 2022-06-19 22:31:50 +02:00
parent 0bf30358da
commit e6d106c839
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/SkyDomeResource/LightingColors.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 158 B

After

Width:  |  Height:  |  Size: 164 B

13
P3D/Input/UI/SelectMenu.vb
View File

@ -61,12 +61,13 @@
Index = 0
End If
End If
Dim PlaySelectSound As Boolean = False
If CurrentScreen.MouseVisible = True Then
For i = Scroll To Me.Scroll + 8
If i <= Me.Items.Count - 1 Then
If Controls.Accept(True, False, False) = True And i = Me.Index And New Rectangle(Core.windowSize.Width - 270, 72 * ((i + 1) - Scroll), 256, 64).Contains(MouseHandler.MousePosition) = True Or
Controls.Accept(False, True, True) = True And i = Me.Index Or Controls.Dismiss(True, True, True) = True And Me.BackIndex = Me.Index Then
SoundManager.PlaySound("select")
PlaySelectSound = True
If Not ClickHandler Is Nothing Then
ClickHandler(Me)
End If
@ -74,7 +75,7 @@
End If
If Controls.Dismiss(True, True, True) = True Then
Me.Index = Me.BackIndex
SoundManager.PlaySound("select")
PlaySelectSound = True
If Not ClickHandler Is Nothing Then
ClickHandler(Me)
End If
@ -88,7 +89,7 @@
Else
For i = Scroll To Me.Scroll + 8
If Controls.Accept(True, True, True) = True And i = Me.Index Then
SoundManager.PlaySound("select")
PlaySelectSound = True
If Not ClickHandler Is Nothing Then
ClickHandler(Me)
End If
@ -96,7 +97,7 @@
End If
If Controls.Dismiss(True, True, True) = True Then
Me.Index = Me.BackIndex
SoundManager.PlaySound("select")
PlaySelectSound = True
If Not ClickHandler Is Nothing Then
ClickHandler(Me)
End If
@ -104,6 +105,10 @@
End If
Next
End If
If PlaySelectSound = True Then
SoundManager.PlaySound("select")
PlaySelectSound = False
End If
End If
If Index - Scroll > 8 Then
Scroll = Index - 8