Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
End Sub
Sub Activity_Resume
Dim Barcode As Bitmap
Barcode.InitializeMutable(150dip, 32dip)
Barcode=TextToBitmap("12345",18)
Panel1.SetBackgroundImage(Barcode)
ImageView1.Bitmap=Barcode
'Globaal.ResizeImage(LoadBitmap(File.DirInternal,tFoto.sFilename),oImgFoto1.Width,oImgFoto1.Height)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub TextToBitmap (s As String, FontSize As Float) As Bitmap
Dim bmp As Bitmap
bmp.InitializeMutable(150dip, 40dip)
Dim cvs As Canvas
cvs.Initialize2(bmp)
Dim Barcode As Typeface
Barcode = Typeface.LoadFromAssets("IDC128L.TTF") ' barcode font
Dim h As Double = cvs.MeasureStringHeight(s, Barcode.DEFAULT, FontSize)
cvs.DrawText(s, bmp.Width / 2, bmp.Height / 2 + h / 2, Barcode.DEFAULT, FontSize, Colors.Black, "CENTER")
Return bmp
End Sub