imacat/pokemongoiv
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
PokemonGoIV/0Main.vb
View File

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

2
VERSION
View File

@ -1 +1 @@
0.1.0 0.1.1

5
oxt/PokemonGoIV/0Main.xba
View File

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