Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private bc As BitmapCreator
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
bc.Initialize(200, 200)
NavControl.ShowPage(Page1)
End Sub
Sub CreateGradient (pnl As B4XView, Color1 As Int, Color2 As Int)
If pnl.NumberOfViews > 0 And "gradient" = pnl.GetView(pnl.NumberOfViews - 1).Tag Then
pnl.GetView(pnl.NumberOfViews - 1).RemoveViewFromParent
End If
bc.FillGradient(Array As Int(Color1, Color2), bc.TargetRect, "TL_BR")
Dim iv As ImageView
iv.Initialize("")
iv.Tag = "gradient"
pnl.AddView(iv, 0, 0, pnl.Width, pnl.Height)
bc.SetBitmapToImageView(bc.Bitmap, iv)
iv.ContentMode = iv.MODE_FILL
End Sub