Sub Process_Globals
End Sub
Sub Globals
Dim WebView1 As WebView
Dim meinText As String
Dim TextReader1 As TextReader
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
WebView1.Initialize("WebView1")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
TextAnzeigen
End Sub
Sub TextAnzeigen
TextReader1.Initialize2(File.OpenInput(File.DirAssets,"willkommen.txt"),"ISO-8859-1")
meinText = TextReader1.ReadAll
TextReader1.Close
WebView1.LoadHtml(meinText)
End Sub