Display different languages

[johnb4a]

Hi,

I have a widget which displays some information. Is it possible to display different languages in a widget? If yes how can i do. Please any help me.

 

[Jost aus Soest]

This is the pattern I use for multi language apps:

Sub Process_Globals 'Global Static
  Dim Language As String
  '...
End Sub

Sub Globals 'Local
  Dim sJa, sNein, sEin, sAus As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
  PrepareStrings
  Dim cmdEin As Button
  cmdEin.Initialize("cmd")
  cmdEin.Text = sJa
  '...
End Sub


Sub PrepareStrings()

  If Language = "" Then
    Dim r As Reflector
    r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
    Language = r.RunMethod("getLanguage")
  End If

  Select Case Language
    Case "de": PrepareStringsDE
    Case "it": PrepareStringsIT
    Case Else: PrepareStringsEN: Language = "en"
  End Select

End Sub

Sub PrepareStringsDE
  sJa = "Ja"
  sNein = "Nein"
  sEin = "Ein"
  sAus = "Aus"
  '...
End Sub

Sub PrepareStringsEN
  sJa = "Yes"
  sNein = "No"
  sEin = "On"
  sAus = "Off"
  '...
End Sub