Dim txt As String
btnHelpBack.Text = DictionList(7)
Dim lbldumm As Label
Dim ht As Float
lbldumm.Initialize("")
'filename = File.DirAssets & "help.html"
'wbvHelp.LoadURL(SD_PATH & "/help.html")
txt = File.GetText(File.DirAssets, "help.html")
Log("Text = " & txt)
lbldumm.Text = txt
ht = StrUtils.MeasureMultilineTextHeight(lbldumm,txt)
pnlHelp.Height = ht + 45dip
wbvHelp.Height = pnlHelp.Height
wbvHelp.LoadURL(SD_PATH & "/help.html")
lbldumm.Visible = False
scvMenu.Visible = False
pnlHelp.Visible = True
wbvHelp.Visible = True
btnHelpBack.Text = DictionList(10)
Dim ht As Float
Dim txt As String
Dim lblText As Label
lblText.Initialize("")
scvHelp.Panel.AddView(lblText, 0dip, 0dip, 100%x, 50dip) 'Height 50
txt = File.GetText(File.DirAssets, "help.html")
lblText.Text = txt ' set the text string to the Label text property
ht = StrUtils.MeasureMultilineTextHeight(lblText, txt)
Log("height = " & ht)
scvHelp.Panel.Height = ht + 45dip
Log("SCV height = " & ht)
wbvHelp.Height = scvHelp.Height
wbvHelp.LoadURL("file:///android_asset/" & "help.html")
lblText.Visible = False
scvMenu.Visible = False
scvHelp.Visible = True
wbvHelp.Visible = True
' scvLang.Visible = False
' scvArea.Visible = False
' scvVillage.Visible = False
' scvProperty.Visible = False
' scvDescription.Visible = False
' scvBookmarks.Visible = False
End Sub
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?