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

Fixed the indent from 4 spaces to tabs.

Browse Source
This commit is contained in:
依瑪貓 2017-03-01 23:48:57 +08:00
parent f0c756b917
commit 035c455a84
4 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
PokemonGoIV/1Dialog.vb
View File

@ -19,8 +19,8 @@ Option Explicit
' fnLoadParamDialog: Loads the parameter dialog. ' fnLoadParamDialog: Loads the parameter dialog.
Function fnLoadParamDialog As Object Function fnLoadParamDialog As Object
Dim oDialog As Object Dim oDialog As Object
DialogLibraries.loadLibrary "PokemonGoIV" DialogLibraries.loadLibrary "PokemonGoIV"
oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain) oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
oDialog.getControl ("lstTotal").setVisible (False) oDialog.getControl ("lstTotal").setVisible (False)
@ -199,7 +199,7 @@ End Sub
' subUpdateBestStatAppraisal: Updates the text of the best stat appraisal. ' subUpdateBestStatAppraisal: Updates the text of the best stat appraisal.
Sub subUpdateBestStatAppraisal (oDialog As Object, _ Sub subUpdateBestStatAppraisal (oDialog As Object, _
sAppraisal As String, nHeadWidth As Integer) sAppraisal As String, nHeadWidth As Integer)
Dim oText As Object, oList As Object, nX As Integer Dim oText As Object, oList As Object, nX As Integer
Dim sHead As String, sTail As String, nTailWidth As Integer Dim sHead As String, sTail As String, nTailWidth As Integer
Dim nDialogWidth As Integer Dim nDialogWidth As Integer
@ -209,7 +209,7 @@ Sub subUpdateBestStatAppraisal (oDialog As Object, _
nPos = InStr (sAppraisal, "[Stat]") nPos = InStr (sAppraisal, "[Stat]")
sHead = Left (sAppraisal, nPos - 1) sHead = Left (sAppraisal, nPos - 1)
sTail = Right (sAppraisal, _ sTail = Right (sAppraisal, _
Len (sAppraisal) - nPos - Len ("[Stat]") + 1) Len (sAppraisal) - nPos - Len ("[Stat]") + 1)
nDialogWidth = oDialog.getModel.getPropertyValue ("Width") nDialogWidth = oDialog.getModel.getPropertyValue ("Width")
oText = oDialog.getControl ("txtBestHead") oText = oDialog.getControl ("txtBestHead")
@ -227,7 +227,7 @@ Sub subUpdateBestStatAppraisal (oDialog As Object, _
oList.addItems (mItems, 0) oList.addItems (mItems, 0)
oList.getModel.setPropertyValue ("PositionX", nX) oList.getModel.setPropertyValue ("PositionX", nX)
oList.getModel.setPropertyValue ("Width", _ oList.getModel.setPropertyValue ("Width", _
CInt (fnGetResString ("BestStatWidth"))) CInt (fnGetResString ("BestStatWidth")))
oList.setVisible (True) oList.setVisible (True)
nX = nX + oList.getModel.getPropertyValue ("Width") nX = nX + oList.getModel.getPropertyValue ("Width")

10
PokemonGoIV/8Registry.vb
View File

@ -8,7 +8,7 @@ Const BASE_KEY As String = "/org.openoffice.Office.Addons.PokemonGoIV.AddonConfi
' fnGetImageUrl: Returns the image URL for the UNO image controls. ' fnGetImageUrl: Returns the image URL for the UNO image controls.
Function fnGetImageUrl (sName As String) As String Function fnGetImageUrl (sName As String) As String
BasicLibraries.loadLibrary "Tools" BasicLibraries.loadLibrary "Tools"
Dim oRegKey As Object Dim oRegKey As Object
oRegKey = GetRegistryKeyContent (BASE_KEY & "FileResources/" & sName) oRegKey = GetRegistryKeyContent (BASE_KEY & "FileResources/" & sName)
fnGetImageUrl = fnExpandMacroFieldExpression (oRegKey.Url) fnGetImageUrl = fnExpandMacroFieldExpression (oRegKey.Url)
@ -25,15 +25,15 @@ End Function
' fnExpandMacroFieldExpression ' fnExpandMacroFieldExpression
Function fnExpandMacroFieldExpression (sURL As String) As String Function fnExpandMacroFieldExpression (sURL As String) As String
Dim sTemp As String Dim sTemp As String
Dim oSM As Object Dim oSM As Object
Dim oMacroExpander As Object Dim oMacroExpander As Object
' Gets the service manager ' Gets the service manager
oSM = getProcessServiceManager oSM = getProcessServiceManager
' Gets the macro expander ' Gets the macro expander
oMacroExpander = oSM.DefaultContext.getValueByName ( _ oMacroExpander = oSM.DefaultContext.getValueByName ( _
"/singletons/com.sun.star.util.theMacroExpander") "/singletons/com.sun.star.util.theMacroExpander")
'cut the vnd.sun.star.expand: part 'cut the vnd.sun.star.expand: part
sTemp = Join (Split (sURL, "vnd.sun.star.expand:")) sTemp = Join (Split (sURL, "vnd.sun.star.expand:"))

10
oxt/PokemonGoIV/1Dialog.xba
View File

@ -21,8 +21,8 @@ Option Explicit
' fnLoadParamDialog: Loads the parameter dialog. ' fnLoadParamDialog: Loads the parameter dialog.
Function fnLoadParamDialog As Object Function fnLoadParamDialog As Object
Dim oDialog As Object Dim oDialog As Object
DialogLibraries.loadLibrary "PokemonGoIV" DialogLibraries.loadLibrary "PokemonGoIV"
oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain) oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
oDialog.getControl ("lstTotal").setVisible (False) oDialog.getControl ("lstTotal").setVisible (False)
@ -201,7 +201,7 @@ End Sub
' subUpdateBestStatAppraisal: Updates the text of the best stat appraisal. ' subUpdateBestStatAppraisal: Updates the text of the best stat appraisal.
Sub subUpdateBestStatAppraisal (oDialog As Object, _ Sub subUpdateBestStatAppraisal (oDialog As Object, _
sAppraisal As String, nHeadWidth As Integer) sAppraisal As String, nHeadWidth As Integer)
Dim oText As Object, oList As Object, nX As Integer Dim oText As Object, oList As Object, nX As Integer
Dim sHead As String, sTail As String, nTailWidth As Integer Dim sHead As String, sTail As String, nTailWidth As Integer
Dim nDialogWidth As Integer Dim nDialogWidth As Integer
@ -211,7 +211,7 @@ Sub subUpdateBestStatAppraisal (oDialog As Object, _
nPos = InStr (sAppraisal, "[Stat]") nPos = InStr (sAppraisal, "[Stat]")
sHead = Left (sAppraisal, nPos - 1) sHead = Left (sAppraisal, nPos - 1)
sTail = Right (sAppraisal, _ sTail = Right (sAppraisal, _
Len (sAppraisal) - nPos - Len ("[Stat]") + 1) Len (sAppraisal) - nPos - Len ("[Stat]") + 1)
nDialogWidth = oDialog.getModel.getPropertyValue ("Width") nDialogWidth = oDialog.getModel.getPropertyValue ("Width")
oText = oDialog.getControl ("txtBestHead") oText = oDialog.getControl ("txtBestHead")
@ -229,7 +229,7 @@ Sub subUpdateBestStatAppraisal (oDialog As Object, _
oList.addItems (mItems, 0) oList.addItems (mItems, 0)
oList.getModel.setPropertyValue ("PositionX", nX) oList.getModel.setPropertyValue ("PositionX", nX)
oList.getModel.setPropertyValue ("Width", _ oList.getModel.setPropertyValue ("Width", _
CInt (fnGetResString ("BestStatWidth"))) CInt (fnGetResString ("BestStatWidth")))
oList.setVisible (True) oList.setVisible (True)
nX = nX + oList.getModel.getPropertyValue ("Width") nX = nX + oList.getModel.getPropertyValue ("Width")

10
oxt/PokemonGoIV/8Registry.xba
View File

@ -10,7 +10,7 @@ Const BASE_KEY As String = "/org.openoffice.Office.Addons.PokemonGoIV.Addon
' fnGetImageUrl: Returns the image URL for the UNO image controls. ' fnGetImageUrl: Returns the image URL for the UNO image controls.
Function fnGetImageUrl (sName As String) As String Function fnGetImageUrl (sName As String) As String
BasicLibraries.loadLibrary "Tools" BasicLibraries.loadLibrary "Tools"
Dim oRegKey As Object Dim oRegKey As Object
oRegKey = GetRegistryKeyContent (BASE_KEY & "FileResources/" & sName) oRegKey = GetRegistryKeyContent (BASE_KEY & "FileResources/" & sName)
fnGetImageUrl = fnExpandMacroFieldExpression (oRegKey.Url) fnGetImageUrl = fnExpandMacroFieldExpression (oRegKey.Url)
@ -27,15 +27,15 @@ End Function
' fnExpandMacroFieldExpression ' fnExpandMacroFieldExpression
Function fnExpandMacroFieldExpression (sURL As String) As String Function fnExpandMacroFieldExpression (sURL As String) As String
Dim sTemp As String Dim sTemp As String
Dim oSM As Object Dim oSM As Object
Dim oMacroExpander As Object Dim oMacroExpander As Object
' Gets the service manager ' Gets the service manager
oSM = getProcessServiceManager oSM = getProcessServiceManager
' Gets the macro expander ' Gets the macro expander
oMacroExpander = oSM.DefaultContext.getValueByName ( _ oMacroExpander = oSM.DefaultContext.getValueByName ( _
"/singletons/com.sun.star.util.theMacroExpander") "/singletons/com.sun.star.util.theMacroExpander")
'cut the vnd.sun.star.expand: part 'cut the vnd.sun.star.expand: part
sTemp = Join (Split (sURL, "vnd.sun.star.expand:")) sTemp = Join (Split (sURL, "vnd.sun.star.expand:"))