Sub Process_Globals
End Sub
Sub Globals
Dim EditText As EditText
Dim Panel As Panel
Dim typefaceInstance As Object ' Android Typeface
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim javaobjectInstance As JavaObject
javaobjectInstance.InitializeContext
' typefaceInstance = javaobjectInstance.RunMethod ("TypefaceFromAssets", Array ("MyOwnFont.ttf"))
typefaceInstance = javaobjectInstance.RunMethod ("TypefaceFromFile", Array ("/system/fonts/NotoColorEmoji.ttf"))
Activity.Color = Colors.RGB (0, 128, 0)
Panel.Initialize ("")
Activity.AddView (Panel, 5%x, 20dip, 90%x, 100dip)
Dim cd As ColorDrawable
cd.Initialize (Colors.RGB( 255, 240, 240), 20dip)
Panel.Background = cd
EditText.Initialize ("")
Panel.AddView (EditText, 50dip, 0dip, Panel.Width - 100dip, Panel.Height)
End Sub
Sub Activity_Resume
Dim csbuilderInstance1 As CSBuilder
csbuilderInstance1.Initialize.Append ("Qu-qu ").Typeface (typefaceInstance).Size(24).Append (Chr (0xD83D) & Chr (0xDE02)).PopAll
csbuilderInstance1.Append (" Lja-lja ").Typeface (typefaceInstance).Size(24).Append (Chr (0xD83D) & Chr (0xDE04)).PopAll
EditText.TextColor = Colors.Black
EditText.Text = csbuilderInstance1
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
#If Java
import android.graphics.Typeface;
public Typeface TypefaceFromAssets (String filename) { return Typeface.createFromAsset (activityBA.context.getAssets(), filename); }
public Typeface TypefaceFromFile (String filename) { return Typeface.createFromFile (filename); }
#End If