Sub Process_Globals
Private effects As BitmapCreatorEffects
Private xui As XUI
End Sub
Sub Globals
Private ImageView1 As B4XView
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
effects.Initialize
End If
Activity.LoadLayout("1")
Dim mask As Bitmap
mask.InitializeMutable(ImageView1.Width, ImageView1.Height)
Dim cvs As Canvas
cvs.Initialize2(mask)
cvs.DrawText("Hello World!!!", 5dip, 50dip, Typeface.DEFAULT_BOLD, 50, xui.Color_White, "LEFT")
Dim gradient As BitmapCreator
gradient.Initialize(ImageView1.Width / xui.Scale, ImageView1.Height / xui.Scale)
gradient.FillGradient(Array As Int(xui.Color_Red, xui.Color_Green), gradient.TargetRect, "LEFT_RIGHT")
Dim result As B4XBitmap = effects.DrawThroughMask(gradient.Bitmap, mask)
ImageView1.SetBitmap(result)
End Sub