Sub Globals
Dim ExDraw As ABExtDrawing
Dim MyCanvas As Canvas
Dim Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Activity.LoadLayout("1")
MyCanvas.Initialize(Panel1)
End If
Dim m As ABMatrix
m.Initialize
m.postRotate(45)
m.postTranslate(10dip,10dip)
Dim b As Bitmap
Dim pnt As ABPaint
b.Initialize(File.DirAssets,"1.png")
ExDraw.drawBitmap4(MyCanvas,b,m,pnt)
End Sub