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

Improved the cursor positioning in the ingame menu

This commit is contained in:
JappaWakka 2022-01-16 17:26:58 +01:00
parent 2533598295
commit 14d4bc5ea2
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
P3D/Screens/NewMenuScreen.vb
View File

@ -141,7 +141,7 @@
Private Sub SetCursorPosition(ByVal _buttonIndex As Integer) Private Sub SetCursorPosition(ByVal _buttonIndex As Integer)
Dim pos = GetButtonPosition(_buttonIndex) Dim pos = GetButtonPosition(_buttonIndex)
Dim cPosition As Vector2 = New Vector2(pos.X + 180, pos.Y - 42) Dim cPosition As Vector2 = New Vector2(CInt(pos.X + 180), CInt(pos.Y - 42))
_cursorDestPosition = cPosition _cursorDestPosition = cPosition
End Sub End Sub
@ -196,14 +196,14 @@
Dim preMenuIndex As Integer = _menuIndex Dim preMenuIndex As Integer = _menuIndex
If _cursorDestPosition.X <> _cursorPosition.X Or _cursorDestPosition.Y <> _cursorPosition.Y Then If _cursorDestPosition.X <> _cursorPosition.X Or _cursorDestPosition.Y <> _cursorPosition.Y Then
_cursorPosition.X = MathHelper.Lerp(_cursorDestPosition.X, _cursorPosition.X, 0.75F) _cursorPosition.X = CInt(MathHelper.Lerp(_cursorDestPosition.X, _cursorPosition.X, 0.75F))
_cursorPosition.Y = MathHelper.Lerp(_cursorDestPosition.Y, _cursorPosition.Y, 0.75F) _cursorPosition.Y = CInt(MathHelper.Lerp(_cursorDestPosition.Y, _cursorPosition.Y, 0.75F))
If Math.Abs(_cursorDestPosition.X - _cursorPosition.X) < 0.1F Then If Math.Abs(_cursorDestPosition.X - _cursorPosition.X) < 0.1F Then
_cursorPosition.X = _cursorDestPosition.X _cursorPosition.X = CInt(_cursorDestPosition.X)
End If End If
If Math.Abs(_cursorDestPosition.Y - _cursorPosition.Y) < 0.1F Then If Math.Abs(_cursorDestPosition.Y - _cursorPosition.Y) < 0.1F Then
_cursorPosition.Y = _cursorDestPosition.Y _cursorPosition.Y = CInt(_cursorDestPosition.Y)
End If End If
End If End If
If Math.Abs(_cursorDestPosition.Y - _cursorPosition.Y) < 5.0F Then If Math.Abs(_cursorDestPosition.Y - _cursorPosition.Y) < 5.0F Then
@ -212,12 +212,12 @@
Dim pos = GetButtonPosition(i) Dim pos = GetButtonPosition(i)
If New Rectangle(CInt(pos.X), CInt(pos.Y), 64 * 6, 64).Contains(MouseHandler.MousePosition) Then If New Rectangle(CInt(pos.X), CInt(pos.Y), 64 * 6, 64).Contains(MouseHandler.MousePosition) Then
If _menuIndex = i Then If _menuIndex = i Then
_cursorPosition.X = _cursorDestPosition.X _cursorPosition.X = CInt(_cursorDestPosition.X)
SoundManager.PlaySound("select") SoundManager.PlaySound("select")
PressButton() PressButton()
Else Else
_menuIndex = i _menuIndex = i
_cursorDestPosition = New Vector2(MouseHandler.MousePosition.X, MouseHandler.MousePosition.Y - 42) SetCursorPosition(_menuIndex)
preMenuIndex = _menuIndex 'Prevent the update of the mouse position below. preMenuIndex = _menuIndex 'Prevent the update of the mouse position below.
Exit For Exit For
End If End If
@ -225,7 +225,7 @@
Next Next
End If End If
If Controls.Accept(False, True, True) = True Then If Controls.Accept(False, True, True) = True Then
_cursorPosition.X = _cursorDestPosition.X _cursorPosition.X = CInt(_cursorDestPosition.X)
SoundManager.PlaySound("select") SoundManager.PlaySound("select")
PressButton() PressButton()
End If End If