Added the dialog for localization and easier UI.

This commit is contained in:
依瑪貓 2016-12-06 00:33:01 +08:00
parent 9859deff20
commit cc4f96ce9d
7 changed files with 554 additions and 137 deletions

View File

@ -46,7 +46,7 @@ Sub subMain
Dim maIVs As Variant, nI As Integer, sOutput As String
Dim aQuery As New aFindIVParam, aBaseStats As New aStats
aQuery = fnAskParam0
aQuery = fnAskParam
If aQuery.bIsCancelled Then
Exit Sub
End If
@ -78,36 +78,19 @@ End Sub
' fnAskParam: Asks the users for the parameters for the Pokémon.
Function fnAskParam As aFindIVParam
Dim aQuery As New aFindIVParam, oDialog As Object
Dim oDialogModel As Object, oListModel As Object
Dim oDialog As Object, oDialogModel As Object
Dim bIsBestAttack As Boolean, bIsBestDefense As Boolean
Dim bIsBestHP As Boolean
Dim aQuery As New aFindIVParam
oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
oDialogModel = oDialog.getModel
oListModel = oDialogModel.getByName ("lstPokemon")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstPokemon")
oDialogModel.insertByName ("lstPokemon", oListModel)
oListModel = oDialogModel.getByName ("lstStarDust")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstStarDust")
oDialogModel.insertByName ("lstStarDust", oListModel)
oListModel = oDialogModel.getByName ("lstPlayerLevel")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstPlayerLevel")
oDialogModel.insertByName ("lstPlayerLevel", oListModel)
oListModel = oDialogModel.getByName ("lstApprasal1")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstApprasal1")
oDialogModel.insertByName ("lstApprasal1", oListModel)
oListModel = oDialogModel.getByName ("lstApprasal2")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstApprasal2")
oDialogModel.insertByName ("lstApprasal2", oListModel)
oDialog.getControl ("lstApprasal1").setVisible (False)
oDialog.getControl ("txtBestBefore").setVisible (False)
oDialog.getControl ("lstBest").setVisible (False)
oDialog.getControl ("txtBestAfter").setVisible (False)
oDialog.getControl ("cbxBest2").setVisible (False)
oDialog.getControl ("cbxBest3").setVisible (False)
oDialog.getControl ("lstApprasal2").setVisible (False)
If oDialog.execute = 0 Then
aQuery.bIsCancelled = True
@ -130,16 +113,49 @@ Function fnAskParam As aFindIVParam
Else
aQuery.bIsNew = False
End If
' The best stats
bIsBestAttack = False
bIsBestDefense = False
bIsBestHP = False
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
bIsBestAttack = True
If oDialog.getControl ("cbxBest2").getState = 1 Then
bIsBestDefense = True
End If
If oDialog.getControl ("cbxBest3").getState = 1 Then
bIsBestHP = True
End If
End If
If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
bIsBestDefense = True
If oDialog.getControl ("cbxBest2").getState = 1 Then
bIsBestAttack = True
End If
If oDialog.getControl ("cbxBest3").getState = 1 Then
bIsBestHP = True
End If
End If
If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
bIsBestHP = True
If oDialog.getControl ("cbxBest2").getState = 1 Then
bIsBestAttack = True
End If
If oDialog.getControl ("cbxBest3").getState = 1 Then
bIsBestDefense = True
End If
End If
aQuery.sBest = ""
If oDialog.getControl ("cbxAttackBest").getState = 1 Then
If bIsBestAttack Then
aQuery.sBest = aQuery.sBest & "Atk "
End If
If oDialog.getControl ("cbxDefenseBest").getState = 1 Then
If bIsBestDefense Then
aQuery.sBest = aQuery.sBest & "Def "
End If
If oDialog.getControl ("cbxHPBest").getState = 1 Then
If bIsBestHP Then
aQuery.sBest = aQuery.sBest & "Sta "
End If
fnAskParam = aQuery
End Function
@ -337,7 +353,7 @@ Function fnAskParam0 As aFindIVParam
' Adds the blue team radio button.
oRadioModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlRadioButtonModel")
oRadioModel.setPropertyValue ("PositionX", 55)
oRadioModel.setPropertyValue ("PositionX", 60)
oRadioModel.setPropertyValue ("PositionY", 66)
oRadioModel.setPropertyValue ("Height", 8)
oRadioModel.setPropertyValue ("Width", 30)
@ -349,7 +365,7 @@ Function fnAskParam0 As aFindIVParam
' Adds the yellow team radio button.
oRadioModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlRadioButtonModel")
oRadioModel.setPropertyValue ("PositionX", 85)
oRadioModel.setPropertyValue ("PositionX", 95)
oRadioModel.setPropertyValue ("PositionY", 66)
oRadioModel.setPropertyValue ("Height", 8)
oRadioModel.setPropertyValue ("Width", 30)
@ -373,13 +389,13 @@ Function fnAskParam0 As aFindIVParam
oTextModel.setPropertyValue ("PositionX", 10)
oTextModel.setPropertyValue ("PositionY", 96)
oTextModel.setPropertyValue ("Height", 8)
oTextModel.setPropertyValue ("Width", 0)
oTextModel.setPropertyValue ("Width", 20)
oDialogModel.insertByName ("txtBestBefore", oTextModel)
' Adds the best stat field.
oListModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlListBoxModel")
oListModel.setPropertyValue ("PositionX", 10)
oListModel.setPropertyValue ("PositionX", 30)
oListModel.setPropertyValue ("PositionY", 94)
oListModel.setPropertyValue ("Height", 12)
oListModel.setPropertyValue ("Width", 35)
@ -389,7 +405,7 @@ Function fnAskParam0 As aFindIVParam
' Adds a text label after the best stat.
oTextModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlFixedTextModel")
oTextModel.setPropertyValue ("PositionX", 45)
oTextModel.setPropertyValue ("PositionX", 65)
oTextModel.setPropertyValue ("PositionY", 96)
oTextModel.setPropertyValue ("Height", 8)
oTextModel.setPropertyValue ("Width", 100)
@ -401,7 +417,7 @@ Function fnAskParam0 As aFindIVParam
oCheckBoxModel.setPropertyValue ("PositionX", 10)
oCheckBoxModel.setPropertyValue ("PositionY", 111)
oCheckBoxModel.setPropertyValue ("Height", 8)
oCheckBoxModel.setPropertyValue ("Width", 210)
oCheckBoxModel.setPropertyValue ("Width", 200)
oDialogModel.insertByName ("cbxBest2", oCheckBoxModel)
' Adds the third best stat check box.
@ -410,14 +426,14 @@ Function fnAskParam0 As aFindIVParam
oCheckBoxModel.setPropertyValue ("PositionX", 10)
oCheckBoxModel.setPropertyValue ("PositionY", 126)
oCheckBoxModel.setPropertyValue ("Height", 8)
oCheckBoxModel.setPropertyValue ("Width", 210)
oCheckBoxModel.setPropertyValue ("Width", 200)
oDialogModel.insertByName ("cbxBest3", oCheckBoxModel)
' Adds the second appraisal list.
oListModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlListBoxModel")
oListModel.setPropertyValue ("PositionX", 10)
oListModel.setPropertyValue ("PositionY", 140)
oListModel.setPropertyValue ("PositionY", 139)
oListModel.setPropertyValue ("Height", 12)
oListModel.setPropertyValue ("Width", 200)
oListModel.setPropertyValue ("Dropdown", True)
@ -491,6 +507,7 @@ Function fnAskParam0 As aFindIVParam
Else
aQuery.bIsNew = False
End If
' The best stats
bIsBestAttack = False
bIsBestDefense = False
@ -532,10 +549,11 @@ Function fnAskParam0 As aFindIVParam
If bIsBestHP Then
aQuery.sBest = aQuery.sBest & "Sta "
End If
fnAskParam0 = aQuery
End Function
' subRdoTeamRedItemChanged_itemStateChanged: Dummy for the listener.
' subRdoTeamRedItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamRedItemChanged_disposing (oEvent As object)
End Sub
@ -545,10 +563,10 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
Dim mItems () As String
mItems = Array ( _
"1. Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
"2. Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
"3. Overall, your [Pokémon] is a decent Pokémon.", _
"4. Overall, your [Pokémon] may not be great in battle, but I still like it!")
"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
"Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
"Overall, your [Pokémon] is a decent Pokémon.", _
"Overall, your [Pokémon] may not be great in battle, but I still like it!")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
@ -582,10 +600,10 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (False)
mItems = Array ( _
"1. I'm blown away by its stats. WOW!", _
"2. It's got excellent stats! How exciting!", _
"3. Its stats indicate that in battle, it'll get the job done.", _
"4. Its stats don't point to greatness in battle.")
"I'm blown away by its stats. WOW!", _
"It's got excellent stats! How exciting!", _
"Its stats indicate that in battle, it'll get the job done.", _
"Its stats don't point to greatness in battle.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal2")
oList.removeItems (0, oList.getItemCount())
@ -593,7 +611,7 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subRdoTeamBlueItemChanged_itemStateChanged: Dummy for the listener.
' subRdoTeamBlueItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamBlueItemChanged_disposing (oEvent As object)
End Sub
@ -603,10 +621,10 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
Dim mItems () As String
mItems = Array ( _
"1. Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
"2. Overall, your [Pokémon] has certainly caught my attention.", _
"3. Overall, your [Pokémon] is above average.", _
"4. Overall, your [Pokémon] is not likely to make much headway in battle.")
"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
"Overall, your [Pokémon] has certainly caught my attention.", _
"Overall, your [Pokémon] is above average.", _
"Overall, your [Pokémon] is not likely to make much headway in battle.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
@ -640,10 +658,10 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (False)
mItems = Array ( _
"1. Its stats exceed my calculations. It's incredible!", _
"2. I am certainly impressed by its stats, I must say.", _
"3. Its stats are noticeably trending to the positive.", _
"4. Its stats are not out of the norm, in my opinion.")
"Its stats exceed my calculations. It's incredible!", _
"I am certainly impressed by its stats, I must say.", _
"Its stats are noticeably trending to the positive.", _
"Its stats are not out of the norm, in my opinion.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal2")
oList.removeItems (0, oList.getItemCount())
@ -651,7 +669,7 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subRdoTeamYellowItemChanged_itemStateChanged: Dummy for the listener.
' subRdoTeamYellowItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamYellowItemChanged_disposing (oEvent As object)
End Sub
@ -661,10 +679,10 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
Dim mItems () As String
mItems = Array ( _
"1. Overall, your [Pokémon] looks like it can really battle with the best of them!", _
"2. Overall, your [Pokémon] is really strong!", _
"3. Overall, your [Pokémon] is pretty decent!", _
"4. Overall, your [Pokémon] has room for improvement as far as battling goes.")
"Overall, your [Pokémon] looks like it can really battle with the best of them!", _
"Overall, your [Pokémon] is really strong!", _
"Overall, your [Pokémon] is pretty decent!", _
"Overall, your [Pokémon] has room for improvement as far as battling goes.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
@ -698,10 +716,10 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (False)
mItems = Array ( _
"1. Its stats are the best I've ever seen! No doubt about it!", _
"2. Its stats are really strong! Impressive.", _
"3. It's definitely got some good stats. Definitely!", _
"4. Its stats are all right, but kinda basic, as far as I can see.")
"Its stats are the best I've ever seen! No doubt about it!", _
"Its stats are really strong! Impressive.", _
"It's definitely got some good stats. Definitely!", _
"Its stats are all right, but kinda basic, as far as I can see.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal2")
oList.removeItems (0, oList.getItemCount())
@ -709,7 +727,7 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subLstBestItemChanged_itemStateChanged: Dummy for the listener.
' subLstBestItemChanged_disposing: Dummy for the listener.
Sub subLstBestItemChanged_disposing (oEvent As object)
End Sub
@ -723,25 +741,31 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Defense.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("I'm just as impressed with its HP.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Attack.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("I'm just as impressed with its HP.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Attack.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("I'm just as impressed with its Defense.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
End If
If oDialog.getControl ("rdoTeamBlue").getState Then
@ -749,25 +773,31 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Defense.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("It is matched equally by its HP.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Attack.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("It is matched equally by its HP.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Attack.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("It is matched equally by its Defense.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
End If
If oDialog.getControl ("rdoTeamYellow").getState Then
@ -783,17 +813,21 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("Its Attack is great, too!")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("Its HP is great, too!")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("Its Attack is great, too!")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("Its Defense is great, too!")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
End If
End Sub

View File

@ -48,7 +48,7 @@ Sub subMain
Dim maIVs As Variant, nI As Integer, sOutput As String
Dim aQuery As New aFindIVParam, aBaseStats As New aStats
aQuery = fnAskParam0
aQuery = fnAskParam
If aQuery.bIsCancelled Then
Exit Sub
End If
@ -80,36 +80,19 @@ End Sub
' fnAskParam: Asks the users for the parameters for the Pokémon.
Function fnAskParam As aFindIVParam
Dim aQuery As New aFindIVParam, oDialog As Object
Dim oDialogModel As Object, oListModel As Object
Dim oDialog As Object, oDialogModel As Object
Dim bIsBestAttack As Boolean, bIsBestDefense As Boolean
Dim bIsBestHP As Boolean
Dim aQuery As New aFindIVParam
oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
oDialogModel = oDialog.getModel
oListModel = oDialogModel.getByName ("lstPokemon")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstPokemon")
oDialogModel.insertByName ("lstPokemon", oListModel)
oListModel = oDialogModel.getByName ("lstStarDust")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstStarDust")
oDialogModel.insertByName ("lstStarDust", oListModel)
oListModel = oDialogModel.getByName ("lstPlayerLevel")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstPlayerLevel")
oDialogModel.insertByName ("lstPlayerLevel", oListModel)
oListModel = oDialogModel.getByName ("lstApprasal1")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstApprasal1")
oDialogModel.insertByName ("lstApprasal1", oListModel)
oListModel = oDialogModel.getByName ("lstApprasal2")
oListModel.setPropertyValue ("Dropdown", True)
oDialogModel.removeByName ("lstApprasal2")
oDialogModel.insertByName ("lstApprasal2", oListModel)
oDialog.getControl ("lstApprasal1").setVisible (False)
oDialog.getControl ("txtBestBefore").setVisible (False)
oDialog.getControl ("lstBest").setVisible (False)
oDialog.getControl ("txtBestAfter").setVisible (False)
oDialog.getControl ("cbxBest2").setVisible (False)
oDialog.getControl ("cbxBest3").setVisible (False)
oDialog.getControl ("lstApprasal2").setVisible (False)
If oDialog.execute = 0 Then
aQuery.bIsCancelled = True
@ -132,14 +115,45 @@ Function fnAskParam As aFindIVParam
Else
aQuery.bIsNew = False
End If
' The best stats
bIsBestAttack = False
bIsBestDefense = False
bIsBestHP = False
If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
bIsBestAttack = True
If oDialog.getControl ("cbxBest2").getState = 1 Then
bIsBestDefense = True
End If
If oDialog.getControl ("cbxBest3").getState = 1 Then
bIsBestHP = True
End If
End If
If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
bIsBestDefense = True
If oDialog.getControl ("cbxBest2").getState = 1 Then
bIsBestAttack = True
End If
If oDialog.getControl ("cbxBest3").getState = 1 Then
bIsBestHP = True
End If
End If
If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
bIsBestHP = True
If oDialog.getControl ("cbxBest2").getState = 1 Then
bIsBestAttack = True
End If
If oDialog.getControl ("cbxBest3").getState = 1 Then
bIsBestDefense = True
End If
End If
aQuery.sBest = ""
If oDialog.getControl ("cbxAttackBest").getState = 1 Then
If bIsBestAttack Then
aQuery.sBest = aQuery.sBest & "Atk "
End If
If oDialog.getControl ("cbxDefenseBest").getState = 1 Then
If bIsBestDefense Then
aQuery.sBest = aQuery.sBest & "Def "
End If
If oDialog.getControl ("cbxHPBest").getState = 1 Then
If bIsBestHP Then
aQuery.sBest = aQuery.sBest & "Sta "
End If
fnAskParam = aQuery
@ -339,7 +353,7 @@ Function fnAskParam0 As aFindIVParam
' Adds the blue team radio button.
oRadioModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlRadioButtonModel")
oRadioModel.setPropertyValue ("PositionX", 55)
oRadioModel.setPropertyValue ("PositionX", 60)
oRadioModel.setPropertyValue ("PositionY", 66)
oRadioModel.setPropertyValue ("Height", 8)
oRadioModel.setPropertyValue ("Width", 30)
@ -351,7 +365,7 @@ Function fnAskParam0 As aFindIVParam
' Adds the yellow team radio button.
oRadioModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlRadioButtonModel")
oRadioModel.setPropertyValue ("PositionX", 85)
oRadioModel.setPropertyValue ("PositionX", 95)
oRadioModel.setPropertyValue ("PositionY", 66)
oRadioModel.setPropertyValue ("Height", 8)
oRadioModel.setPropertyValue ("Width", 30)
@ -375,13 +389,13 @@ Function fnAskParam0 As aFindIVParam
oTextModel.setPropertyValue ("PositionX", 10)
oTextModel.setPropertyValue ("PositionY", 96)
oTextModel.setPropertyValue ("Height", 8)
oTextModel.setPropertyValue ("Width", 0)
oTextModel.setPropertyValue ("Width", 20)
oDialogModel.insertByName ("txtBestBefore", oTextModel)
' Adds the best stat field.
oListModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlListBoxModel")
oListModel.setPropertyValue ("PositionX", 10)
oListModel.setPropertyValue ("PositionX", 30)
oListModel.setPropertyValue ("PositionY", 94)
oListModel.setPropertyValue ("Height", 12)
oListModel.setPropertyValue ("Width", 35)
@ -391,7 +405,7 @@ Function fnAskParam0 As aFindIVParam
' Adds a text label after the best stat.
oTextModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlFixedTextModel")
oTextModel.setPropertyValue ("PositionX", 45)
oTextModel.setPropertyValue ("PositionX", 65)
oTextModel.setPropertyValue ("PositionY", 96)
oTextModel.setPropertyValue ("Height", 8)
oTextModel.setPropertyValue ("Width", 100)
@ -403,7 +417,7 @@ Function fnAskParam0 As aFindIVParam
oCheckBoxModel.setPropertyValue ("PositionX", 10)
oCheckBoxModel.setPropertyValue ("PositionY", 111)
oCheckBoxModel.setPropertyValue ("Height", 8)
oCheckBoxModel.setPropertyValue ("Width", 210)
oCheckBoxModel.setPropertyValue ("Width", 200)
oDialogModel.insertByName ("cbxBest2", oCheckBoxModel)
' Adds the third best stat check box.
@ -412,14 +426,14 @@ Function fnAskParam0 As aFindIVParam
oCheckBoxModel.setPropertyValue ("PositionX", 10)
oCheckBoxModel.setPropertyValue ("PositionY", 126)
oCheckBoxModel.setPropertyValue ("Height", 8)
oCheckBoxModel.setPropertyValue ("Width", 210)
oCheckBoxModel.setPropertyValue ("Width", 200)
oDialogModel.insertByName ("cbxBest3", oCheckBoxModel)
' Adds the second appraisal list.
oListModel = oDialogModel.createInstance ( _
"com.sun.star.awt.UnoControlListBoxModel")
oListModel.setPropertyValue ("PositionX", 10)
oListModel.setPropertyValue ("PositionY", 140)
oListModel.setPropertyValue ("PositionY", 139)
oListModel.setPropertyValue ("Height", 12)
oListModel.setPropertyValue ("Width", 200)
oListModel.setPropertyValue ("Dropdown", True)
@ -537,7 +551,7 @@ Function fnAskParam0 As aFindIVParam
fnAskParam0 = aQuery
End Function
' subRdoTeamRedItemChanged_itemStateChanged: Dummy for the listener.
' subRdoTeamRedItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamRedItemChanged_disposing (oEvent As object)
End Sub
@ -547,10 +561,10 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
Dim mItems () As String
mItems = Array ( _
"1. Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
"2. Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
"3. Overall, your [Pokémon] is a decent Pokémon.", _
"4. Overall, your [Pokémon] may not be great in battle, but I still like it!")
"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
"Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
"Overall, your [Pokémon] is a decent Pokémon.", _
"Overall, your [Pokémon] may not be great in battle, but I still like it!")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
@ -584,10 +598,10 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (False)
mItems = Array ( _
"1. I'm blown away by its stats. WOW!", _
"2. It's got excellent stats! How exciting!", _
"3. Its stats indicate that in battle, it'll get the job done.", _
"4. Its stats don't point to greatness in battle.")
"I'm blown away by its stats. WOW!", _
"It's got excellent stats! How exciting!", _
"Its stats indicate that in battle, it'll get the job done.", _
"Its stats don't point to greatness in battle.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal2")
oList.removeItems (0, oList.getItemCount())
@ -595,7 +609,7 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subRdoTeamBlueItemChanged_itemStateChanged: Dummy for the listener.
' subRdoTeamBlueItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamBlueItemChanged_disposing (oEvent As object)
End Sub
@ -605,10 +619,10 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
Dim mItems () As String
mItems = Array ( _
"1. Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
"2. Overall, your [Pokémon] has certainly caught my attention.", _
"3. Overall, your [Pokémon] is above average.", _
"4. Overall, your [Pokémon] is not likely to make much headway in battle.")
"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
"Overall, your [Pokémon] has certainly caught my attention.", _
"Overall, your [Pokémon] is above average.", _
"Overall, your [Pokémon] is not likely to make much headway in battle.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
@ -642,10 +656,10 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (False)
mItems = Array ( _
"1. Its stats exceed my calculations. It's incredible!", _
"2. I am certainly impressed by its stats, I must say.", _
"3. Its stats are noticeably trending to the positive.", _
"4. Its stats are not out of the norm, in my opinion.")
"Its stats exceed my calculations. It's incredible!", _
"I am certainly impressed by its stats, I must say.", _
"Its stats are noticeably trending to the positive.", _
"Its stats are not out of the norm, in my opinion.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal2")
oList.removeItems (0, oList.getItemCount())
@ -653,7 +667,7 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subRdoTeamYellowItemChanged_itemStateChanged: Dummy for the listener.
' subRdoTeamYellowItemChanged_disposing: Dummy for the listener.
Sub subRdoTeamYellowItemChanged_disposing (oEvent As object)
End Sub
@ -663,10 +677,10 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
Dim mItems () As String
mItems = Array ( _
"1. Overall, your [Pokémon] looks like it can really battle with the best of them!", _
"2. Overall, your [Pokémon] is really strong!", _
"3. Overall, your [Pokémon] is pretty decent!", _
"4. Overall, your [Pokémon] has room for improvement as far as battling goes.")
"Overall, your [Pokémon] looks like it can really battle with the best of them!", _
"Overall, your [Pokémon] is really strong!", _
"Overall, your [Pokémon] is pretty decent!", _
"Overall, your [Pokémon] has room for improvement as far as battling goes.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal1")
oList.removeItems (0, oList.getItemCount())
@ -700,10 +714,10 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (False)
mItems = Array ( _
"1. Its stats are the best I've ever seen! No doubt about it!", _
"2. Its stats are really strong! Impressive.", _
"3. It's definitely got some good stats. Definitely!", _
"4. Its stats are all right, but kinda basic, as far as I can see.")
"Its stats are the best I've ever seen! No doubt about it!", _
"Its stats are really strong! Impressive.", _
"It's definitely got some good stats. Definitely!", _
"Its stats are all right, but kinda basic, as far as I can see.")
oDialog = oEvent.Source.getContext
oList = oDialog.getControl ("lstApprasal2")
oList.removeItems (0, oList.getItemCount())
@ -711,7 +725,7 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
oList.setVisible (True)
End Sub
' subLstBestItemChanged_itemStateChanged: Dummy for the listener.
' subLstBestItemChanged_disposing: Dummy for the listener.
Sub subLstBestItemChanged_disposing (oEvent As object)
End Sub
@ -725,25 +739,31 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Defense.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("I'm just as impressed with its HP.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Attack.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("I'm just as impressed with its HP.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("I'm just as impressed with its Attack.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("I'm just as impressed with its Defense.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
End If
If oDialog.getControl ("rdoTeamBlue").getState Then
@ -751,25 +771,31 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Defense.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("It is matched equally by its HP.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Attack.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("It is matched equally by its HP.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("It is matched equally by its Attack.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("It is matched equally by its Defense.")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
End If
If oDialog.getControl ("rdoTeamYellow").getState Then
@ -785,17 +811,21 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("Its Attack is great, too!")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("Its HP is great, too!")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
oCheckBox = oDialog.getControl ("cbxBest2")
oCheckBox.setLabel ("Its Attack is great, too!")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
oCheckBox = oDialog.getControl ("cbxBest3")
oCheckBox.setLabel ("Its Defense is great, too!")
oCheckBox.setVisible (True)
oCheckBox.setState (0)
End If
End If
End Sub

View File

@ -0,0 +1,41 @@
# Strings for Dialog Library PokemonGoIV
2.DlgMain.HelpText=
3.DlgMain.Title=Pok\u00c3\u00a9mon GO IV Calculator
22.DlgMain.txtPokemon.HelpText=
23.DlgMain.txtPokemon.Label=~Pok\u00c3\u00a9mon:
26.DlgMain.txtCP.HelpText=
27.DlgMain.txtCP.Label=~CP:
28.DlgMain.numCP.HelpText=
29.DlgMain.txtHP.HelpText=
30.DlgMain.txtHP.Label=~HP:
31.DlgMain.numHP.HelpText=
32.DlgMain.txtStarDust.HelpText=
33.DlgMain.txtStarDust.Label=S~tar dust:
40.DlgMain.txtPlayerLevel.HelpText=
41.DlgMain.txtPlayerLevel.Label=Player ~level:
46.DlgMain.cbxIsNew.HelpText=
47.DlgMain.cbxIsNew.Label=This Pok\u00c3\u00a9mon is ~newly-caught and was not powered-up yet.
50.DlgMain.grpApprasals.HelpText=
51.DlgMain.grpApprasals.Label=Team Leader Apprasal
85.DlgMain.btnOK.HelpText=
86.DlgMain.btnOK.Label=OK
87.DlgMain.btnCancel.HelpText=
88.DlgMain.btnCancel.Label=Cancel
162.DlgMain.lstStarDust.HelpText=
163.DlgMain.lstPlayerLevel.HelpText=
164.DlgMain.lstApprasal1.HelpText=
165.DlgMain.lstApprasal2.HelpText=
171.DlgMain.lstPokemon.HelpText=
180.DlgMain.txtTeam.HelpText=
181.DlgMain.txtTeam.Label=Team:
182.DlgMain.rdoTeamRed.HelpText=
183.DlgMain.rdoTeamRed.Label=~Valor
184.DlgMain.rdoTeamBlue.HelpText=
185.DlgMain.rdoTeamBlue.Label=~Mystic
186.DlgMain.rdoTeamYellow.HelpText=
187.DlgMain.rdoTeamYellow.Label=~Instinct
193.DlgMain.lstBest.HelpText=
194.DlgMain.txtBestBefore.HelpText=
195.DlgMain.txtBestAfter.HelpText=
201.DlgMain.cbxBest2.HelpText=
203.DlgMain.cbxBest3.HelpText=

View File

@ -0,0 +1,41 @@
# Strings for Dialog Library PokemonGoIV
2.DlgMain.HelpText=
3.DlgMain.Title=\u5bf6\u53ef\u5922 GO IV \u8a08\u7b97\u6a5f
22.DlgMain.txtPokemon.HelpText=
23.DlgMain.txtPokemon.Label=\u5bf6\u53ef\u5922(~P)\uff1a
26.DlgMain.txtCP.HelpText=
27.DlgMain.txtCP.Label=~CP:
28.DlgMain.numCP.HelpText=
29.DlgMain.txtHP.HelpText=
30.DlgMain.txtHP.Label=~HP:
31.DlgMain.numHP.HelpText=
32.DlgMain.txtStarDust.HelpText=
33.DlgMain.txtStarDust.Label=S~tar dust:
40.DlgMain.txtPlayerLevel.HelpText=
41.DlgMain.txtPlayerLevel.Label=\u73a9\u5bb6\u7b49\u7d1a(~L)\uff1a
46.DlgMain.cbxIsNew.HelpText=
47.DlgMain.cbxIsNew.Label=\u6211\u525b\u6293\u5230\u9019\u96bb\u5bf6\u53ef\u5922\uff0c\u9084\u6c92\u5f37\u5316\u904e(~N)\u3002
50.DlgMain.grpApprasals.HelpText=
51.DlgMain.grpApprasals.Label=\u968a\u9577\u8a55\u50f9
85.DlgMain.btnOK.HelpText=
86.DlgMain.btnOK.Label=\u78ba\u5b9a
87.DlgMain.btnCancel.HelpText=
88.DlgMain.btnCancel.Label=\u53d6\u6d88
162.DlgMain.lstStarDust.HelpText=
163.DlgMain.lstPlayerLevel.HelpText=
164.DlgMain.lstApprasal1.HelpText=
165.DlgMain.lstApprasal2.HelpText=
171.DlgMain.lstPokemon.HelpText=
180.DlgMain.txtTeam.HelpText=
181.DlgMain.txtTeam.Label=\u968a\u4f0d\uff1a
182.DlgMain.rdoTeamRed.HelpText=
183.DlgMain.rdoTeamRed.Label=~Valor
184.DlgMain.rdoTeamBlue.HelpText=
185.DlgMain.rdoTeamBlue.Label=~Mystic
186.DlgMain.rdoTeamYellow.HelpText=
187.DlgMain.rdoTeamYellow.Label=~Instinct
193.DlgMain.lstBest.HelpText=
194.DlgMain.txtBestBefore.HelpText=
195.DlgMain.txtBestAfter.HelpText=
201.DlgMain.cbxBest2.HelpText=
203.DlgMain.cbxBest3.HelpText=

269
oxt/PokemonGoIV/DlgMain.xdl Normal file
View File

@ -0,0 +1,269 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DlgMain" dlg:left="188" dlg:top="92" dlg:width="220" dlg:height="185" dlg:help-text="&amp;2.DlgMain.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;3.DlgMain.Title">
<dlg:styles>
<dlg:style dlg:style-id="0" dlg:background-color="0xff0000" dlg:text-color="0xffffff" dlg:font-weight="100"/>
<dlg:style dlg:style-id="1" dlg:background-color="0xff" dlg:text-color="0xffffff"/>
<dlg:style dlg:style-id="2" dlg:background-color="0xffff00"/>
</dlg:styles>
<dlg:bulletinboard>
<dlg:text dlg:id="txtPokemon" dlg:tab-index="16" dlg:left="5" dlg:top="6" dlg:width="30" dlg:height="8" dlg:help-text="&amp;22.DlgMain.txtPokemon.HelpText" dlg:value="&amp;23.DlgMain.txtPokemon.Label"/>
<dlg:menulist dlg:id="lstPokemon" dlg:tab-index="0" dlg:left="35" dlg:top="4" dlg:width="50" dlg:height="12" dlg:help-text="&amp;171.DlgMain.lstPokemon.HelpText" dlg:spin="true">
<dlg:menupopup>
<dlg:menuitem dlg:value="Bulbasaur"/>
<dlg:menuitem dlg:value="Ivysaur"/>
<dlg:menuitem dlg:value="Venusaur"/>
<dlg:menuitem dlg:value="Charmander"/>
<dlg:menuitem dlg:value="Charmeleon"/>
<dlg:menuitem dlg:value="Charizard"/>
<dlg:menuitem dlg:value="Squirtle"/>
<dlg:menuitem dlg:value="Wartortle"/>
<dlg:menuitem dlg:value="Blastoise"/>
<dlg:menuitem dlg:value="Caterpie"/>
<dlg:menuitem dlg:value="Metapod"/>
<dlg:menuitem dlg:value="Butterfree"/>
<dlg:menuitem dlg:value="Weedle"/>
<dlg:menuitem dlg:value="Kakuna"/>
<dlg:menuitem dlg:value="Beedrill"/>
<dlg:menuitem dlg:value="Pidgey"/>
<dlg:menuitem dlg:value="Pidgeotto"/>
<dlg:menuitem dlg:value="Pidgeot"/>
<dlg:menuitem dlg:value="Rattata"/>
<dlg:menuitem dlg:value="Raticate"/>
<dlg:menuitem dlg:value="Spearow"/>
<dlg:menuitem dlg:value="Fearow"/>
<dlg:menuitem dlg:value="Ekans"/>
<dlg:menuitem dlg:value="Arbok"/>
<dlg:menuitem dlg:value="Pikachu"/>
<dlg:menuitem dlg:value="Raichu"/>
<dlg:menuitem dlg:value="Sandshrew"/>
<dlg:menuitem dlg:value="Sandslash"/>
<dlg:menuitem dlg:value="Nidoran♀"/>
<dlg:menuitem dlg:value="Nidorina"/>
<dlg:menuitem dlg:value="Nidoqueen"/>
<dlg:menuitem dlg:value="Nidoran♂"/>
<dlg:menuitem dlg:value="Nidorino"/>
<dlg:menuitem dlg:value="Nidoking"/>
<dlg:menuitem dlg:value="Clefairy"/>
<dlg:menuitem dlg:value="Clefable"/>
<dlg:menuitem dlg:value="Vulpix"/>
<dlg:menuitem dlg:value="Ninetales"/>
<dlg:menuitem dlg:value="Jigglypuff"/>
<dlg:menuitem dlg:value="Wigglytuff"/>
<dlg:menuitem dlg:value="Zubat"/>
<dlg:menuitem dlg:value="Golbat"/>
<dlg:menuitem dlg:value="Oddish"/>
<dlg:menuitem dlg:value="Gloom"/>
<dlg:menuitem dlg:value="Vileplume"/>
<dlg:menuitem dlg:value="Paras"/>
<dlg:menuitem dlg:value="Parasect"/>
<dlg:menuitem dlg:value="Venonat"/>
<dlg:menuitem dlg:value="Venomoth"/>
<dlg:menuitem dlg:value="Diglett"/>
<dlg:menuitem dlg:value="Dugtrio"/>
<dlg:menuitem dlg:value="Meowth"/>
<dlg:menuitem dlg:value="Persian"/>
<dlg:menuitem dlg:value="Psyduck"/>
<dlg:menuitem dlg:value="Golduck"/>
<dlg:menuitem dlg:value="Mankey"/>
<dlg:menuitem dlg:value="Primeape"/>
<dlg:menuitem dlg:value="Growlithe"/>
<dlg:menuitem dlg:value="Arcanine"/>
<dlg:menuitem dlg:value="Poliwag"/>
<dlg:menuitem dlg:value="Poliwhirl"/>
<dlg:menuitem dlg:value="Poliwrath"/>
<dlg:menuitem dlg:value="Abra"/>
<dlg:menuitem dlg:value="Kadabra"/>
<dlg:menuitem dlg:value="Alakazam"/>
<dlg:menuitem dlg:value="Machop"/>
<dlg:menuitem dlg:value="Machoke"/>
<dlg:menuitem dlg:value="Machamp"/>
<dlg:menuitem dlg:value="Bellsprout"/>
<dlg:menuitem dlg:value="Weepinbell"/>
<dlg:menuitem dlg:value="Victreebel"/>
<dlg:menuitem dlg:value="Tentacool"/>
<dlg:menuitem dlg:value="Tentacruel"/>
<dlg:menuitem dlg:value="Geodude"/>
<dlg:menuitem dlg:value="Graveler"/>
<dlg:menuitem dlg:value="Golem"/>
<dlg:menuitem dlg:value="Ponyta"/>
<dlg:menuitem dlg:value="Rapidash"/>
<dlg:menuitem dlg:value="Slowpoke"/>
<dlg:menuitem dlg:value="Slowbro"/>
<dlg:menuitem dlg:value="Magnemite"/>
<dlg:menuitem dlg:value="Magneton"/>
<dlg:menuitem dlg:value="Farfetch&apos;d"/>
<dlg:menuitem dlg:value="Doduo"/>
<dlg:menuitem dlg:value="Dodrio"/>
<dlg:menuitem dlg:value="Seel"/>
<dlg:menuitem dlg:value="Dewgong"/>
<dlg:menuitem dlg:value="Grimer"/>
<dlg:menuitem dlg:value="Muk"/>
<dlg:menuitem dlg:value="Shellder"/>
<dlg:menuitem dlg:value="Cloyster"/>
<dlg:menuitem dlg:value="Gastly"/>
<dlg:menuitem dlg:value="Haunter"/>
<dlg:menuitem dlg:value="Gengar"/>
<dlg:menuitem dlg:value="Onix"/>
<dlg:menuitem dlg:value="Drowzee"/>
<dlg:menuitem dlg:value="Hypno"/>
<dlg:menuitem dlg:value="Krabby"/>
<dlg:menuitem dlg:value="Kingler"/>
<dlg:menuitem dlg:value="Voltorb"/>
<dlg:menuitem dlg:value="Electrode"/>
<dlg:menuitem dlg:value="Exeggcute"/>
<dlg:menuitem dlg:value="Exeggutor"/>
<dlg:menuitem dlg:value="Cubone"/>
<dlg:menuitem dlg:value="Marowak"/>
<dlg:menuitem dlg:value="Hitmonlee"/>
<dlg:menuitem dlg:value="Hitmonchan"/>
<dlg:menuitem dlg:value="Lickitung"/>
<dlg:menuitem dlg:value="Koffing"/>
<dlg:menuitem dlg:value="Weezing"/>
<dlg:menuitem dlg:value="Rhyhorn"/>
<dlg:menuitem dlg:value="Rhydon"/>
<dlg:menuitem dlg:value="Chansey"/>
<dlg:menuitem dlg:value="Tangela"/>
<dlg:menuitem dlg:value="Kangaskhan"/>
<dlg:menuitem dlg:value="Horsea"/>
<dlg:menuitem dlg:value="Seadra"/>
<dlg:menuitem dlg:value="Goldeen"/>
<dlg:menuitem dlg:value="Seaking"/>
<dlg:menuitem dlg:value="Staryu"/>
<dlg:menuitem dlg:value="Starmie"/>
<dlg:menuitem dlg:value="Mr."/>
<dlg:menuitem dlg:value="Mime"/>
<dlg:menuitem dlg:value="Scyther"/>
<dlg:menuitem dlg:value="Jynx"/>
<dlg:menuitem dlg:value="Electabuzz"/>
<dlg:menuitem dlg:value="Magmar"/>
<dlg:menuitem dlg:value="Pinsir"/>
<dlg:menuitem dlg:value="Tauros"/>
<dlg:menuitem dlg:value="Magikarp"/>
<dlg:menuitem dlg:value="Gyarados"/>
<dlg:menuitem dlg:value="Lapras"/>
<dlg:menuitem dlg:value="Ditto"/>
<dlg:menuitem dlg:value="Eevee"/>
<dlg:menuitem dlg:value="Vaporeon"/>
<dlg:menuitem dlg:value="Jolteon"/>
<dlg:menuitem dlg:value="Flareon"/>
<dlg:menuitem dlg:value="Porygon"/>
<dlg:menuitem dlg:value="Omanyte"/>
<dlg:menuitem dlg:value="Omastar"/>
<dlg:menuitem dlg:value="Kabuto"/>
<dlg:menuitem dlg:value="Kabutops"/>
<dlg:menuitem dlg:value="Aerodactyl"/>
<dlg:menuitem dlg:value="Snorlax"/>
<dlg:menuitem dlg:value="Articuno"/>
<dlg:menuitem dlg:value="Zapdos"/>
<dlg:menuitem dlg:value="Moltres"/>
<dlg:menuitem dlg:value="Dratini"/>
<dlg:menuitem dlg:value="Dragonair"/>
<dlg:menuitem dlg:value="Dragonite"/>
<dlg:menuitem dlg:value="Mewtwo"/>
<dlg:menuitem dlg:value="Mew"/>
</dlg:menupopup>
</dlg:menulist>
<dlg:text dlg:id="txtCP" dlg:tab-index="17" dlg:left="5" dlg:top="21" dlg:width="15" dlg:height="8" dlg:help-text="&amp;26.DlgMain.txtCP.HelpText" dlg:value="&amp;27.DlgMain.txtCP.Label"/>
<dlg:numericfield dlg:id="numCP" dlg:tab-index="1" dlg:left="20" dlg:top="19" dlg:width="20" dlg:height="12" dlg:help-text="&amp;28.DlgMain.numCP.HelpText" dlg:decimal-accuracy="0" dlg:value-min="10" dlg:value-max="5000"/>
<dlg:text dlg:id="txtHP" dlg:tab-index="18" dlg:left="50" dlg:top="21" dlg:width="15" dlg:height="8" dlg:help-text="&amp;29.DlgMain.txtHP.HelpText" dlg:value="&amp;30.DlgMain.txtHP.Label"/>
<dlg:numericfield dlg:id="numHP" dlg:tab-index="2" dlg:left="65" dlg:top="19" dlg:width="15" dlg:height="12" dlg:help-text="&amp;31.DlgMain.numHP.HelpText" dlg:decimal-accuracy="0" dlg:value-min="0" dlg:value-max="200"/>
<dlg:text dlg:id="txtStarDust" dlg:tab-index="19" dlg:left="90" dlg:top="21" dlg:width="30" dlg:height="8" dlg:help-text="&amp;32.DlgMain.txtStarDust.HelpText" dlg:value="&amp;33.DlgMain.txtStarDust.Label"/>
<dlg:menulist dlg:id="lstStarDust" dlg:tab-index="3" dlg:left="120" dlg:top="19" dlg:width="30" dlg:height="12" dlg:help-text="&amp;162.DlgMain.lstStarDust.HelpText" dlg:spin="true">
<dlg:menupopup>
<dlg:menuitem dlg:value="200"/>
<dlg:menuitem dlg:value="400"/>
<dlg:menuitem dlg:value="600"/>
<dlg:menuitem dlg:value="800"/>
<dlg:menuitem dlg:value="1000"/>
<dlg:menuitem dlg:value="1300"/>
<dlg:menuitem dlg:value="1600"/>
<dlg:menuitem dlg:value="1900"/>
<dlg:menuitem dlg:value="2200"/>
<dlg:menuitem dlg:value="2500"/>
<dlg:menuitem dlg:value="3000"/>
<dlg:menuitem dlg:value="3500"/>
<dlg:menuitem dlg:value="4000"/>
<dlg:menuitem dlg:value="4500"/>
<dlg:menuitem dlg:value="5000"/>
<dlg:menuitem dlg:value="6000"/>
<dlg:menuitem dlg:value="7000"/>
<dlg:menuitem dlg:value="8000"/>
<dlg:menuitem dlg:value="9000"/>
<dlg:menuitem dlg:value="10000"/>
</dlg:menupopup>
</dlg:menulist>
<dlg:text dlg:id="txtPlayerLevel" dlg:tab-index="20" dlg:left="160" dlg:top="21" dlg:width="35" dlg:height="8" dlg:help-text="&amp;40.DlgMain.txtPlayerLevel.HelpText" dlg:value="&amp;41.DlgMain.txtPlayerLevel.Label"/>
<dlg:menulist dlg:id="lstPlayerLevel" dlg:tab-index="4" dlg:left="195" dlg:top="19" dlg:width="20" dlg:height="12" dlg:help-text="&amp;163.DlgMain.lstPlayerLevel.HelpText" dlg:spin="true">
<dlg:menupopup>
<dlg:menuitem dlg:value="1"/>
<dlg:menuitem dlg:value="2"/>
<dlg:menuitem dlg:value="3"/>
<dlg:menuitem dlg:value="4"/>
<dlg:menuitem dlg:value="5"/>
<dlg:menuitem dlg:value="6"/>
<dlg:menuitem dlg:value="7"/>
<dlg:menuitem dlg:value="8"/>
<dlg:menuitem dlg:value="9"/>
<dlg:menuitem dlg:value="10"/>
<dlg:menuitem dlg:value="11"/>
<dlg:menuitem dlg:value="12"/>
<dlg:menuitem dlg:value="13"/>
<dlg:menuitem dlg:value="14"/>
<dlg:menuitem dlg:value="15"/>
<dlg:menuitem dlg:value="16"/>
<dlg:menuitem dlg:value="17"/>
<dlg:menuitem dlg:value="18"/>
<dlg:menuitem dlg:value="19"/>
<dlg:menuitem dlg:value="20"/>
<dlg:menuitem dlg:value="21"/>
<dlg:menuitem dlg:value="22"/>
<dlg:menuitem dlg:value="23"/>
<dlg:menuitem dlg:value="24"/>
<dlg:menuitem dlg:value="25"/>
<dlg:menuitem dlg:value="26"/>
<dlg:menuitem dlg:value="27"/>
<dlg:menuitem dlg:value="28"/>
<dlg:menuitem dlg:value="29"/>
<dlg:menuitem dlg:value="30"/>
<dlg:menuitem dlg:value="31"/>
<dlg:menuitem dlg:value="32"/>
<dlg:menuitem dlg:value="33"/>
<dlg:menuitem dlg:value="34"/>
<dlg:menuitem dlg:value="35"/>
<dlg:menuitem dlg:value="36"/>
<dlg:menuitem dlg:value="37"/>
<dlg:menuitem dlg:value="38"/>
<dlg:menuitem dlg:value="39"/>
<dlg:menuitem dlg:value="40"/>
</dlg:menupopup>
</dlg:menulist>
<dlg:checkbox dlg:id="cbxIsNew" dlg:tab-index="5" dlg:left="5" dlg:top="36" dlg:width="210" dlg:height="8" dlg:help-text="&amp;46.DlgMain.cbxIsNew.HelpText" dlg:value="&amp;47.DlgMain.cbxIsNew.Label" dlg:checked="true"/>
<dlg:titledbox dlg:id="grpApprasals" dlg:tab-index="21" dlg:left="5" dlg:top="50" dlg:width="210" dlg:height="110" dlg:help-text="&amp;50.DlgMain.grpApprasals.HelpText">
<dlg:title dlg:value="&amp;51.DlgMain.grpApprasals.Label"/>
</dlg:titledbox>
<dlg:text dlg:id="txtTeam" dlg:tab-index="22" dlg:left="10" dlg:top="66" dlg:width="20" dlg:height="8" dlg:help-text="&amp;180.DlgMain.txtTeam.HelpText" dlg:value="&amp;181.DlgMain.txtTeam.Label"/>
<dlg:radiogroup>
<dlg:radio dlg:style-id="0" dlg:id="rdoTeamRed" dlg:tab-index="6" dlg:left="30" dlg:top="66" dlg:width="25" dlg:height="8" dlg:help-text="&amp;182.DlgMain.rdoTeamRed.HelpText" dlg:value="&amp;183.DlgMain.rdoTeamRed.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamRedItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio>
<dlg:radio dlg:style-id="1" dlg:id="rdoTeamBlue" dlg:tab-index="7" dlg:left="60" dlg:top="66" dlg:width="30" dlg:height="8" dlg:help-text="&amp;184.DlgMain.rdoTeamBlue.HelpText" dlg:value="&amp;185.DlgMain.rdoTeamBlue.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamBlueItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio>
<dlg:radio dlg:style-id="2" dlg:id="rdoTeamYellow" dlg:tab-index="8" dlg:left="95" dlg:top="66" dlg:width="30" dlg:height="8" dlg:help-text="&amp;186.DlgMain.rdoTeamYellow.HelpText" dlg:value="&amp;187.DlgMain.rdoTeamYellow.Label">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamYellowItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:radio>
</dlg:radiogroup>
<dlg:menulist dlg:id="lstApprasal1" dlg:tab-index="9" dlg:left="10" dlg:top="79" dlg:width="200" dlg:height="12" dlg:help-text="&amp;164.DlgMain.lstApprasal1.HelpText" dlg:spin="true"/>
<dlg:text dlg:id="txtBestBefore" dlg:tab-index="23" dlg:left="10" dlg:top="96" dlg:width="20" dlg:height="8" dlg:help-text="&amp;194.DlgMain.txtBestBefore.HelpText"/>
<dlg:menulist dlg:id="lstBest" dlg:tab-index="10" dlg:left="30" dlg:top="94" dlg:width="35" dlg:height="12" dlg:help-text="&amp;193.DlgMain.lstBest.HelpText" dlg:spin="true">
<script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subLstBestItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
</dlg:menulist>
<dlg:text dlg:id="txtBestAfter" dlg:tab-index="24" dlg:left="65" dlg:top="96" dlg:width="100" dlg:height="8" dlg:help-text="&amp;195.DlgMain.txtBestAfter.HelpText"/>
<dlg:checkbox dlg:id="cbxBest2" dlg:tab-index="11" dlg:left="10" dlg:top="111" dlg:width="200" dlg:height="8" dlg:help-text="&amp;201.DlgMain.cbxBest2.HelpText" dlg:checked="false"/>
<dlg:checkbox dlg:id="cbxBest3" dlg:tab-index="12" dlg:left="10" dlg:top="126" dlg:width="200" dlg:height="8" dlg:help-text="&amp;203.DlgMain.cbxBest3.HelpText" dlg:checked="false"/>
<dlg:menulist dlg:id="lstApprasal2" dlg:tab-index="13" dlg:left="10" dlg:top="139" dlg:width="200" dlg:height="12" dlg:help-text="&amp;165.DlgMain.lstApprasal2.HelpText" dlg:spin="true"/>
<dlg:button dlg:id="btnOK" dlg:tab-index="14" dlg:left="35" dlg:top="165" dlg:width="60" dlg:height="15" dlg:help-text="&amp;85.DlgMain.btnOK.HelpText" dlg:default="true" dlg:button-type="ok"/>
<dlg:button dlg:id="btnCancel" dlg:tab-index="15" dlg:left="125" dlg:top="165" dlg:width="60" dlg:height="15" dlg:help-text="&amp;87.DlgMain.btnCancel.HelpText" dlg:button-type="cancel"/>
</dlg:bulletinboard>
</dlg:window>

View File

@ -1,3 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
<library:library xmlns:library="http://openoffice.org/2000/library" library:name="PokemonGoIV" library:readonly="false" library:passwordprotected="false"/>
<library:library xmlns:library="http://openoffice.org/2000/library" library:name="PokemonGoIV" library:readonly="false" library:passwordprotected="false">
<library:element library:name="DlgMain"/>
</library:library>