Sub Class_Globals
Private xui As XUI
Private pnlDrawing As B4XView
Private canvas As B4XCanvas
Private bground As B4XBitmap
Private bgRect As B4XRect
End Sub
Public Sub Initialize(Parent As B4XView)
Parent.LoadLayout("drawing")
canvas.Initialize(pnlDrawing)
bground= xui.LoadBitmapResize(File.DirAssets,"board.png",400dip,300dip,True)
bgRect.Initialize(0dip,0dip,bRight,bBot)
canvas.DrawBitmap(bground,bgRect)
canvas.Invalidate
End Sub
.
.
.
.
Sub Erase
.
.
.
[COLOR=rgb(147, 101, 184)] canvas.ClearRect(bgRect)[/COLOR] ' ⬅
End sub