Fixed to load the dialog library before creating the dialog. Advanced the version number to 0.1.1.

This commit is contained in:
依瑪貓 2016-12-06 07:34:41 +08:00
parent cc4f96ce9d
commit e3b81af025
3 changed files with 7 additions and 1 deletions

View File

@ -83,6 +83,7 @@ Function fnAskParam As aFindIVParam
Dim bIsBestHP As Boolean
Dim aQuery As New aFindIVParam
DialogLibraries.loadLibrary "PokemonGoIV"
oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
oDialog.getControl ("lstApprasal1").setVisible (False)
oDialog.getControl ("txtBestBefore").setVisible (False)

View File

@ -1 +1 @@
0.1.0
0.1.1

View File

@ -85,6 +85,7 @@ Function fnAskParam As aFindIVParam
Dim bIsBestHP As Boolean
Dim aQuery As New aFindIVParam
DialogLibraries.loadLibrary "PokemonGoIV"
oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
oDialog.getControl ("lstApprasal1").setVisible (False)
oDialog.getControl ("txtBestBefore").setVisible (False)
@ -115,6 +116,7 @@ Function fnAskParam As aFindIVParam
Else
aQuery.bIsNew = False
End If
' The best stats
bIsBestAttack = False
bIsBestDefense = False
@ -156,6 +158,7 @@ Function fnAskParam As aFindIVParam
If bIsBestHP Then
aQuery.sBest = aQuery.sBest & "Sta "
End If
fnAskParam = aQuery
End Function
@ -507,6 +510,7 @@ Function fnAskParam0 As aFindIVParam
Else
aQuery.bIsNew = False
End If
' The best stats
bIsBestAttack = False
bIsBestDefense = False
@ -548,6 +552,7 @@ Function fnAskParam0 As aFindIVParam
If bIsBestHP Then
aQuery.sBest = aQuery.sBest & "Sta "
End If
fnAskParam0 = aQuery
End Function