tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-26 23:34:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Made button text color white if selected

Browse Source
This commit is contained in:
Jasper "JappaWakka" Speelman 2022-04-11 20:02:16 +02:00
parent 4241ec7bbb
commit b3b46e97ac
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
P3D/Screens/MainMenu/JoinServerScreen.vb
View File

@ -108,13 +108,17 @@ Public Class JoinServerScreen
Next Next
Dim CanvasTexture As Texture2D Dim CanvasTexture As Texture2D
CanvasTexture = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 0, 48, 48), "") Dim FontColor As Color
Dim FontShadow As Color = New Color(0, 0, 0, 0)
For i = 0 To 5 For i = 0 To 5
If i = Me.buttonIndex Then If i = Me.buttonIndex Then
CanvasTexture = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 48, 48, 48), "") CanvasTexture = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 48, 48, 48), "")
FontColor = Color.White
FontShadow.A = 255
Else Else
CanvasTexture = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 0, 48, 48), "") CanvasTexture = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 0, 48, 48), "")
FontColor = Color.Black
FontShadow.A = 0
End If End If
Dim Text As String = "" Dim Text As String = ""
@ -153,7 +157,8 @@ Public Class JoinServerScreen
End Select End Select
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(CInt(Core.ScreenSize.Width / 2) - 560 + i * 192, Core.ScreenSize.Height - 136, 128, 64), True) Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(CInt(Core.ScreenSize.Width / 2) - 560 + i * 192, Core.ScreenSize.Height - 136, 128, 64), True)
Core.SpriteBatch.DrawInterfaceString(FontManager.InGameFont, Text, New Vector2(CInt(Core.ScreenSize.Width / 2) - 542 + i * 192, Core.ScreenSize.Height - 104), Color.Black) Core.SpriteBatch.DrawInterfaceString(FontManager.InGameFont, Text, New Vector2(CInt(Core.ScreenSize.Width / 2) - 542 + i * 192 + 2, Core.ScreenSize.Height - 104 + 2), FontShadow)
Core.SpriteBatch.DrawInterfaceString(FontManager.InGameFont, Text, New Vector2(CInt(Core.ScreenSize.Width / 2) - 542 + i * 192, Core.ScreenSize.Height - 104), FontColor)
Next Next
Dim vS As String = "Protocol version: " & Servers.ServersManager.PROTOCOLVERSION Dim vS As String = "Protocol version: " & Servers.ServersManager.PROTOCOLVERSION