Sub Globals
Dim Panel_Image As Panel
Dim Bitmap1 As Bitmap
Dim New_Height, New_Width As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Load image to bitmap1
Bitmap1.Initialize(File.DirAssets, "Any Image.jpg")
'Scale height and width to fit image in screen without stretching
If Bitmap1.Height > 100%y Then
New_Height = 100%y
New_Width = Bitmap1.Width - (Bitmap1.Height - 100%y)
Else
New_Height = Bitmap1.Height
New_Width = Bitmap1.Width
End If
If New_Width > 100%x Then
New_Height = New_Height - (New_Width - 100%y)
New_Width = 100%x
End If
'Add panel to activity
Panel_Image.Initialize("")
Activity.AddView(Panel_Image, 0, 0, New_Width, New_Height)
'Set panel background
Panel_Image.SetBackgroundImage(Bitmap1)
'Center panel in activity
Panel_Image.Top = 50%y - (Panel_Image.Height / 2)
Panel_Image.Left = 50%x - (Panel_Image.Width / 2)
End Sub