From a745630c731e8a40d6054c30313da769eb908276 Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Thu, 2 Jun 2022 13:05:08 +0200 Subject: [PATCH] Fix for party screen bug (read description) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixed bug in the Party Screen where the Pokémon icons were covered by selection boxes --- P3D/Screens/Pokemon/PartyScreen.vb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/P3D/Screens/Pokemon/PartyScreen.vb b/P3D/Screens/Pokemon/PartyScreen.vb index 51c55986b..946c1d09d 100644 --- a/P3D/Screens/Pokemon/PartyScreen.vb +++ b/P3D/Screens/Pokemon/PartyScreen.vb @@ -252,10 +252,6 @@ Public Class PartyScreen End Sub Private Sub DrawPokemonArea() - For i = 0 To PokemonList.Count - 1 - DrawPokemon(i) - Next - Canvas.DrawBorder(3, New Rectangle(CInt(_cursorPosition.X) - 3, CInt(_cursorPosition.Y) - 3, 300, 82), New Color(200, 80, 80, CInt(200 * _interfaceFade))) If _isSwitching Then @@ -263,6 +259,9 @@ Public Class PartyScreen Canvas.DrawBorder(3, New Rectangle(CInt(switchPosition.X) - 6, CInt(switchPosition.Y) - 6, 306, 88), New Color(80, 80, 200, CInt(200 * _interfaceFade))) End If + For i = 0 To PokemonList.Count - 1 + DrawPokemon(i) + Next End Sub Private Sub DrawPokemon(ByVal index As Integer)