* Updated the dialog to remember the last selected Pokémon. This helps when checking with a bunch of Pokémons of the same type. Selecting Pokémon was a challenge with Chinese where keyboard finding does not work with the drop-down menu.

* Advanced to version 0.8.3.
This commit is contained in:
2017-11-29 21:32:29 +08:00
parent a17ddfab0a
commit 2c5c0909e0
4 changed files with 31 additions and 5 deletions

View File

@ -17,6 +17,9 @@
Option Explicit
' Remembers the selected Pokémon for the next run.
Global sSelected As String
' The parameters to find the individual values.
Type aFindIVParam
sPokemonId As String
@ -68,6 +71,9 @@ Function fnAskParam As aFindIVParam
oDialog.getControl ("imgTeamLogo").getModel.setPropertyValue ( _
"ImageURL", fnGetImageUrl ("Unknown"))
' Remembers the previously-selected Pokémon.
oDialog.getControl ("lstPokemon").selectItem (sSelected, True)
If oDialog.execute = 0 Then
aQuery.bIsCancelled = True
fnAskParam = aQuery
@ -168,8 +174,15 @@ Sub subLstPokemonSelected (oEvent As object)
oDialog = oEvent.Source.getContext
' Updates the Pokémon image.
' Checks which Pokémon was selected.
sSelected = oDialog.getControl ("lstPokemon").getSelectedItem
nSelected = oDialog.getControl ("lstPokemon").getSelectedItemPos
' This happens at the beginning where sSelected is "".
If nSelected = -1 Then
Exit Sub
End If
' Updates the Pokémon image.
subReadBaseStats
sImageId = "Pokemon" & maBaseStats (nSelected).sPokemonId
oImageModel = oDialog.getControl ("imgPokemon").getModel