Sub Process_Globals
Private MainForm As Form
Private Pane1 As B4XView
Private ImageView1 As B4XView
Private xui As XUI
Private bc As BitmapCreator
Private px, py As Float
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1")
MainForm.Show
bc.Initialize(ImageView1.Width, ImageView1.Height)
End Sub
Sub Pane1_Touch (Action As Int, X As Float, Y As Float)
If Action = Pane1.TOUCH_ACTION_DOWN Then
Dim r As B4XRect
r.Initialize(x - 20, y - 30, x + 20, y + 30)
bc.DrawRect(r, Rnd(0xff000000, -1), False, 5)
bc.DrawCircle(X, Y, Rnd(10, 20), Rnd(0xff000000, -1), False, Rnd(1, 30))
bc.DrawLine(px, py, X, Y, xui.Color_Red, 3)
ImageView1.SetBitmap(bc.Bitmap)
px = X
py = Y
End If
End Sub