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

Changed the way to show the best stat appraisal so that it works on MacOSX and MS-Windows, too. Advanced to version 0.2.1.

Browse Source
This commit is contained in:
依瑪貓 2016-12-08 11:21:50 +08:00
parent a6dcb77760
commit ba39b7dc46
6 changed files with 99 additions and 172 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

133
PokemonGoIV/0Main.vb
View File

@ -218,7 +218,7 @@ Sub subLstPokemonSelected (oEvent As object)
fnGetImageUrl (sImageId))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, True)
subUpdateAppraisal1 (oDialog, True)
' Checks if the required columns are filled.
subBtnOKCheck (oEvent)
End Sub
@ -243,33 +243,11 @@ Sub subRdoTeamRedItemChanged (oEvent As object)
oText.setText (fnGetResString ("AppraiseFromCandela"))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
subUpdateAppraisal1 (oDialog, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 20, -1, _
com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText ("Its")
mItems = Array ("Attack", "Defense", "HP")
oList = oDialog.getControl ("lstBest")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setPosSize (140, -1, -1, -1, _
com.sun.star.awt.PosSize.X)
oList.setVisible (True)
oText = oDialog.getControl ("txtBestAfter")
oText.setPosSize (240, -1, 160, -1, _
com.sun.star.awt.PosSize.X + com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText ("is its strongest feature.")
oList = oDialog.getControl ("cbxBest2")
oList.setVisible (False)
oList = oDialog.getControl ("cbxBest3")
oList.setVisible (False)
' Updates the text of the best stat appraisal.
subUpdateBestStatAppraisal (oDialog, _
"Its", 8, "is its strongest feature.", 65)
mItems = Array ( _
"I'm blown away by its stats. WOW!", _
@ -302,33 +280,11 @@ Sub subRdoTeamBlueItemChanged (oEvent As object)
oText.setText (fnGetResString ("AppraiseFromBlanche"))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
subUpdateAppraisal1 (oDialog, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 200, -1, _
com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText ("I see that its best attribute is its")
mItems = Array ("Attack", "Defense", "HP")
oList = oDialog.getControl ("lstBest")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setPosSize (320, -1, -1, -1, _
com.sun.star.awt.PosSize.X)
oList.setVisible (True)
oText = oDialog.getControl ("txtBestAfter")
oText.setPosSize (415, -1, 5, -1, _
com.sun.star.awt.PosSize.X + com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText (".")
oList = oDialog.getControl ("cbxBest2")
oList.setVisible (False)
oList = oDialog.getControl ("cbxBest3")
oList.setVisible (False)
' Updates the text of the best stat appraisal.
subUpdateBestStatAppraisal (oDialog, _
"I see that its best attribute is its", 85, ".", 5)
mItems = Array ( _
"Its stats exceed my calculations. It's incredible!", _
@ -361,33 +317,11 @@ Sub subRdoTeamYellowItemChanged (oEvent As object)
oText.setText (fnGetResString ("AppraiseFromSpark"))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
subUpdateAppraisal1 (oDialog, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 115, -1, _
com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText ("Its best quality is")
mItems = Array ("Attack", "Defense", "HP")
oList = oDialog.getControl ("lstBest")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setPosSize (240, -1, -1, -1, _
com.sun.star.awt.PosSize.X)
oList.setVisible (True)
oText = oDialog.getControl ("txtBestAfter")
oText.setPosSize (335, -1, 5, -1, _
com.sun.star.awt.PosSize.X + com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText (".")
oList = oDialog.getControl ("cbxBest2")
oList.setVisible (False)
oList = oDialog.getControl ("cbxBest3")
oList.setVisible (False)
' Updates the text of the best stat appraisal.
subUpdateBestStatAppraisal (oDialog, _
"Its best quality is", 45, ".", 5)
mItems = Array ( _
"Its stats are the best I've ever seen! No doubt about it!", _
@ -400,6 +334,40 @@ Sub subRdoTeamYellowItemChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subUpdateBestStatAppraisal: Updates the text of the best stat appraisal.
Sub subUpdateBestStatAppraisal (oDialog As Object, _
sBefore As String, nBeforeWidth As Integer, _
sAfter As String, nAfterWidth As Integer)
Dim oText As Object, oList As Object, nX As Integer
Dim mItems () As String
oText = oDialog.getControl ("txtBestBefore")
oText.getModel.setPropertyValue ("Width", nBeforeWidth)
oText.setVisible (True)
oText.setText (sBefore)
nX = oText.getModel.getPropertyValue ("PositionX") + nBeforeWidth
mItems = Array ("Attack", "Defense", "HP")
oList = oDialog.getControl ("lstBest")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.getModel.setPropertyValue ("PositionX", nX)
oList.setVisible (True)
nX = nX + oList.getModel.getPropertyValue ("Width") + 2
oText = oDialog.getControl ("txtBestAfter")
oText.getModel.setPropertyValue ("PositionX", nX)
oText.getModel.setPropertyValue ("Width", nAfterWidth)
oText.setVisible (True)
oText.setText (sAfter)
oList = oDialog.getControl ("cbxBest2")
oList.setVisible (False)
oList = oDialog.getControl ("cbxBest3")
oList.setVisible (False)
End Sub
' subLstBestItemChanged: When the best stat is selected.
Sub subLstBestItemChanged (oEvent As object)
Dim oDialog As Object, oCheckBox As Object
@ -502,13 +470,10 @@ Sub subLstBestItemChanged (oEvent As object)
End Sub
' subUpdateAppraisal1: Updates the text of the first appraisal.
Sub subUpdateAppraisal1 (oEvent As Object, bIsKeepSelected As Boolean)
Dim oDialog As Object, sPokemon As String
Dim oList As Object, nSelected As Integer
Sub subUpdateAppraisal1 (oDialog As Object, bIsKeepSelected As Boolean)
Dim sPokemon As String, oList As Object, nSelected As Integer
Dim mItems () As String, nI As Integer
oDialog = oEvent.Source.getContext
If oDialog.getControl ("rdoTeamRed").getState Then
mItems = Array ( _
"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _

1
TODO
View File

@ -1,6 +1,5 @@
PokemonGoIV TODO
* Screen capture.
* Fix layout on MacOSX and MS-Windows.
* LibreOffice compability.
* Center the dialog.

2
VERSION
View File

@ -1 +1 @@
0.2.0
0.2.1

133
oxt/PokemonGoIV/0Main.xba
View File

@ -220,7 +220,7 @@ Sub subLstPokemonSelected (oEvent As object)
fnGetImageUrl (sImageId))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, True)
subUpdateAppraisal1 (oDialog, True)
' Checks if the required columns are filled.
subBtnOKCheck (oEvent)
End Sub
@ -245,33 +245,11 @@ Sub subRdoTeamRedItemChanged (oEvent As object)
oText.setText (fnGetResString ("AppraiseFromCandela"))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
subUpdateAppraisal1 (oDialog, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 20, -1, _
com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText ("Its")
mItems = Array ("Attack", "Defense", "HP")
oList = oDialog.getControl ("lstBest")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setPosSize (140, -1, -1, -1, _
com.sun.star.awt.PosSize.X)
oList.setVisible (True)
oText = oDialog.getControl ("txtBestAfter")
oText.setPosSize (240, -1, 160, -1, _
com.sun.star.awt.PosSize.X + com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText ("is its strongest feature.")
oList = oDialog.getControl ("cbxBest2")
oList.setVisible (False)
oList = oDialog.getControl ("cbxBest3")
oList.setVisible (False)
' Updates the text of the best stat appraisal.
subUpdateBestStatAppraisal (oDialog, _
"Its", 8, "is its strongest feature.", 65)
mItems = Array ( _
"I'm blown away by its stats. WOW!", _
@ -304,33 +282,11 @@ Sub subRdoTeamBlueItemChanged (oEvent As object)
oText.setText (fnGetResString ("AppraiseFromBlanche"))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
subUpdateAppraisal1 (oDialog, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 200, -1, _
com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText ("I see that its best attribute is its")
mItems = Array ("Attack", "Defense", "HP")
oList = oDialog.getControl ("lstBest")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setPosSize (320, -1, -1, -1, _
com.sun.star.awt.PosSize.X)
oList.setVisible (True)
oText = oDialog.getControl ("txtBestAfter")
oText.setPosSize (415, -1, 5, -1, _
com.sun.star.awt.PosSize.X + com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText (".")
oList = oDialog.getControl ("cbxBest2")
oList.setVisible (False)
oList = oDialog.getControl ("cbxBest3")
oList.setVisible (False)
' Updates the text of the best stat appraisal.
subUpdateBestStatAppraisal (oDialog, _
"I see that its best attribute is its", 85, ".", 5)
mItems = Array ( _
"Its stats exceed my calculations. It's incredible!", _
@ -363,33 +319,11 @@ Sub subRdoTeamYellowItemChanged (oEvent As object)
oText.setText (fnGetResString ("AppraiseFromSpark"))
' Updates the text of the first appraisal.
subUpdateAppraisal1 (oEvent, False)
subUpdateAppraisal1 (oDialog, False)
oText = oDialog.getControl ("txtBestBefore")
oText.setPosSize (-1, -1, 115, -1, _
com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText ("Its best quality is")
mItems = Array ("Attack", "Defense", "HP")
oList = oDialog.getControl ("lstBest")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.setPosSize (240, -1, -1, -1, _
com.sun.star.awt.PosSize.X)
oList.setVisible (True)
oText = oDialog.getControl ("txtBestAfter")
oText.setPosSize (335, -1, 5, -1, _
com.sun.star.awt.PosSize.X + com.sun.star.awt.PosSize.WIDTH)
oText.setVisible (True)
oText.setText (".")
oList = oDialog.getControl ("cbxBest2")
oList.setVisible (False)
oList = oDialog.getControl ("cbxBest3")
oList.setVisible (False)
' Updates the text of the best stat appraisal.
subUpdateBestStatAppraisal (oDialog, _
"Its best quality is", 45, ".", 5)
mItems = Array ( _
"Its stats are the best I've ever seen! No doubt about it!", _
@ -402,6 +336,40 @@ Sub subRdoTeamYellowItemChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subUpdateBestStatAppraisal: Updates the text of the best stat appraisal.
Sub subUpdateBestStatAppraisal (oDialog As Object, _
sBefore As String, nBeforeWidth As Integer, _
sAfter As String, nAfterWidth As Integer)
Dim oText As Object, oList As Object, nX As Integer
Dim mItems () As String
oText = oDialog.getControl ("txtBestBefore")
oText.getModel.setPropertyValue ("Width", nBeforeWidth)
oText.setVisible (True)
oText.setText (sBefore)
nX = oText.getModel.getPropertyValue ("PositionX") + nBeforeWidth
mItems = Array ("Attack", "Defense", "HP")
oList = oDialog.getControl ("lstBest")
oList.removeItems (0, oList.getItemCount())
oList.addItems (mItems, 0)
oList.getModel.setPropertyValue ("PositionX", nX)
oList.setVisible (True)
nX = nX + oList.getModel.getPropertyValue ("Width") + 2
oText = oDialog.getControl ("txtBestAfter")
oText.getModel.setPropertyValue ("PositionX", nX)
oText.getModel.setPropertyValue ("Width", nAfterWidth)
oText.setVisible (True)
oText.setText (sAfter)
oList = oDialog.getControl ("cbxBest2")
oList.setVisible (False)
oList = oDialog.getControl ("cbxBest3")
oList.setVisible (False)
End Sub
' subLstBestItemChanged: When the best stat is selected.
Sub subLstBestItemChanged (oEvent As object)
Dim oDialog As Object, oCheckBox As Object
@ -504,13 +472,10 @@ Sub subLstBestItemChanged (oEvent As object)
End Sub
' subUpdateAppraisal1: Updates the text of the first appraisal.
Sub subUpdateAppraisal1 (oEvent As Object, bIsKeepSelected As Boolean)
Dim oDialog As Object, sPokemon As String
Dim oList As Object, nSelected As Integer
Sub subUpdateAppraisal1 (oDialog As Object, bIsKeepSelected As Boolean)
Dim sPokemon As String, oList As Object, nSelected As Integer
Dim mItems () As String, nI As Integer
oDialog = oEvent.Source.getContext
If oDialog.getControl ("rdoTeamRed").getState Then
mItems = Array ( _
"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _

1
oxt/PokemonGoIV/DialogStrings_en_US.properties
View File

@ -13,4 +13,3 @@
183.DlgMain.rdoTeamRed.Label=~Valor
185.DlgMain.rdoTeamBlue.Label=~Mystic
187.DlgMain.rdoTeamYellow.Label=~Instinct
188.DlgMain.HelpText=

1
oxt/PokemonGoIV/DialogStrings_zh_TW.properties
View File

@ -13,4 +13,3 @@
183.DlgMain.rdoTeamRed.Label=~Valor
185.DlgMain.rdoTeamBlue.Label=~Mystic
187.DlgMain.rdoTeamYellow.Label=~Instinct
188.DlgMain.HelpText=