Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private Panel1 As Panel
Private Canvas1 As Canvas
Private refl As Reflector
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Canvas1.Initialize(Panel1)
SetAntiAlias(Canvas1, False)
Dim bmp1 As Bitmap = LoadBitmap(File.DirAssets, "TestImage.png")
Dim rect1 As Rect
rect1.Initialize(0dip, 0dip, Panel1.Width, Panel1.Width)
Canvas1.DrawBitmap(bmp1, Null, rect1)
End Sub
Sub SetAntiAlias (c3 As Canvas, bOn As Boolean)
c3.AntiAlias = bOn
Dim iSetBits As Int = 3 ' ANTI_ALIAS_FLAG | FILTER_BITMAP_FLAG
Dim iClearBits As Int = 3
If bOn = True Then
iClearBits = 0
Else
iSetBits = 0
End If
Dim NativeCanvas As Object
refl.Target = c3
NativeCanvas = refl.GetField("canvas")
Dim PaintFlagsDrawFilter As Object
PaintFlagsDrawFilter = refl.CreateObject2("android.graphics.PaintFlagsDrawFilter", Array As Object(iClearBits, iSetBits), Array As String("java.lang.int", "java.lang.int"))
refl.Target = NativeCanvas
refl.RunMethod4("setDrawFilter", Array As Object(PaintFlagsDrawFilter), Array As String("android.graphics.DrawFilter"))
End Sub