Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
ImageView1.SetBitmap(CreateTallerBitmap(xui.LoadBitmap(File.DirAssets, "img.jpg"), ImageView1.Height))
End Sub
Sub CreateTallerBitmap(Input As B4XBitmap, NewHeight As Int) As B4XBitmap
Dim NewBC As BitmapCreator
NewBC.Initialize(Input.Width, NewHeight)
NewBC.DrawRect(NewBC.TargetRect, xui.Color_White, True, 0)
Dim r As B4XRect
r.Initialize(0, NewHeight / 2 - Input.Height / 2, Input.Width, 0)
r.Height = Input.Height
NewBC.DrawBitmap(Input, r, True)
Return NewBC.Bitmap
End Sub