fdo#37290: migrate Basic to new resource service

This commit is contained in:
Xisco Fauli 2011-07-12 00:59:26 +02:00 committed by Bjoern Michaelsen
parent d9db3380ec
commit b12ad0030d

View file

@ -271,14 +271,18 @@ End Sub
Function InitResources(Description, ShortDescription as String) as boolean
Dim xResource as Object
Dim aArgs(0) as String
On Error Goto ErrorOcurred
oResSrv = createUnoService( "com.sun.star.resource.VclStringResourceLoader" )
If (IsNull(oResSrv)) then
aArgs(0) = ShortDescription
oConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
xResource = getProcessServiceManager().createInstanceWithArguments( "org.libreoffice.resource.ResourceIndexAccess", aArgs() )
If (IsNull(xResource)) then
InitResources = FALSE
MsgBox( Description & ": No resource loader found", 16, GetProductName())
MsgBox("could not initialize ResourceIndexAccess")
Else
InitResources = TRUE
oResSrv.FileName = ShortDescription
oResSrv = xResource.getByName( "String" )
End If
Exit Function
ErrorOcurred:
@ -294,7 +298,7 @@ End Function
Function GetResText( nID as integer ) As string
On Error Goto ErrorOcurred
If Not IsNull(oResSrv) Then
GetResText = oResSrv.getString( nID )
GetResText = oResSrv.getByIndex( nID )
Else
GetResText = ""
End If
@ -814,4 +818,4 @@ End Sub
Function CalIsLeapYear(ByVal iYear as Integer) as Boolean
CalIsLeapYear = ((iYear Mod 4 = 0) And ((iYear Mod 100 <> 0) Or (iYear Mod 400 = 0)))
End Function
</script:module>
</script:module>