Sub Process_Globals
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If File.Exists (File.DirRootExternal, "sp_1149.jpg") = False OR File.Size(File.DirRootExternal, "sp_1149.jpg")=0 Then
File.Copy(File.DirAssets, "sp_1149.jpg", File.DirRootExternal, "sp_1149.jpg")
End If
Activity.LoadLayout("test")
Dim strFile,strDir As String
strFile="sp_1149.jpg"
strDir=File.DirRootExternal
Dim d As BitmapDrawable
d.Initialize(LoadBitmapSample(strDir,strFile,Activity.Width,Activity.Height))
d.Gravity=Gravity.CENTER
Activity.Background=d
Dim cvs As Canvas
cvs.Initialize(Activity)
Dim sRect As Rect
sRect.Initialize(55%x,45%y,60%x,50%y)
Dim dRect As Rect
dRect.Initialize(40%x,60%y,70%x,90%y)
cvs.DrawBitmap(LoadBitmapSample(strDir,strFile,Activity.Width,Activity.Height),sRect,dRect)
cvs.drawline(sRect.left,sRect.Top,sRect.Left,sRect.Bottom,Colors.Black,3dip)
cvs.drawline(sRect.left,sRect.Bottom,sRect.Right,sRect.Bottom,Colors.Black,3dip)
cvs.drawline(sRect.right,sRect.Bottom,sRect.Right,sRect.top,Colors.Black,3dip)
cvs.drawline(sRect.right,sRect.top,sRect.Left,sRect.top,Colors.Black,3dip)
End Sub